Télécharger mochar.eso

Retour à la liste

Numérotation des lignes :

  1. C MOCHAR SOURCE MB234859 16/09/16 21:15:34 9091
  2. SUBROUTINE MOCHAR(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'CHARGEMENT'
  5. *
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8. -INC CCOPTIO
  9. *
  10. CHARACTER*16 MOMODL(*)
  11. *
  12. * Noms des chargements
  13. *
  14. NMOD=1
  15. MOMODL(1)='PRESSION'
  16. RETURN
  17. END
  18.  

© Cast3M 2003 - Tous droits réservés.
Mentions légales