Esope source files

   1 : C MODEL7    SOURCE    CHAT      05/01/13    01:48:37     5004           
   2 :       SUBROUTINE MODEL7(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
   3 : C-----------------------------------------------------------------------
   4 : C Definition des noms de proprietes de materiau et du noms de
   5 : C type d'elements fini dans le cas d'une formulation DARCY
   6 : C-----------------------------------------------------------------------
   7 : C
   8 : C---------------------------
   9 : C Parametres Entree/Sortie :
  10 : C---------------------------
  11 : C
  12 : C  /S LESPRO  : Noms des proprietes du materiau autorises
  13 : C  /S NBPRO   : Nombre de noms contenus dans LESPRO.
  14 : C  /S LESTEF  : Noms des types d'elements finis autorises
  15 : C  /S NBTEF   : Nombre de noms contenus dans LESTEF.
  16 : C E/  N1MAX   : Taille maximale du vecteur LESPRO.
  17 : C E/  N2MAX   : Taille maximale du vecteur LESTEF.
  18 : C
  19 : C----------------------
  20 : C Variables en COMMON :
  21 : C----------------------
  22 : C
  23 : C     IDIM    : Dimension de l'espace (2 en 2D, 3 en 3D)
  24 : C
  25 : C-----------------------------------------------------------------------
  26 : C
  27 : C Langage : FORTRAN77
  28 : C
  29 : C Auteurs : F.DABBENE 08/93
  30 : C
  31 : C-----------------------------------------------------------------------
  32 :       IMPLICIT INTEGER(I-N)
  33 : -INC CCOPTIO                                                                    
  34 : C
  35 :       CHARACTER*16 LESPRO(*)                                                    
  36 :       CHARACTER*4  LESTEF(*)
  37 : *                                                                               
  38 : *= Noms des proprietes de materiau autorisees
  39 : *                                                                               
  40 :       NBPRO = 3
  41 :       IF (NBPRO.GT.N1MAX) THEN
  42 :          GOTO 100
  43 :       ELSE
  44 :          LESPRO(1) = 'ISOTROPE'
  45 :          LESPRO(2) = 'ORTHOTROPE'
  46 :          LESPRO(3) = 'ANISOTROPE'
  47 :       ENDIF
  48 : *                                                                               
  49 : *= Noms des types d'elements finis autorises
  50 : *                                                                               
  51 :       IF (IDIM.EQ.2) THEN
  52 :          NBTEF = 2
  53 :          IF (NBTEF.GT.N2MAX) THEN
  54 :             GOTO 100
  55 :          ELSE
  56 :             LESTEF(1) = 'HYT3'
  57 :             LESTEF(2) = 'HYQ4'
  58 :          ENDIF
  59 :       ELSE                                                                      
  60 :          NBTEF = 3
  61 :          IF (NBTEF.GT.N2MAX) THEN
  62 :             GOTO 100
  63 :          ELSE
  64 :             LESTEF(1) = 'HYT4'
  65 :             LESTEF(2) = 'HYP6'
  66 :             LESTEF(3) = 'HYC8'
  67 :          ENDIF
  68 :       ENDIF                                                                     
  69 : *
  70 :       RETURN                                                                    
  71 : *                                                                               
  72 : *= ERREUR : Taille d'un des vecteurs LES... insuffisante.
  73 : *                                                                               
  73 :  100  CALL ERREUR(5)
  74 :       RETURN                                                                    
  75 :       END                                                                       
  76 :