Esope source files

   1 : C MODEL9    SOURCE    CHAT      12/06/07    21:15:38     7389           
   2 : 
   3 : C=======================================================================
   4 : C=  Objet MODELE  -  Cas de la formulation 'RAYONNEMENT'               =
   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 MODEL9(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
  11 : 
  12 :       IMPLICIT INTEGER(I-N)
  13 :       IMPLICIT REAL*8 (A-H,O-Z)      
  14 : -INC CCOPTIO
  15 :       CHARACTER*16 LESPRO(*)
  16 :       CHARACTER*4 LESTEF(*)
  17 : 
  18 : C  1 - Noms de MODELES :
  19 : C -----------------------
  20 :       NBPRO=9
  21 :          LESPRO(1)='CAVITE'
  22 :          LESPRO(2)='FAC_A_FAC'
  23 :          LESPRO(3)='INFINI'
  24 :          LESPRO(4)='CONVEXE'
  25 :          LESPRO(5)='FERME'
  26 :          LESPRO(6)='TRAYO'
  27 :          LESPRO(7)='SYMETRIE'
  28 :          lespro(8)='NGAU'
  29 :          lespro(9)='DANG'
  30 :          
  31 : C  2 - Noms de types d'ELEMENTS FINIS :
  32 : C --------------------------------------
  33 :       IF (IDIM.EQ.1) THEN
  34 :         NBTEF=2
  35 :         IF (NBTEF.GT.N2MAX) GOTO 99
  36 :         LESTEF(1)='POI1'
  37 :         LESTEF(2)='SEG2'
  38 :       ELSE IF (IDIM.EQ.2) THEN
  39 :         NBTEF=3
  40 :         IF (NBTEF.GT.N2MAX) GOTO 99
  41 :         LESTEF(1)='SEG2'
  42 :         LESTEF(2)='SEG3'
  43 :         LESTEF(3)='COQ2'
  44 : C**   ELSE IF (IDIM.EQ.3) THEN
  45 :       ELSE
  46 :         NBTEF=8
  47 :         IF (NBTEF.GT.N2MAX) GOTO 99
  48 :         LESTEF(1)='TRI3'
  49 :         LESTEF(2)='TRI6'
  50 :         LESTEF(3)='QUA4'
  51 :         LESTEF(4)='QUA8'
  52 :         LESTEF(5)='COQ3'
  53 :         LESTEF(6)='COQ6'
  54 :         LESTEF(7)='COQ4'
  55 :         LESTEF(8)='COQ8'
  56 :       ENDIF
  57 :       RETURN
  58 : 
  59 : C  3 - Traitement des ERREURS
  60 : C ----------------------------
  60 :  99   CALL ERREUR(5)
  61 :       RETURN
  62 : 
  63 :       END
  64 : 
  65 :  
  66 :  
  67 :