C MOCONT    SOURCE    MB234859  26/07/24    21:15:04     12606          
             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=6
      MOMODL(1)='UNILATERAL'
      MOMODL(2)='PERMANENT'
      MOMODL(3)='FROTTANT'
      MOMODL(4)='COULOMB'
      MOMODL(5)='FROCABLE'
      MOMODL(6)='BILATERAL'
      RETURN
      END