Télécharger modcon.eso

Retour à la liste

Numérotation des lignes :

  1. C MODCON SOURCE CHAT 12/06/07 21:15:36 7389
  2. SUBROUTINE MODCON(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'CONVECTION'
  5. * DEFINITION DES NOMS DES MODELES
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8. -INC CCOPTIO
  9. *
  10. CHARACTER*16 MOMODL(*)
  11. *
  12. * Noms des modeles
  13. *
  14. NMOD=2
  15. MOMODL(1)='INFERIEURE'
  16. MOMODL(2)='SUPERIEURE'
  17. RETURN
  18. END
  19.  
  20.  
  21.  
  22.  

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