C INITFL    SOURCE    MB234859  25/01/03    21:15:12     12105          
      SUBROUTINE INITFL(IPRIGI,IPMASS,IPMV1,IPV1,IFLU)
*
*
**********************************************************************
*
*     SBR REALISANT L INITAILISATION DES VECTEURS DE PROJECTION
*     POUR LA RECHERCHE DE MODES PAR LA METHODE SIMULTANEE
*
*     UNE ATTENTION PARTICULIERE POUR LE CAS OU L ON A DU FLUIDE
*     GENERATON D UN VECTEUR RESPECTANT LAPL.PI = 0
*
*
*     D. BROCHARD  (EMSI) 6994       13/07/88
*     BP 10/01/2012 : IFLU = nombre d'inconnues PI
*
*
**********************************************************************
*
*
      IMPLICIT INTEGER(I-N)
      IMPLICIT REAL*8 (A-H,O-Z)
-INC CCHAMP

-INC PPARAM
-INC CCOPTIO
-INC SMCHPOI
-INC CCREEL
      SEGMENT IDEMEN(0)
      CHARACTER*(LOCOMP) MOC
*
      xspetl = xspeti
      IFLU=0
*
*      write(6,*) ' initfl  nomdu ' , nomdu(15)
      MCHPOI=IPMV1
      SEGACT MCHPOI
      NSOUPO = IPCHP(/1)
      DO 10 ISOUPO=1,NSOUPO
      MSOUPO = IPCHP(ISOUPO)
      SEGACT MSOUPO
      MPOVAL=IPOVAL
      segact,MPOVAL
      NC = NOCOMP(/2)
      DO 20 IC = 1,NC
      MOC=NOCOMP(IC)
c       IF(MOC.EQ.NOMDU(15)) GOTO 110
      IF(MOC.EQ.NOMDU(15)) IFLU=IFLU+VPOCHA(/1)
20    CONTINUE
      segdes,MPOVAL
      SEGDES MSOUPO
10    CONTINUE
      SEGDES MCHPOI
c       GO TO 100
      if(IFLU.eq.0) GO TO 100
110   continue
C
C     IL Y A DES TERMES EN PI
C
*      write(6,*) ' on passe dans la mise à zero des termes en PI'
      IPMV1L=IPMV1
      CALL ANCHPO(IPMV1L,NOMDU(15),IPMV1)
      CALL DTCHPO(IPMV1L)
      CALL DTCHPO(IPV1)
      SEGINI IDEMEN
      IDEMEN(**)=IPMV1
      NOID=0
      NOEN=0
      IDEM = IDEMEN
      CALL RESOU1(IPRIGI,IDEM,NOID,NOEN,xspetl,0,0)
*  recuperer nombre de modes d'ensemble et maillage pts contrainnts
      CALL LIRENT(NBENT,1,IRETOU)
      call lirobj('CHPOINT  ',mchp4,1,iretou)
      IDEMEN = IDEM
      IPV1=IDEMEN(1)
      SEGSUP IDEMEN
      CALL MUCPRI(IPV1,IPMASS,IPMV1L)
      CALL ANCHPO(IPMV1L,NOMDU(15),IPMV1)
      CALL DTCHPO(IPMV1L)
c       IFLU = 1
*
100   CONTINUE
*
*     RETURN
      END