1 : C CRIT SOURCE FANDEUR 10/12/14 21:15:48 6812 2 : SUBROUTINE CRIT 3 : C======================================================================= 4 : C 5 : C OPERATEUR CRITERE 6 : C 7 : C SCA = CRIT MODL SIG VAR CAR 8 : C 9 : C MMODEL | MODL OBJET MODELE 10 : C 11 : C | SIG CONTRAINTES 12 : C MCHAMLS | VAR VARIABLES INTERNES 13 : C | CAR CONSTANTES DU MATERIAU ET CARACTERISTIQUES 14 : C | GEOMETRIQUES ( SELON LES ELEMENTS ) 15 : C | SCA CRITERE RESULTAT 16 : C 17 : C======================================================================= 18 : IMPLICIT INTEGER(I-N) 19 : IMPLICIT REAL*8(A-H,O-Z) 20 : * 21 : -INC CCOPTIO 22 : -INC SMCHAML 23 : * 24 : IPCHE1=0 25 : IPCHE2=0 26 : IPCAR=0 27 : * 28 : * LECTURE D'UN MODEL 29 : * 29 : CALL LIROBJ('MMODEL',IPMODL,1,IRT) 30 : IF(IERR.NE.0)RETURN 31 : * 31 : CALL LIROBJ('MCHAML',IPCHE1,1,IRT) 32 : IF(IERR.NE.0)RETURN 33 : MCHELM=IPCHE1 34 : SEGACT MCHELM 35 : IF(TITCHE.NE.'CONTRAINTES')THEN 36 : MOTERR(1:8)='CONTRAIN' 36 : CALL ERREUR(109) 37 : SEGDES MCHELM 38 : RETURN 39 : ENDIF 40 : SEGDES MCHELM 41 : * 41 : CALL LIROBJ('MCHAML',IPCHE2,1,IRT) 42 : IF(IERR.NE.0)RETURN 43 : MCHELM=IPCHE2 44 : SEGACT MCHELM 45 : IF(TITCHE.NE.'VARIABLES INTERNES')THEN 46 : MOTERR(1:8)='VARINTER' 46 : CALL ERREUR(109) 47 : SEGDES MCHELM 48 : RETURN 49 : ENDIF 50 : SEGDES MCHELM 51 : * 51 : CALL LIROBJ('MCHAML',IPCAR,1,IRT) 52 : IF(IERR.NE.0)RETURN 53 : MCHELM=IPCAR 54 : SEGACT MCHELM 55 : IF(TITCHE.NE.'CARACTERISTIQUES')THEN 56 : MOTERR(1:8)='CARACTER' 56 : CALL ERREUR(109) 57 : SEGDES MCHELM 58 : RETURN 59 : ENDIF 60 : SEGDES MCHELM 61 : * 61 : CALL CRITP(IPMODL,IPCHE1,IPCHE2,IPCAR,IPCHES) 62 : * 62 : IF (IERR.EQ.0) CALL ECROBJ('MCHAML',IPCHES) 63 : * 64 : RETURN 65 : END 66 : 67 :
© Cast3M 2003 - All rights reserved.
Disclaimer