Esope source files

   1 : C MODE14    SOURCE    DURA      05/10/26    21:15:50     5216           
   2 : C MODE14    SOURCE    CHAT      05/01/13    01:48:37     5004           
   3 :       SUBROUTINE MODE14 (LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX)
   4 : C-----------------------------------------------------------------------
   5 : C Definition des noms de proprietes de materiau et des noms de
   6 : C type d'elements fini dans le cas d'une formulation FISSURE
   7 : C-----------------------------------------------------------------------
   8 : C
   9 : C---------------------------
  10 : C Parametres Entree/Sortie :
  11 : C---------------------------
  12 : C
  13 : C  /S LESPRO  : Noms des proprietes du materiau autorises
  14 : C  /S NBPRO   : Nombre de noms contenus dans LESPRO.
  15 : C  /S LESTEF  : Noms des types d'elements finis autorises
  16 : C  /S NBTEF   : Nombre de noms contenus dans LESTEF.
  17 : C E/  N1MAX   : Taille maximale du vecteur LESPRO.
  18 : C E/  N2MAX   : Taille maximale du vecteur LESTEF.
  19 : C
  20 : C----------------------
  21 : C Variables en COMMON :
  22 : C----------------------
  23 : C
  24 : C     IDIM    : Dimension de l'espace (2 en 2D, 3 en 3D)
  25 : C
  26 : C-----------------------------------------------------------------------
  27 : C
  28 : C Langage : FORTRAN77
  29 : C
  30 : C Auteurs : H. SIMON 04/2005
  31 : C
  32 : C-----------------------------------------------------------------------
  33 :       IMPLICIT INTEGER(I-N)
  34 : -INC CCOPTIO                                                                    
  35 : C
  36 :       CHARACTER*16 MOMODL(200)
  37 :       CHARACTER*16 LESPRO(*)                  
  38 :       CHARACTER*4  LESTEF(*)
  39 : C                                                                               
  40 : C  1 - Noms de MODELES :
  41 : C -----------------------
  42 : C type de condensation
  42 :       CALL MODCDE(MOMODL,NMOD)
  43 :       DO i=1,NMOD
  44 :         LESPRO(i)=MOMODL(i)
  45 :       ENDDO
  46 :       NBPRO=NMOD
  47 : C comportement de la vapeur
  47 :       CALL MODVAP(MOMODL,NMOD)
  48 :       DO i=NBPRO+1,NBPRO+NMOD
  49 :         LESPRO(i)=MOMODL(i-NBPRO)
  50 :       ENDDO
  51 :       NBPRO=NBPRO+NMOD
  52 : C lois de frottement utilisateur
  52 :       CALL MODFRT(MOMODL,NMOD)
  53 :       DO i=NBPRO+1,NBPRO+NMOD
  54 :         LESPRO(i)=MOMODL(i-NBPRO)
  55 :       ENDDO
  56 :       NBPRO=NBPRO+NMOD
  57 :       IF (NBPRO.GT.N1MAX) GOTO 100
  58 : 
  59 : C  2 - Noms de types d'ELEMENTS FINIS :
  60 : C --------------------------------------
  61 :       IF (IDIM.EQ.1) THEN
  62 :         NBTEF=1
  63 :         IF (NBTEF.GT.N2MAX) GOTO 100
  64 :         LESTEF(1)='SEG2'
  65 :       ELSE IF (IDIM.EQ.2) THEN
  66 :         NBTEF=1
  67 :         IF (NBTEF.GT.N2MAX) GOTO 100
  68 :         LESTEF(1)='SEG2'
  69 :       ELSE
  70 :         NBTEF=1
  71 :         IF (NBTEF.GT.N2MAX) GOTO 100
  72 :         LESTEF(1)='SEG2'
  73 :       ENDIF
  74 :       RETURN
  75 : 
  76 : C  3 - Traitement des ERREURS
  77 : C ----------------------------
  78 :                                                                               
  78 :  100  CALL ERREUR(5)
  79 :       RETURN                                                                    
  80 :       END                                                                       
  81 :  
  82 :