1 : C MODEL8 SOURCE CHAT 12/01/17 21:15:36 7248 2 : SUBROUTINE MODEL8(LESPRO,NBPRO,LESTEF,NBTEF,N1MAX,N2MAX) 3 : *---------------------------------------------------------------------- 4 : * OBJET MODELE - CAS DE LA FORMULATION 'CONTACT' 5 : * DEFINITION DES NOMS DE MODELES DE CONTACT 6 : * ET DES NOMS DE TYPES D'ELEMENTS FINIS 7 : *---------------------------------------------------------------------- 8 : IMPLICIT INTEGER(I-N) 9 : -INC CCOPTIO 10 : * 11 : CHARACTER*16 MOMODL(100) 12 : * 13 : CHARACTER*16 LESPRO(*) 14 : CHARACTER*4 LESTEF(*) 15 : * 16 : * NOMS DES MODELES DE contact -FROTTEMENTS 17 : * ------------------------------- 17 : CALL MOCONT (MOMODL,NMOD) 18 : * 19 : DO 1 I=1,NMOD 20 : LESPRO(I)=MOMODL(I) 21 : 1 CONTINUE 22 : NBPRO=NMOD 23 : * write(6,*) 'lespro ',( lespro(i),i=1,nmod) 24 : * 25 : IF(NBPRO.GT.N1MAX) THEN 25 : CALL ERREUR(5) 26 : GO TO 99 27 : END IF 28 : * 29 : * NOMS DE TYPES D'ELEMENTS FINIS 30 : * ------------------------------ 31 : IF(IDIM.EQ.2) THEN 32 : NBTEF=3 33 : IF(NBTEF.GT.N2MAX) THEN 33 : CALL ERREUR(5) 34 : GO TO 99 35 : END IF 36 : LESTEF(1)='MULT' 37 : LESTEF(2)='FRO3' 38 : LESTEF(3)='CAF2' 39 : ELSE IF(IDIM.EQ.3) THEN 40 : NBTEF=3 41 : IF(NBTEF.GT.N2MAX) THEN 41 : CALL ERREUR(5) 42 : GO TO 99 43 : END IF 44 : LESTEF(1)='MULT' 45 : LESTEF(2)='FRO4' 46 : LESTEF(3)='CAF3' 47 : ENDIF 48 : RETURN 48 : 99 CALL ERREUR(5) 49 : RETURN 50 : END 51 : 52 : 53 : 54 :
© Cast3M 2003 - All rights reserved.
Disclaimer