1 : C MOTAN SOURCE FANDEUR 10/12/14 21:18:15 6812 2 : SUBROUTINE MOTAN 3 : *_______________________________________________________________________ 4 : * 5 : * Operateur permettant de calculer le module tangent 6 : * 7 : * SYNTAXE : 8 : * --------- 9 : * 10 : * ETAN=MOTAN MOD1 SI1 VA1 ( CA1 ) (PRECIS) ; 11 : * 12 : * PRECIS Flottant (par defaut 1.D-3) 13 : * MOD1 Modele de calcul, type MMODEL 14 : * SI1 Champ par element de contraintes,type MCHAML 15 : * VA1 Champ par element de variables internes,type MCHAML 16 : * CA1 Champ par element de caracteristiques (materielle et/ou 17 : * geometriques),type MCHAML 18 : * ETAN Champ par element de type scalaire contenant les 19 : * modules tangent aux points des elements,type MCHAML 20 : * 21 : * CODE L.EBERSOLT NOVEMBRE 86 22 : * 23 : * passage aux nouveaux CHAMELEMs par JM CAMPENON LE 06/91 24 : *_______________________________________________________________________ 25 : * 26 : IMPLICIT INTEGER(I-N) 27 : IMPLICIT REAL*8(A-H,O-Z) 28 : * 29 : -INC CCOPTIO 30 : * 31 : * Lecture d'un modele 32 : * 32 : CALL LIROBJ('MMODEL',IPMODL,1,IRTM) 33 : IF (IERR.NE.0) RETURN 34 : * 35 : * Lecture du MCHAML de CONTRAINTES 36 : * 36 : CALL LIROBJ('MCHAML',IPCHE1,1,IRT1) 37 : IF (IERR.NE.0) RETURN 38 : * 39 : * Lecture du MCHAML de VARIABLES INTERNES 40 : * 40 : CALL LIROBJ('MCHAML',IPCHE2,1,IRT2) 41 : IF (IERR.NE.0) RETURN 42 : * 43 : * Lecture du MCHAML de CARACTERISTIQUES 44 : * 44 : CALL LIROBJ('MCHAML',IPCHE3,1,IRT3) 45 : IF (IERR.NE.0) RETURN 46 : * 47 : * Lecture eventuelle de la precision des iteration internes 48 : * 48 : CALL LIRREE(PRECIS,0,IRETPR) 49 : IF (IERR.NE.0) RETURN 50 : IF (IRETPR.EQ.0) PRECIS = 0.9 51 : * 51 : CALL MOTANA(IPMODL,IPCHE1,IPCHE2,IPCHE3,PRECIS,IPSCAL,IRET) 52 : * 53 : * Ecriture de la matrice de raideur tangente 54 : * 54 : IF (IRET.EQ.1) CALL ECROBJ('MCHAML',IPSCAL) 55 : * 56 : RETURN 57 : END 58 : 59 :
© Cast3M 2003 - All rights reserved.
Disclaimer