Télécharger modray.eso

Retour à la liste

Numérotation des lignes :

modray
  1. C MODRAY SOURCE MB234859 25/08/26 21:15:15 12343
  2. C=======================================================================
  3. C= Objet MODELE - Cas de la formulation 'RAYONNEMENT' =
  4. C= =
  5. C= Definition des noms de modeles de MATERIAU =
  6. C=======================================================================
  7. C
  8. SUBROUTINE MODRAY(MOMODL,NMOD)
  9. C
  10. IMPLICIT INTEGER(I-N)
  11. IMPLICIT REAL*8(A-H,O-Z)
  12. C
  13. CHARACTER*16 MOMODL(*)
  14. C
  15. NMOD=9
  16. MOMODL(1)='CAVITE '
  17. MOMODL(2)='FAC_A_FAC '
  18. MOMODL(3)='INFINI '
  19. MOMODL(4)='CONVEXE '
  20. MOMODL(5)='FERME '
  21. MOMODL(6)='TRAYO '
  22. MOMODL(7)='SYMETRIE '
  23. MOMODL(8)='NGAU '
  24. MOMODL(9)='DANG '
  25.  
  26. END
  27.  
  28.  

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