Télécharger la plaquette Cast3M


fr en

Télécharger mode21.eso

Retour à la liste

Numérotation des lignes : 

mode21

  1. C MODE21    SOURCE    CB215821  18/09/10    21:16:16     9912           
  2.       SUBROUTINE MODE21 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  3. C  FAIT par Thibault : pour 'METALLURGIE'
  4.  
  5.       IMPLICIT INTEGER(I-N)
  6.       IMPLICIT REAL*8 (A-H,O-Z)
  7.  
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11.  
  12.       CHARACTER*16 LESPRO(*)
  13.       CHARACTER*4  LESTEF(*)
  14.  
  15. C  1 - Noms des arguments attendus pour la metallurgie
  16. C ---------------------
  17.       NBPRO=4
  18.       IF (NBPRO.GT.N1MAX) GOTO 99
  19.       LESPRO(1)='PHASES          '
  20.       LESPRO(2)='REACTIFS        '
  21.       LESPRO(3)='PRODUITS        '
  22.       LESPRO(4)='TYPE            '
  23. C  2 - Noms de types d'ELEMENTS FINIS
  24. C ------------------------------------
  25.       IF (IDIM.EQ.1) THEN
  26.         NBTEF=2
  27.         IF (NBTEF.GT.N2MAX) GOTO 99
  28.         LESTEF(1)='T1D2'
  29.         LESTEF(2)='T1D3'
  30.  
  31.       ELSE IF (IDIM.EQ.2) THEN
  32.         NBTEF=12
  33.         IF (NBTEF.GT.N2MAX) GOTO 99
  34.         LESTEF(1) ='SEG2'
  35.         LESTEF(2) ='SEG3'
  36.         LESTEF(3) ='TRI3'
  37.         LESTEF(4) ='TRI6'
  38.         LESTEF(5) ='QUA4'
  39.         LESTEF(6) ='QUA8'
  40.         LESTEF(7) ='COQ2'
  41.         LESTEF(8) ='BARR'
  42.         LESTEF(9) ='BAR3'
  43.         LESTEF(10)='POLY'
  44.         LESTEF(11)='TUY2'
  45.         LESTEF(12)='TUY3'
  46.  
  47. C*    ELSE IF (IDIM.EQ.3) THEN
  48.       ELSE
  49.         NBTEF=16
  50.         IF (NBTEF.GT.N2MAX) GOTO 99
  51.         LESTEF( 1)='CUB8'
  52.         LESTEF( 2)='CU20'
  53.         LESTEF( 3)='PRI6'
  54.         LESTEF( 4)='PR15'
  55.         LESTEF( 5)='TET4'
  56.         LESTEF( 6)='TE10'
  57.         LESTEF( 7)='PYR5'
  58.         LESTEF( 8)='PY13'
  59.         LESTEF( 9)='COQ3'
  60.         LESTEF(10)='COQ4'
  61.         LESTEF(11)='COQ6'
  62.         LESTEF(12)='COQ8'
  63.         LESTEF(13)='BARR'
  64.         LESTEF(14)='BAR3'
  65.         LESTEF(15)='TUY2'
  66.         LESTEF(16)='TUY3'
  67.       ENDIF
  68.       RETURN
  69.  
  70. C  3 - Traitement des ERREURS
  71. C ----------------------------
  72.  99   CALL ERREUR(5)
  73.       RETURN
  74.  
  75.       END
  76.  
  77.  
  78.  

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