Télécharger la plaquette Cast3M


fr en

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