1 : C MANUCE SOURCE FANDEUR 10/12/14 21:18:03 6812 2 : SUBROUTINE MANUCE 3 : *______________________________________________________________________ 4 : * 5 : * Donne une valeur en 1 point pour un MCHAML 6 : * 7 : * Syntaxe : 8 : * --------- 9 : * 10 : * CHA1 = MANU CHEL MODL1 MOT1 MOT2 IEN1 IEN2 IEN3 XFLO ; 11 : * 12 : * OB1 Objet MMODEL 13 : * MOT1 Mot indiquant le sous type du MCHAML a creer 14 : * MOT2 Nom de la composante concernee 15 : * IEN1 Numero de l'element 16 : * IEN2 Numero du point de gauss 17 : * IEN3 Numero de la sous zone concernee (=1 par defaut) 18 : * XFLO Flottant ( Valeur de la composante MOT2 ) 19 : * CHA1 MCHAML resultat 20 : * 21 : * EBERSOLT JANVIER 86 22 : * 23 : * Passage aux nouveaux MCHAMLs par JM CAMPENON le 06/91 24 : * 25 : *______________________________________________________________________ 26 : * 27 : IMPLICIT INTEGER(I-N) 28 : IMPLICIT REAL*8(A-H,O-Z) 29 : * 30 : -INC CCOPTIO 31 : * 32 : CHARACTER*(4) MOT2 33 : * 34 : PARAMETER (NMOT=22) 35 : CHARACTER*8 LISMOT(NMOT),MOT1 36 : * 37 : DATA LISMOT / 'NOEUD ', 'GRAVITE ', 'RIGIDITE', 'MASSE ', 38 : 1 'STRESSES', 'DEPLACEM', 'FORCES ', 'REACTUAL', 39 : 1 'FVOLUMIQ', 'GRADIENT', 'CONTRAIN', 'DEFORMAT', 40 : 1 'MATERIAU', 'CARACTER', 'TEMPERAT', 'PRINCIPA', 41 : 1 'MAHOOKE ', 'HOTANGEN', 'DILATATI', 'VARINTER', 42 : 1 'GRAFLEXI', 'VONMISES'/ 43 : * 44 : * Lecture du type du MCHAML 45 : * 45 : CALL LIRMOT(LISMOT,NMOT,IPLAC,1) 46 : IF (IPLAC.EQ.0) THEN 46 : CALL ERREUR(78) 47 : RETURN 48 : ELSE 49 : MOT1=LISMOT(IPLAC) 50 : ENDIF 51 : * 51 : CALL LIRCHA(MOT2,1,IRET) 52 : IF (IERR.NE.0) RETURN 53 : * 53 : CALL LIROBJ('MMODEL',IPMODL,1,IRET) 54 : IF (IERR.NE.0) RETURN 55 : * 55 : CALL LIRENT(IEN1,1,IRET) 56 : IF (IERR.NE.0) RETURN 57 : IF (IEN1.LE.0) THEN 58 : INTERR(1)=1 59 : INTERR(2)=IEN1 59 : CALL ERREUR(190) 60 : RETURN 61 : ENDIF 62 : * 62 : CALL LIRENT(IEN2,1,IRET) 63 : IF (IERR.NE.0) RETURN 64 : IF (IEN2.LE.0) THEN 65 : INTERR(1)=1 66 : INTERR(2)=IEN2 66 : CALL ERREUR(190) 67 : RETURN 68 : ENDIF 69 : * 69 : CALL LIRENT(IEN3,0,IRET) 70 : IF (IERR.NE.0) RETURN 71 : IF (IRET.EQ.0) IEN3=1 72 : IF (IEN3.LE.0) THEN 73 : INTERR(1)=1 74 : INTERR(2)=IEN3 74 : CALL ERREUR(190) 75 : RETURN 76 : ENDIF 77 : * 77 : CALL LIRREE(XFLO,1,IRET) 78 : IF (IERR.NE.0) RETURN 79 : * 79 : CALL MANUCI(IPMODL,MOT1,MOT2,IEN1,IEN2,IEN3,XFLO,IPRES) 80 : * 81 : * IPRES = 0 en cas d'ERREUR & IERR non nul 81 : IF (IERR.EQ.0) CALL ECROBJ('MCHAML',IPRES) 82 : * 83 : RETURN 84 : END 85 : 86 :
© Cast3M 2003 - All rights reserved.
Disclaimer