Télécharger mometa.eso

Retour à la liste

Numérotation des lignes :

  1. C MOMETA SOURCE CB215821 18/09/10 21:16:24 9912
  2. C MOMETA SOURCE PV 14/05/18 21:15:48
  3. SUBROUTINE MOMETA(MOMODL,NMOD)
  4. *----------------------------------------------------------------------
  5. * - CAS DE LA FORMULATION 'METALLURGIE'
  6. * DEFINITION DES NOMS DES MODELES
  7. *----------------------------------------------------------------------
  8. IMPLICIT INTEGER(I-N)
  9. -INC CCOPTIO
  10. *
  11. CHARACTER*16 MOMODL(*)
  12. *
  13. * Mots attendus à la lecture des données de l'operateur MODE
  14. *
  15. NMOD=4
  16. MOMODL(1)='PHASES '
  17. MOMODL(2)='REACTIFS '
  18. MOMODL(3)='PRODUITS '
  19. MOMODL(4)='TYPE '
  20. RETURN
  21. END
  22.  
  23.  

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