hotan
C HOTAN SOURCE CB215821 19/08/01 21:16:06 10279 SUBROUTINE HOTAN *_____________________________________________________________________ * * creation d'un mchaml de matrice de hooke tangente * * * * ho1=hotan mod1 si1 va1 ( ca1 ) (xprec) (flo1) (dt) (flo2) ; * * mod1 modele de calcul, type mmodel * si1 champ par element de contraintes,type mchaml * va1 champ par element de variables internes,type mchaml * ca1 champ par element de caracteristiques ( materielle * et/ou geometriques ),type mchaml * flo1 flottant (1.d-3 par defaut) * ho1 champ par element resultat, de type mchaml et de sous * type matrice de hooke tangent * * *_____________________________________________________________________ * IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) -INC PPARAM -INC CCOPTIO * CHARACTER*4 DEUXMOT(2) * on lit un ou deux flottants xprec et dt DATA DEUXMOT/'PREC','DT '/ XPREC=1.D-3 DTPS=0.D0 1 CONTINUE IF ( IVAL .EQ. 1) THEN GOTO 1 ELSE IF ( IVAL .EQ. 2) THEN GOTO 1 ENDIF * * lecture d'un model * IF(IERR.NE.0) GOTO 666 * * lecture du mchaml de contraintes * IF(IERR.NE.0) GOTO 666 IF(IERR .NE. 0) RETURN * * lecture du mchaml de variables internes * IF(IERR.NE.0) GOTO 666 IF(IERR .NE. 0) RETURN * * lecture du mchaml de caracteristiques * IF(IERR.NE.0) GOTO 666 IF(IERR .NE. 0) RETURN * IF(IERR .NE. 0) RETURN * * ecriture du champs par element de matrice de hooke * IF (IRET.EQ.1) THEN ENDIF 666 CONTINUE END
© Cast3M 2003 - Tous droits réservés.
Mentions légales