Télécharger la plaquette Cast3M


fr en

Télécharger modvis.eso

Retour à la liste

Numérotation des lignes : 

modvis

  1. C MODVIS    SOURCE    FD218221  24/02/07    21:15:20     11834          
  2.       SUBROUTINE MODVIS(MOMODL,NMOD)
  3. *----------------------------------------------------------------------
  4. *     -  CAS DE LA FORMULATION 'MECANIQUE' + 'VISCOPLASTIQUE'
  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=35
  17.       MOMODL(1)='GUIONNET'
  18.       MOMODL(2)='ONERA'
  19.       MOMODL(3)='VISCODOMMAGE'
  20.       MOMODL(4)='PARFAIT'
  21.       MOMODL(5)='POUDRE_A'
  22.       MOMODL(6)='POUDRE_B'
  23.       MOMODL(7)='OHNO'
  24.       MOMODL(8)='DDI'
  25.       MOMODL(9)='KOCKS'
  26.       MOMODL(10)='NOUAILHAS_A'
  27.       MOMODL(11)='NOUAILHAS_B'
  28.       MOMODL(12)='VISK2'
  29.       MOMODL(13)='VISCOHINTE'
  30.       MOMODL(14)='MISTRAL'
  31.       MOMODL(15)='BETON_URGC'
  32.       MOMODL(16)='LEMENDO'
  33.       MOMODL(17)='FLUNOR2'
  34.       MOMODL(18)='GATT_MONERIE'
  35.       MOMODL(19)='UO2'
  36.       MOMODL(20)='BETON_URGC_ENDO'
  37.       MOMODL(21)='VISCODD'
  38.       MOMODL(22)='CHAB_SINH_R'
  39.       MOMODL(23)='CHAB_SINH_X'
  40.       MOMODL(24)='CHAB_NOR_R'
  41.       MOMODL(25)='CHAB_NOR_X'
  42.       MOMODL(26)='PELLET'
  43.       MOMODL(27)='FLUTRA'
  44.       MOMODL(28)='SYCO1'
  45.       MOMODL(29)='SYCO2'
  46.       MOMODL(30)='CHABOCHE'    
  47.       MOMODL(31)='FLUENDO3D'
  48.       MOMODL(32)='INCLUSION3D'
  49.       MOMODL(33)='ENDO3D'
  50.       MOMODL(34)='FLUISO3D'
  51.       MOMODL(35)='FLUORTHO3D'      
  52.  
  53.       RETURN
  54.       END
  55.  
  56.  
  57.  
  58.  
  59.  
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  

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