Esope source files

   1 : C MODEND    SOURCE    BR232186  12/08/01    22:29:12     7456           
   2 :       SUBROUTINE MODEND(MOMODL,NMOD)
   3 : *----------------------------------------------------------------------
   4 : *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'ENDOMMAGEMENT'
   5 : *    DEFINITION DES NOMS DES MATERIAUX
   6 : *----------------------------------------------------------------------
   7 :       IMPLICIT INTEGER(I-N)
   8 : -INC CCOPTIO
   9 : *
  10 :       CHARACTER*16 MOMODL(*)
  11 : *
  12 : *     Noms des materiaux
  13 : *
  14 : 
  15 : C     +BR
  16 : C      NMOD=15
  17 :       NMOD = 18
  18 : C     -BR
  19 : 
  20 :       MOMODL(1)='MAZARS'
  21 :       MOMODL(2)='UNILATERAL'
  22 :       MOMODL(3)='ROTATING_CRACK'
  23 :       MOMODL(4)='SIC_SIC'
  24 :       MOMODL(5)='MICROPLANS'
  25 :       MOMODL(6)='VISCOUNILATERAL'
  26 :       MOMODL(7)='MICROISO'
  27 :       MOMODL(8)='MVM'
  28 :       MOMODL(9)='CRUCRA'
  29 :       MOMODL(10)='DAMAGE_TC' 
  30 :       MOMODL(11)='SICSCAL' 
  31 :       MOMODL(12)='SICTENS' 
  32 :       MOMODL(13)='DESMORAT' 
  33 :       MOMODL(14)='FATSIN' 
  34 :       MOMODL(15)='RICRAG' 
  35 :       MOMODL(16)='GLRC_DM' 
  36 :       MOMODL(17)='RICBET' 
  37 :       MOMODL(18)='RICCOQ' 
  38 :           
  39 :       RETURN
  40 :       END
  41 : 
  42 : 
  43 : 
  44 : 
  45 :  
  46 :  
  47 :  
  48 :  
  49 :  
  50 :  
  51 :