Télécharger modnlo.eso

Retour à la liste

Numérotation des lignes :

  1. C MODNLO SOURCE AM 17/09/25 21:15:16 9566
  2. SUBROUTINE MODNLO(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * CAS DES FORMULATIONS NON_LOCALES
  5. * DEFINITION DES NOMS DES FORMULATIONS
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8. *
  9. CHARACTER*4 MOMODL(*)
  10. *
  11. * Noms des modeles
  12. *
  13. NMOD=3
  14. MOMODL(1)='MOYE'
  15. MOMODL(2)='SB'
  16. MOMODL(3)='HELM'
  17. RETURN
  18. END
  19.  
  20.  
  21.  

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