Télécharger modlin.eso

Retour à la liste

Numérotation des lignes :

modlin
  1. C MODLIN SOURCE CHAT 05/01/13 01:49:58 5004
  2. SUBROUTINE MODLIN (MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. * - CAS DE LA FORMULATION 'MECANIQUE'
  5. * DEFINITION DES NOMS DES COMPORTEMENTS LINEAIRES
  6. *----------------------------------------------------------------------
  7. IMPLICIT INTEGER(I-N)
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. *
  12. CHARACTER*16 MOMODL(*)
  13. *
  14. * Noms des comportements
  15. *
  16. NMOD=1
  17. MOMODL( 1)='ELASTIQUE'
  18. RETURN
  19. END
  20.  
  21.  

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