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