* INCLUDE : TECOU
* Include contenant differents segments de travail utilises lors de 
* l'integration du comportement - operateur COML
* Voir aussi le common CECOU (operateur ECOULE)

*         =======
*  Segment NECOU : utilisé dans ECOINC
*         =======
      SEGMENT NECOU
        INTEGER NCOURB,IPLAST,IT,IMAPLA,ISOTRO, ITYP,IFOURB,IFLUAG,
     &          ICINE,ITHER,IFLUPL,ICYCL, JFLUAG,KFLUAG,LFLUAG,
     &          IRELAX,JNTRIN,MFLUAG,JSOUFL,JGRDEF
      ENDSEGMENT

*         =======
*  Segment IECOU : Initialisations d'entiers
*         =======
      SEGMENT IECOU
        INTEGER NYOG,NYNU,NYALFA,NYSMAX,NYN,NYM,NYKK,NYALF1,
     &          NYBET1,NYR,NYA,NYRHO,NSIGY,NNKX,NYKX,IND,NSOM,NINV,
     &          NINCMA,NCOMP,JELEM,INAT,NCXMAT,LTRAC,MFRBI,
     &          IELE,NHRM,NBNNBI,NBELMB,ICARA,LW2BI,NDEF,NSTRSS,
     &          MFR1,NBGMAT,NELMAT,MSOUPA,NUMAT1,LENDO,NBBB,NNVARI,
     &          KERR1,MELEMB,NYOG1,NYNU1,NYALFT1,NYSMAX1,NYN1,NYM1,
     &          NYKK1,NYALF2,NYBET2,NYR1,NYA1,NYQ1,NYRHO1,NSIGY1
      ENDSEGMENT

*         =======
*  Segment XECOU : Initialisations de réels
*         =======
      SEGMENT XECOU
        REAL*8 DTOPTI,TSOM,TCAR,DTT,DT,TREFA,TEMP00
      ENDSEGMENT

*         ======
*  Segment ECOU : Quelques tableaux
*         ======
      SEGMENT ECOU
        REAL*8 ECTEST,ALFAH, HPAS,TEMPS, COVNMS(6),VECPRO(9),VALPRO(6),
     &         CVNMSD(12),STOT(6),SIGEL(6),DSIGP(6),SIGT(6),W1(6),
     &         W2(6),DALPHA(6),EPSPLA(6),E(12),XINV(3),
     &         SIPLAD(6),DSIGP0(6), TET,TETI
      ENDSEGMENT