1 : C MODE12 SOURCE CHAT 05/01/13 01:47:48 5004 2 : SUBROUTINE MODE12(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX) 3 : *---------------------------------------------------------------------- 4 : * OBJET MODELE - CAS DE LA FORMULATION 'MELANGE' 5 : IMPLICIT INTEGER(I-N) 6 : 7 : * DEFINITION DES NOMS DE MODELES DE MATERIAU 8 : * ET DES NOMS DE TYPES D'ELEMENTS FINIS 9 : *---------------------------------------------------------------------- 10 : -INC CCOPTIO 11 : CHARACTER*16 MOMODL(100) 12 : CHARACTER*16 LESPRO(*) 13 : * 14 : CHARACTER*4 LESTEF(*) 15 : * 16 : * NOMS DES approches 17 : * 17 : CALL MODMEL (MOMODL,NMOD) 18 : DO 1 I=1,NMOD 19 : LESPRO(I)=MOMODL(I) 20 : 1 CONTINUE 21 : NBPRO=NMOD 22 : 23 : * 24 : * NOMS DE TYPES D'ELEMENTS FINIS 25 : * 26 : IF(IDIM.EQ.2) THEN 27 : NBTEF=9 28 : IF(NBTEF.GT.N2MAX) GO TO 99 29 : LESTEF(1)='SEG2' 30 : LESTEF(2)='SEG3' 31 : LESTEF(3)='TRI3' 32 : LESTEF(4)='TRI6' 33 : LESTEF(5)='QUA4' 34 : LESTEF(6)='QUA8' 35 : LESTEF(7)='COQ2' 36 : LESTEF(8)='BARR' 37 : LESTEF(9)='POLY' 38 : ELSE 39 : NBTEF=13 40 : IF(NBTEF.GT.N2MAX) GO TO 99 41 : LESTEF(1)='CUB8' 42 : LESTEF(2)='CU20' 43 : LESTEF(3)='PRI6' 44 : LESTEF(4)='PR15' 45 : LESTEF(5)='TET4' 46 : LESTEF(6)='TE10' 47 : LESTEF(7)='PYR5' 48 : LESTEF(8)='PY13' 49 : LESTEF(9)='COQ3' 50 : LESTEF(10)='COQ4' 51 : LESTEF(11)='COQ6' 52 : LESTEF(12)='COQ8' 53 : LESTEF(13)='BARR' 54 : ENDIF 55 : RETURN 55 : 99 CALL ERREUR(5) 56 : RETURN 57 : END 58 : 59 : 60 : 61 : 62 :
© Cast3M 2003 - All rights reserved.
Disclaimer