Télécharger la plaquette Cast3M


fr en

Télécharger model1.eso

Retour à la liste

Numérotation des lignes : 

model1

  1. C MODEL1    SOURCE    CB215821  21/02/11    21:15:22     10886          
  2.  
  3. C=======================================================================
  4. C=  Objet MODELE  -  Cas de la formulation 'THERMIQUE'                 =
  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 MODEL1 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11.  
  12.       IMPLICIT INTEGER(I-N)
  13.       IMPLICIT REAL*8 (A-H,O-Z)
  14.  
  15. -INC PPARAM
  16. -INC CCOPTIO
  17.  
  18.       CHARACTER*16 LESPRO(*)
  19.       CHARACTER*4  LESTEF(*)
  20.  
  21. C  1 - Noms de MODELES
  22. C ---------------------
  23.       IF (IDIM.EQ.1) THEN
  24.         NBPRO=6
  25.         IF (NBPRO.GT.N1MAX) GOTO 99
  26.         LESPRO(1)='ISOTROPE'
  27.         LESPRO(2)='CONDUCTION'
  28.         LESPRO(3)='PHASE'
  29.         LESPRO(4)='CONVECTION'
  30.         LESPRO(5)='RAYONNEMENT'
  31.         LESPRO(6)='SOURCE'
  32.       ELSE
  33.         NBPRO=9
  34.         IF (NBPRO.GT.N1MAX) GOTO 99
  35.         LESPRO(1)='ISOTROPE'
  36.         LESPRO(2)='ORTHOTROPE'
  37.         LESPRO(3)='ANISOTROPE'
  38.         LESPRO(4)='PHASE'
  39.         LESPRO(5)='CONVECTION'
  40.         LESPRO(6)='RAYONNEMENT'
  41.         LESPRO(7)='ADVECTION'
  42.         LESPRO(8)='CONDUCTION'
  43.         LESPRO(9)='SOURCE'
  44.       ENDIF
  45.  
  46. C  2 - Noms de types d'ELEMENTS FINIS
  47. C ------------------------------------
  48.       IF (IDIM.EQ.1) THEN
  49.         NBTEF=2
  50.         IF (NBTEF.GT.N2MAX) GOTO 99
  51.         LESTEF(1)='T1D2'
  52.         LESTEF(2)='T1D3'
  53.       ELSE IF (IDIM.EQ.2) THEN
  54.         NBTEF=13
  55.         IF (NBTEF.GT.N2MAX) GOTO 99
  56.         LESTEF(1)='SEG2'
  57.         LESTEF(2)='SEG3'
  58.         LESTEF(3)='TRI3'
  59.         LESTEF(4)='TRI6'
  60.         LESTEF(5)='QUA4'
  61.         LESTEF(6)='QUA8'
  62.         LESTEF(7)='COQ2'
  63.         LESTEF(8)='BARR'
  64.         LESTEF(9)='BAR3'
  65.         LESTEF(10)='POLY'
  66.         LESTEF(11)='TUY2'
  67.         LESTEF(12)='TUY3'
  68.         LESTEF(13)='JOI1'
  69.  
  70. C*    ELSE IF (IDIM.EQ.3) THEN
  71.       ELSE
  72.         NBTEF=17
  73.         IF (NBTEF.GT.N2MAX) GOTO 99
  74.         LESTEF( 1)='CUB8'
  75.         LESTEF( 2)='CU20'
  76.         LESTEF( 3)='PRI6'
  77.         LESTEF( 4)='PR15'
  78.         LESTEF( 5)='TET4'
  79.         LESTEF( 6)='TE10'
  80.         LESTEF( 7)='PYR5'
  81.         LESTEF( 8)='PY13'
  82.         LESTEF( 9)='COQ3'
  83.         LESTEF(10)='COQ4'
  84.         LESTEF(11)='COQ6'
  85.         LESTEF(12)='COQ8'
  86.         LESTEF(13)='BARR'
  87.         LESTEF(14)='BAR3'
  88.         LESTEF(15)='TUY2'
  89.         LESTEF(16)='TUY3'
  90.         LESTEF(17)='JOI1'
  91.       ENDIF
  92.       RETURN
  93.  
  94. C  3 - Traitement des ERREURS
  95. C ----------------------------
  96.  99   CALL ERREUR(5)
  97.       RETURN
  98.  
  99.       END
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  

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