Télécharger la plaquette Cast3M


fr en

Télécharger TECOU.INC

Retour à la liste

Numérotation des lignes : 

  1. * INCLUDE : TECOU
  2. * Include contenant differents segments de travail utilises lors de 
  3. * l'integration du comportement - operateur COML
  4. * Voir aussi le common CECOU (operateur ECOULE)
  5.  
  6. *         =======
  7. *  Segment NECOU : utilisé dans ECOINC
  8. *         =======
  9.       SEGMENT NECOU
  10.         INTEGER NCOURB,IPLAST,IT,IMAPLA,ISOTRO, ITYP,IFOURB,IFLUAG,
  11.      &          ICINE,ITHER,IFLUPL,ICYCL,IBI, JFLUAG,KFLUAG,LFLUAG,
  12.      &          IRELAX,JNTRIN,MFLUAG,JSOUFL,JGRDEF
  13.       ENDSEGMENT
  14.  
  15. *         =======
  16. *  Segment IECOU : Initialisations d'entiers
  17. *         =======
  18.       SEGMENT IECOU
  19.         INTEGER NYOG,NYNU,NYALFA,NYSMAX,NYN,NYM,NYKK,NYALF1,
  20.      &          NYBET1,NYR,NYA,NYRHO,NSIGY,NNKX,NYKX,IND,NSOM,NINV,
  21.      &          NINCMA,NCOMP,JELEM,LEGAUS,INAT,NCXMAT,LTRAC,MFRBI,
  22.      &          IELE,NHRM,NBNNBI,NBELMB,ICARA,LW2BI,NDEF,NSTRSS,
  23.      &          MFR1,NBGMAT,NELMAT,MSOUPA,NUMAT1,LENDO,NBBB,NNVARI,
  24.      &          KERR1,MELEMB,NYOG1,NYNU1,NYALFT1,NYSMAX1,NYN1,NYM1,
  25.      &          NYKK1,NYALF2,NYBET2,NYR1,NYA1,NYQ1,NYRHO1,NSIGY1
  26.       ENDSEGMENT
  27.  
  28. *         =======
  29. *  Segment XECOU : Initialisations de réels
  30. *         =======
  31.       SEGMENT XECOU
  32.         REAL*8 DTOPTI,TSOM,TCAR,DTT,DT,TREFA,TEMP00
  33.       ENDSEGMENT
  34.  
  35. *         ======
  36. *  Segment ECOU : Quelques tableaux
  37. *         ======
  38.       SEGMENT ECOU
  39.         REAL*8 TEST,ALFAH, HPAS,TEMPS, COVNMS(6),VECPRO(9),VALPRO(6),
  40.      &         CVNMSD(12),STOT(6),SIGEL(6),DSIGP(6),SIGT(6),W1(6),
  41.      &         W2(6),DALPHA(6),EPSPLA(6),E(12),XINV(3),
  42.      &         SIPLAD(6),DSIGP0(6), TET,TETI
  43.       ENDSEGMENT
  44.  
  45.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales