Télécharger mochph.eso

Retour à la liste

Numérotation des lignes :

mochph
  1. C MOCHPH SOURCE CB215821 21/08/20 21:15:14 11089
  2. SUBROUTINE MOCHPH(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'CHANGEMENT_PHASE'
  5. * DEFINITION DES NOMS DES MODELES
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. *
  12. CHARACTER*16 MOMODL(*)
  13. *
  14. * Mots attendus à la lecture des données de l'operateur MODE
  15. *
  16. NMOD=2
  17. MOMODL(1)='PARFAIT '
  18. MOMODL(2)='SOLUBILITE '
  19. * MOMODL(3)='PROGRESSIF '
  20.  
  21. END
  22.  

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