Esope source files

   1 : C MODVIX    SOURCE    CHAT      05/01/13    01:50:52     5004           
   2 : C MODVIX
   3 :       SUBROUTINE MODVIX(MOMODL,NMOD)
   4 : C-----------------------------------------------------------------------
   5 : C
   6 : C     -  CAS DE LA FORMULATION 'MECANIQUE' + 'VISCO_EXTERNE'
   7 : C
   8 : C     DEFINITION DES NOMS DES MATERIAUX
   9 : C
  10 : C-----------------------------------------------------------------------
  11 : C
  12 :       IMPLICIT INTEGER(I-N)
  13 : -INC CCOPTIO
  14 : C
  15 :       CHARACTER*16 MOMODL(*)
  16 : C
  17 : C     Noms des materiaux
  18 : C
  19 :       NMOD = 5
  20 :       MOMODL(1) = 'GENERAL'
  21 :       MOMODL(2) = 'DRUCKER_PRAGER'
  22 :       MOMODL(3) = 'COHESION'
  23 :       MOMODL(4) = 'CONSOLIDATION'
  24 :       MOMODL(5) = 'UTILISATEUR'
  25 : C
  26 :       RETURN
  27 :       END
  28 :  
  29 :