Télécharger la plaquette Cast3M


fr en

Télécharger modflu.eso

Retour à la liste

Numérotation des lignes : 

modflu

  1. C MODFLU    SOURCE    AM        16/06/08    21:15:31     8953           
  2.       SUBROUTINE MODFLU(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'FLUAGE'
  5. *    DEFINITION DES NOMS DES MATERIAUX
  6. *----------------------------------------------------------------------
  7.       IMPLICIT INTEGER(I-N)
  8.  
  9. -INC PPARAM
  10. -INC CCOPTIO
  11. *
  12.       CHARACTER*16 MOMODL(*)
  13. *
  14. *     Noms des materiaux
  15. *
  16.       NMOD=19
  17.       MOMODL(1)='NORTON'
  18.       MOMODL(2)='BLACKBURN'
  19.       MOMODL(3)='RCCMR_316'
  20.       MOMODL(4)='RCCMR_304'
  21.       MOMODL(5)='LEMAITRE'
  22.       MOMODL(6)='POLYNOMIAL'
  23.       MOMODL(7)='BLACKBURN_2'
  24.       MOMODL(8)='CERAMIQUE'
  25.       MOMODL(9)='MAXWELL'
  26.       MOMODL(10)='COMETE'
  27.       MOMODL(11)='CCPL'
  28.       MOMODL(12)='X11'
  29.       MOMODL(13)='BPEL_RELAX'
  30.       MOMODL(14)='BETON_URGC'
  31.       MOMODL(15)='SODERBERG'
  32.       MOMODL(16)='MAXOTT'
  33.       MOMODL(17)='FBB1'
  34.       MOMODL(18)='FBB2'
  35.       MOMODL(19)='KELVIN'
  36.       RETURN
  37.       END
  38.  
  39.  
  40.  
  41.  
  42.  
  43.  
  44.  
  45.  
  46.  
  47.  
  48.  
  49.  

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