Esope source files

   1 : C MODE18    SOURCE    FANDEUR   10/12/17    21:18:03     6427           
   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 : -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=4
  24 :         IF (NBPRO.GT.N1MAX) GOTO 99
  25 :         LESPRO(1)='ISOTROPE        '
  26 :         LESPRO(2)='FICK            '
  27 :         LESPRO(3)='SORET           '
  28 :         LESPRO(4)='UTILISATEUR     '
  29 :       ELSE
  30 :         NBPRO=6
  31 :         IF (NBPRO.GT.N1MAX) GOTO 99
  32 :         LESPRO(1)='ISOTROPE        '
  33 :         LESPRO(2)='ORTHOTROPE      '
  34 :         LESPRO(3)='ANISOTROPE      '
  35 :         LESPRO(4)='FICK            '
  36 :         LESPRO(5)='SORET           '
  37 :         LESPRO(6)='UTILISATEUR     '
  38 :       ENDIF
  39 : 
  40 : C  2 - Noms de types d'ELEMENTS FINIS
  41 : C ------------------------------------
  42 :       IF (IDIM.EQ.1) THEN
  43 :         NBTEF=2
  44 :         IF (NBTEF.GT.N2MAX) GOTO 99
  45 : C* En DIMEnsion 1, on s'appuie sur les elements mecaniques.
  46 :         LESTEF(1)='M1D2'
  47 :         LESTEF(2)='M1D3'
  48 :       ELSE IF (IDIM.EQ.2) THEN
  49 :         NBTEF=5
  50 :         IF (NBTEF.GT.N2MAX) GOTO 99
  51 :         LESTEF(1)='TRI3'
  52 :         LESTEF(2)='TRI6'
  53 :         LESTEF(3)='QUA4'
  54 :         LESTEF(4)='QUA8'
  55 :         LESTEF(5)='POLY'
  56 : C*    ELSE IF (IDIM.EQ.3) THEN
  57 :       ELSE
  58 :         NBTEF=8
  59 :         IF (NBTEF.GT.N2MAX) GOTO 99
  60 :         LESTEF(1)='CUB8'
  61 :         LESTEF(2)='CU20'
  62 :         LESTEF(3)='PRI6'
  63 :         LESTEF(4)='PR15'
  64 :         LESTEF(5)='TET4'
  65 :         LESTEF(6)='TE10'
  66 :         LESTEF(7)='PYR5'
  67 :         LESTEF(8)='PY13'
  68 :       ENDIF
  69 :       RETURN
  70 : 
  71 : C  3 - Traitement des ERREURS
  72 : C ----------------------------
  72 :  99   CALL ERREUR(5)
  73 :       RETURN
  74 : 
  75 :       END
  76 : 
  77 :