Esope source files

   1 : C MODE16    SOURCE    CHAT      08/10/02    21:15:34     6168           
   2 : C=======================================================================
   3 : C=  Objet MODELE  -  Cas de la formulation 'THERMOHYDRIQUE'            =
   4 : C=                                                                     =
   5 : C=   Definition des noms de modeles de MATERIAU                        =
   6 : C=           et des noms de types d'ELEMENTS FINIS                     =
   7 : C=======================================================================
   8 : 
   9 :       SUBROUTINE MODE16 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  10 : 
  11 :       IMPLICIT INTEGER(I-N)
  12 :       IMPLICIT REAL*8 (A-H,O-Z)
  13 : 
  14 : -INC CCOPTIO
  15 : 
  16 :       CHARACTER*16 LESPRO(*)
  17 :       CHARACTER*4 LESTEF(*)
  18 :       
  19 : 
  20 : C  1 - Noms de MODELES
  21 : C ---------------------
  22 :       
  23 : *      IF (IDIM.EQ.1) THEN
  24 : *        NBPRO=1
  25 : *        IF (NBPRO.GT.N1MAX) GOTO 99
  26 : *        LESPRO(1)='SCHREFLER'
  27 : *      ELSE
  28 :         NBPRO=1
  29 :         IF (NBPRO.GT.N1MAX) GOTO 99
  30 :         LESPRO(1)='SCHREFLER'
  31 : *        LESPRO(2)='2eme choix'
  32 : *      ENDIF
  33 : 
  34 : C  2 - Noms de types d'ELEMENTS FINIS
  35 : C ------------------------------------
  36 : *      IF (IDIM.EQ.1) THEN
  37 : *        NBTEF=2
  38 : *        IF (NBTEF.GT.N2MAX) GOTO 99
  39 : *        LESTEF(1)='T1D2'
  40 : *        LESTEF(2)='T1D3'
  41 : *      ELSE IF (IDIM.EQ.2) THEN
  42 :       IF (IDIM.EQ.2) THEN
  43 :         NBTEF=6
  44 :         IF (NBTEF.GT.N2MAX) GOTO 99
  45 :         LESTEF(1)='SEG2'
  46 :         LESTEF(2)='SEG3'
  47 :         LESTEF(3)='TRI3'
  48 :         LESTEF(4)='TRI6'
  49 :         LESTEF(5)='QUA4'
  50 :         LESTEF(6)='QUA8'
  51 : C*    ELSE IF (IDIM.EQ.3) THEN
  52 :       ELSE
  53 :         NBTEF=8
  54 :         IF (NBTEF.GT.N2MAX) GOTO 99
  55 :         LESTEF( 1)='CUB8'
  56 :         LESTEF( 2)='CU20'
  57 :         LESTEF( 3)='PRI6'
  58 :         LESTEF( 4)='PR15'
  59 :         LESTEF( 5)='TET4'
  60 :         LESTEF( 6)='TE10'
  61 :         LESTEF( 7)='PYR5'
  62 :         LESTEF( 8)='PY13'
  63 :       ENDIF
  64 :       RETURN
  65 : 
  66 : C  3 - Traitement des ERREURS
  67 : C ----------------------------
  67 :  99   CALL ERREUR(5)
  68 :       RETURN
  69 : 
  70 :       END
  71 : 
  72 :  
  73 :  
  74 :