Sources Esope | Cast3M

mochar
C MOCHAR    SOURCE    MB234859  16/09/16    21:15:34     9091           
             SUBROUTINE MOCHAR(MOMODL,NMOD)
*----------------------------------------------------------------------
*     -  CAS DE LA FORMULATION 'CHARGEMENT'
*
*----------------------------------------------------------------------
      IMPLICIT INTEGER(I-N)
 
-INC PPARAM
-INC CCOPTIO
*
      CHARACTER*16 MOMODL(*)
*
*     Noms des chargements
*
      NMOD=1
      MOMODL(1)='PRESSION'
      RETURN
      END