Télécharger la plaquette Cast3M


fr en

Télécharger modple.eso

Retour à la liste

Numérotation des lignes : 

modple

  1. C MODPLE    SOURCE    AM        12/02/06    21:16:13     7281
  2.       SUBROUTINE MODPLE(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'PLASTIQUE_ENDOM'
  5. *    DEFINITION DES NOMS DES MATERIAUX
  6. *----------------------------------------------------------------------
  7.       IMPLICIT INTEGER(I-N)
  8. -INC PPARAM
  9. -INC CCOPTIO
  10. *
  11.       CHARACTER*16 MOMODL(*)
  12. *
  13. *     Noms des materiaux
  14. *
  15.       NMOD=10
  16.       MOMODL( 1)='PSURY'
  17.       MOMODL( 2)='ROUSSELIER'
  18.       MOMODL( 3)='GURSON2'
  19.       MOMODL( 4)='DRAGON'
  20.       MOMODL( 5)='BETON_URGC'
  21.       MOMODL( 6)='BETON_INSA'
  22.       MOMODL( 7)='BETON_DYNAR_LMT'
  23.       MOMODL( 8)='ENDO_PLAS'
  24.       MOMODL( 9)='GERNAY'
  25.       MOMODL(10)='WELLS'
  26.       RETURN
  27.       END
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  

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