Sources Esope | Cast3M

modenl
C MODENL    SOURCE    CHAT      05/01/13    01:49:16     5004
       SUBROUTINE MODENL(MOMODL,NMOD)
*----------------------------------------------------------------------
*     -  CAS DE LA FORMULATION 'MECANIQUE' + 'NON_LINEAIRE'
*    DEFINITION DES NOMS DES MATERIAUX
*----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
*
      CHARACTER*16 MOMODL(*)
*
*     Noms des materiaux
*
      NMOD=2
      MOMODL( 1)='EQUIPLAS'
      MOMODL( 2)='UTILISATEUR'
      RETURN
      END