Télécharger modvix.eso

Retour à la liste

Numérotation des lignes :

modvix
  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.  
  14. -INC PPARAM
  15. -INC CCOPTIO
  16. C
  17. CHARACTER*16 MOMODL(*)
  18. C
  19. C Noms des materiaux
  20. C
  21. NMOD = 5
  22. MOMODL(1) = 'GENERAL'
  23. MOMODL(2) = 'DRUCKER_PRAGER'
  24. MOMODL(3) = 'COHESION'
  25. MOMODL(4) = 'CONSOLIDATION'
  26. MOMODL(5) = 'UTILISATEUR'
  27. C
  28. RETURN
  29. END
  30.  
  31.  
  32.  

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