Esope source files

   1 : C MODE15    SOURCE    KICH      07/12/10    21:16:50     5994           
   2 : C=======================================================================
   3 : C=  Objet MODELE  -  Cas de la formulation 'LIAISON_MATERIELLE'        =
   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 MODE15 (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 MOMODL(200)
  17 :       CHARACTER*16 LESPRO(*)
  18 :       CHARACTER*4 LESTEF(*)
  19 : 
  20 : C  1 - Noms des comportements LINEAIRES
  21 : C --------------------------------------
  21 :       CALL MODLIA(MOMODL,NMOD)
  22 :       DO i=1,NMOD
  23 :         LESPRO(i)=MOMODL(i)
  24 :       ENDDO
  25 :       NBPRO=NMOD
  26 : C
  27 : C
  28 :       IF (NBPRO.GT.N1MAX) GOTO 99
  29 : 
  30 : C  11 - Noms de types d'ELEMENTS FINIS
  31 : C -------------------------------------
  32 : C  DIMENSION 1 :
  33 : C ---------------
  34 :         NBTEF=1
  35 :         IF (NBTEF.GT.N2MAX) GOTO 99
  36 :         LESTEF(1)='POI1'
  37 : 
  38 :       RETURN
  39 : 
  40 : C  12 - Traitement des ERREURS
  41 : C -----------------------------
  41 :   99  CALL ERREUR(5)
  42 :       RETURN
  43 : 
  44 :       END
  45 : 
  46 :  
  47 :  
  48 :  
  49 :