Sources Esope | Cast3M

mocont
C MOCONT    SOURCE    CHAT      12/01/17    21:15:35     7248
             SUBROUTINE MOCONT(MOMODL,NMOD)
*----------------------------------------------------------------------
*     -  CAS DE LA FORMULATION 'CONTACT'
*            DEFINITION Du comportement global
*----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
*
      CHARACTER*16 MOMODL(*)
*
*     Noms des modeles
*
      NMOD=5
      MOMODL(1)='UNILATERAL'
      MOMODL(2)='PERMANENT'
      MOMODL(3)='FROTTANT'
      MOMODL(4)='COULOMB'
      MOMODL(5)='FROCABLE'
      RETURN
      END