Télécharger modcon.eso

Retour à la liste

Numérotation des lignes :

modcon
  1. C MODCON SOURCE MB234859 25/08/26 21:15:06 12343
  2. C=======================================================================
  3. C= Objet MODELE - Cas de la formulation 'CONVECTION' =
  4. C= =
  5. C= Definition des noms de modeles de MATERIAU =
  6. C=======================================================================
  7. C
  8. SUBROUTINE MODCON(MOMODL,NMOD)
  9. C
  10. IMPLICIT INTEGER(I-N)
  11. C
  12. CHARACTER*16 MOMODL(*)
  13. C
  14. IF (IDIM.EQ.1) THEN
  15. NMOD=0
  16. ELSE
  17. NMOD=2
  18. MOMODL(1)='INFERIEURE '
  19. MOMODL(2)='SUPERIEURE '
  20. ENDIF
  21.  
  22. END
  23.  
  24.  

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