Télécharger la plaquette Cast3M


fr en

Télécharger mode18.eso

Retour à la liste

Numérotation des lignes : 

mode18

  1. C MODE18    SOURCE    CB215821  22/04/01    14:03:13     11326          
  2.  
  3. C=======================================================================
  4. C=  Objet MODELE  -  Cas de la formulation 'DIFFUSION'                 =
  5. C=                                                                     =
  6. C=   Definition des noms de modeles de MATERIAU                        =
  7. C=           et des noms de types d'ELEMENTS FINIS                     =
  8. C=======================================================================
  9.  
  10.       SUBROUTINE MODE18 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12.       IMPLICIT INTEGER(I-N)
  13.       IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15.  
  16. -INC PPARAM
  17. -INC CCOPTIO
  18.  
  19.       CHARACTER*16  LESPRO(*)
  20.       CHARACTER*(*) LESTEF(*)
  21.  
  22. C  1 - Noms de MODELES
  23. C ---------------------
  24.       IF (IDIM.EQ.1) THEN
  25.         NBPRO=6
  26.         IF (NBPRO.GT.N1MAX) GOTO 99
  27.         LESPRO(1)='ISOTROPE        '
  28.         LESPRO(2)='FICK            '
  29.         LESPRO(3)='SORET           '
  30.         LESPRO(4)='UTILISATEUR     '
  31.         LESPRO(5)='DISSIPATION     '
  32.         LESPRO(6)='AFFINE          '
  33.  
  34.       ELSE
  35.         NBPRO=10
  36.         IF (NBPRO.GT.N1MAX) GOTO 99
  37.         LESPRO(1 )='ISOTROPE        '
  38.         LESPRO(2 )='ORTHOTROPE      '
  39.         LESPRO(3 )='ANISOTROPE      '
  40.         LESPRO(4 )='FICK            '
  41.         LESPRO(5 )='SORET           '
  42.         LESPRO(6 )='UTILISATEUR     '
  43.         LESPRO(7 )='DISSIPATION     '
  44.         LESPRO(8 )='AFFINE          '
  45.         LESPRO(9 )='VISQUEUSE       '
  46.         LESPRO(10)='ADVECTION       '
  47.       ENDIF
  48.  
  49. C  2 - Noms de types d'ELEMENTS FINIS
  50. C ------------------------------------
  51.       IF (IDIM.EQ.1) THEN
  52.         NBTEF=3
  53.         IF (NBTEF.GT.N2MAX) GOTO 99
  54. C* En DIMEnsion 1, on s'appuie sur les elements mecaniques.
  55.         LESTEF(1)='M1D2'
  56.         LESTEF(2)='M1D3'
  57.         LESTEF(3)='POI1'
  58.  
  59.       ELSEIF (IDIM.EQ.2) THEN
  60.         NBTEF=12
  61.         IF (NBTEF.GT.N2MAX) GOTO 99
  62.         LESTEF(1 )='TRI3'
  63.         LESTEF(2 )='TRI6'
  64.         LESTEF(3 )='QUA4'
  65.         LESTEF(4 )='QUA8'
  66.         LESTEF(5 )='POLY'
  67.         LESTEF(6 )='COQ2'
  68.         LESTEF(7 )='BARR'
  69.         LESTEF(8 )='BAR3'
  70.         LESTEF(9 )='TUY2'
  71.         LESTEF(10)='TUY3'
  72.         LESTEF(11)='JOI1'
  73.         LESTEF(12)='POI1'
  74.  
  75. C*    ELSE IF (IDIM.EQ.3) THEN
  76.       ELSE
  77.         NBTEF=18
  78.         IF (NBTEF.GT.N2MAX) GOTO 99
  79.         LESTEF(1 )='CUB8'
  80.         LESTEF(2 )='CU20'
  81.         LESTEF(3 )='PRI6'
  82.         LESTEF(4 )='PR15'
  83.         LESTEF(5 )='TET4'
  84.         LESTEF(6 )='TE10'
  85.         LESTEF(7 )='PYR5'
  86.         LESTEF(8 )='PY13'
  87.         LESTEF(9 )='COQ3'
  88.         LESTEF(10)='COQ4'
  89.         LESTEF(11)='COQ6'
  90.         LESTEF(12)='COQ8'
  91.         LESTEF(13)='BARR'
  92.         LESTEF(14)='BAR3'
  93.         LESTEF(15)='TUY2'
  94.         LESTEF(16)='TUY3'
  95.         LESTEF(17)='JOI1'
  96.         LESTEF(18)='POI1'
  97.       ENDIF
  98.       RETURN
  99.  
  100. C  3 - Traitement des ERREURS
  101. C ----------------------------
  102.  99   CALL ERREUR(5)
  103.       RETURN
  104.  
  105.       END
  106.  
  107.  

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