Télécharger modvix.eso

Retour à la liste

Numérotation des lignes :

  1. C MODVIX SOURCE CHAT 05/01/13 01:50:52 5004
  2. C MODVIX
  3. SUBROUTINE MODVIX(MOMODL,NMOD)
  4. C-----------------------------------------------------------------------
  5. C
  6. C - CAS DE LA FORMULATION 'MECANIQUE' + 'VISCO_EXTERNE'
  7. C
  8. C DEFINITION DES NOMS DES MATERIAUX
  9. C
  10. C-----------------------------------------------------------------------
  11. C
  12. IMPLICIT INTEGER(I-N)
  13. -INC CCOPTIO
  14. C
  15. CHARACTER*16 MOMODL(*)
  16. C
  17. C Noms des materiaux
  18. C
  19. NMOD = 5
  20. MOMODL(1) = 'GENERAL'
  21. MOMODL(2) = 'DRUCKER_PRAGER'
  22. MOMODL(3) = 'COHESION'
  23. MOMODL(4) = 'CONSOLIDATION'
  24. MOMODL(5) = 'UTILISATEUR'
  25. C
  26. RETURN
  27. END
  28.  
  29.  
  30.  

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