C MODVIS SOURCE FD218221 24/02/07 21:15:20 11834 SUBROUTINE MODVIS(MOMODL,NMOD) *---------------------------------------------------------------------- * - CAS DE LA FORMULATION 'MECANIQUE' + 'VISCOPLASTIQUE' * DEFINITION DES NOMS DES MATERIAUX *---------------------------------------------------------------------- IMPLICIT INTEGER(I-N) -INC PPARAM -INC CCOPTIO * CHARACTER*16 MOMODL(*) * * Noms des materiaux * NMOD=35 MOMODL(1)='GUIONNET' MOMODL(2)='ONERA' MOMODL(3)='VISCODOMMAGE' MOMODL(4)='PARFAIT' MOMODL(5)='POUDRE_A' MOMODL(6)='POUDRE_B' MOMODL(7)='OHNO' MOMODL(8)='DDI' MOMODL(9)='KOCKS' MOMODL(10)='NOUAILHAS_A' MOMODL(11)='NOUAILHAS_B' MOMODL(12)='VISK2' MOMODL(13)='VISCOHINTE' MOMODL(14)='MISTRAL' MOMODL(15)='BETON_URGC' MOMODL(16)='LEMENDO' MOMODL(17)='FLUNOR2' MOMODL(18)='GATT_MONERIE' MOMODL(19)='UO2' MOMODL(20)='BETON_URGC_ENDO' MOMODL(21)='VISCODD' MOMODL(22)='CHAB_SINH_R' MOMODL(23)='CHAB_SINH_X' MOMODL(24)='CHAB_NOR_R' MOMODL(25)='CHAB_NOR_X' MOMODL(26)='PELLET' MOMODL(27)='FLUTRA' MOMODL(28)='SYCO1' MOMODL(29)='SYCO2' MOMODL(30)='CHABOCHE' MOMODL(31)='FLUENDO3D' MOMODL(32)='INCLUSION3D' MOMODL(33)='ENDO3D' MOMODL(34)='FLUISO3D' MOMODL(35)='FLUORTHO3D' RETURN END