C MANUCE SOURCE FANDEUR 10/12/14 21:18:03 6812 SUBROUTINE MANUCE *______________________________________________________________________ * * Donne une valeur en 1 point pour un MCHAML * * Syntaxe : * --------- * * CHA1 = MANU CHEL MODL1 MOT1 MOT2 IEN1 IEN2 IEN3 XFLO ; * * OB1 Objet MMODEL * MOT1 Mot indiquant le sous type du MCHAML a creer * MOT2 Nom de la composante concernee * IEN1 Numero de l'element * IEN2 Numero du point de gauss * IEN3 Numero de la sous zone concernee (=1 par defaut) * XFLO Flottant ( Valeur de la composante MOT2 ) * CHA1 MCHAML resultat * * EBERSOLT JANVIER 86 * * Passage aux nouveaux MCHAMLs par JM CAMPENON le 06/91 * *______________________________________________________________________ * IMPLICIT INTEGER(I-N) IMPLICIT REAL*8(A-H,O-Z) * -INC PPARAM -INC CCOPTIO * CHARACTER*(4) MOT2 * PARAMETER (NMOT=22) CHARACTER*8 LISMOT(NMOT),MOT1 * DATA LISMOT / 'NOEUD ', 'GRAVITE ', 'RIGIDITE', 'MASSE ', 1 'STRESSES', 'DEPLACEM', 'FORCES ', 'REACTUAL', 1 'FVOLUMIQ', 'GRADIENT', 'CONTRAIN', 'DEFORMAT', 1 'MATERIAU', 'CARACTER', 'TEMPERAT', 'PRINCIPA', 1 'MAHOOKE ', 'HOTANGEN', 'DILATATI', 'VARINTER', 1 'GRAFLEXI', 'VONMISES'/ * * Lecture du type du MCHAML * IF (IPLAC.EQ.0) THEN RETURN ELSE MOT1=LISMOT(IPLAC) ENDIF * IF (IERR.NE.0) RETURN * IF (IERR.NE.0) RETURN * IF (IERR.NE.0) RETURN IF (IEN1.LE.0) THEN INTERR(1)=1 INTERR(2)=IEN1 RETURN ENDIF * IF (IERR.NE.0) RETURN IF (IEN2.LE.0) THEN INTERR(1)=1 INTERR(2)=IEN2 RETURN ENDIF * IF (IERR.NE.0) RETURN IF (IRET.EQ.0) IEN3=1 IF (IEN3.LE.0) THEN INTERR(1)=1 INTERR(2)=IEN3 RETURN ENDIF * IF (IERR.NE.0) RETURN * * * IPRES = 0 en cas d'ERREUR & IERR non nul * RETURN END
© Cast3M 2003 - Tous droits réservés.
Mentions légales