Télécharger modray.eso

Retour à la liste

Numérotation des lignes :

modray
  1. C MODRAY SOURCE CHAT 12/06/07 21:15:45 7389
  2. subroutine modray(momodl,nmod)
  3. implicit integer(i-n)
  4. implicit real*8(a-h,o-z)
  5. CHARACTER*16 MOMODL(*)
  6. nmod=9
  7. MOMODL(1)='FAC_A_FAC'
  8. MOMODL(2)='INFINI'
  9. MOMODL(3)='CAVITE'
  10. MOMODL(4)='SYMETRIE'
  11. MOMODL(5)='CONVEXE'
  12. MOMODL(6)='FERME'
  13. MOMODL(7)='TRAYO'
  14. MOMODL(8)='NGAU'
  15. MOMODL(9)='DANG'
  16.  
  17. return
  18. end
  19.  
  20.  

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