Esope source files

   1 : C MODEL1    SOURCE    FANDEUR   12/07/05    21:16:02     7423           
   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 CCOPTIO
  16 : 
  17 :       CHARACTER*16 LESPRO(*)
  18 :       CHARACTER*4 LESTEF(*)
  19 : 
  20 : C  1 - Noms de MODELES
  21 : C ---------------------
  22 :       IF (IDIM.EQ.1) THEN
  23 :         NBPRO=5
  24 : c*      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 : c*      LESPRO(6)='ADVECTION'
  32 :       ELSE
  33 :         NBPRO=8
  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 :       ENDIF
  44 : 
  45 : C  2 - Noms de types d'ELEMENTS FINIS
  46 : C ------------------------------------
  47 :       IF (IDIM.EQ.1) THEN
  48 :         NBTEF=2
  49 :         IF (NBTEF.GT.N2MAX) GOTO 99
  50 :         LESTEF(1)='T1D2'
  51 :         LESTEF(2)='T1D3'
  52 :       ELSE IF (IDIM.EQ.2) THEN
  53 :         NBTEF=12
  54 :         IF (NBTEF.GT.N2MAX) GOTO 99
  55 :         LESTEF(1)='SEG2'
  56 :         LESTEF(2)='SEG3'
  57 :         LESTEF(3)='TRI3'
  58 :         LESTEF(4)='TRI6'
  59 :         LESTEF(5)='QUA4'
  60 :         LESTEF(6)='QUA8'
  61 :         LESTEF(7)='COQ2'
  62 :         LESTEF(8)='BARR'
  63 :         LESTEF(9)='BAR3'
  64 :         LESTEF(10)='POLY'
  65 :         LESTEF(11)='TUY2'
  66 :         LESTEF(12)='TUY3'
  67 :         
  68 : C*    ELSE IF (IDIM.EQ.3) THEN
  69 :       ELSE
  70 :         NBTEF=16
  71 :         IF (NBTEF.GT.N2MAX) GOTO 99
  72 :         LESTEF( 1)='CUB8'
  73 :         LESTEF( 2)='CU20'
  74 :         LESTEF( 3)='PRI6'
  75 :         LESTEF( 4)='PR15'
  76 :         LESTEF( 5)='TET4'
  77 :         LESTEF( 6)='TE10'
  78 :         LESTEF( 7)='PYR5'
  79 :         LESTEF( 8)='PY13'
  80 :         LESTEF( 9)='COQ3'
  81 :         LESTEF(10)='COQ4'
  82 :         LESTEF(11)='COQ6'
  83 :         LESTEF(12)='COQ8'
  84 :         LESTEF(13)='BARR'
  85 :         LESTEF(14)='BAR3'
  86 :         LESTEF(15)='TUY2'
  87 :         LESTEF(16)='TUY3'
  88 :       ENDIF
  89 :       RETURN
  90 : 
  91 : C  3 - Traitement des ERREURS
  92 : C ----------------------------
  92 :  99   CALL ERREUR(5)
  93 :       RETURN
  94 : 
  95 :       END
  96 : 
  97 :  
  98 :  
  99 :  
 100 :