1 : C CHDITI SOURCE CHAT 05/01/12 21:56:21 5004 2 : C CE SOUS PROGRAMME AJOUTE LE CHPOINT IPCH A UN OBJET ELEMENTAIRE 3 : C IL RELAIE A CHDITE 4 : C 5 : SUBROUTINE CHDITI(IPCH,IPT1,IPT2,ICPR,ISENS) 6 : IMPLICIT INTEGER(I-N) 7 : -INC CCOPTIO 8 : -INC SMELEME 9 : SEGACT IPT1 10 : C ON TRAVAILLE SUR LES SOUS-OBJETS ET SUR LES REFERENCES ELEMENTAIRES 11 : IF (IPT1.LISOUS(/1).NE.0) GOTO 50 11 : CALL CHDITE(IPCH,IPT1,IPT2,ICPR,1,ISENS) 12 : IF (IPT1.LISREF(/1).EQ.0) GOTO 100 13 : NBREF=IPT1.LISREF(/1) 14 : GO TO 60 15 : 50 NBELEM=0 16 : NBNN=0 17 : NBSOUS=IPT1.LISOUS(/1) 18 : NBREF=IPT1.LISREF(/1) 19 : SEGINI IPT2 20 : DO 51 I=1,IPT1.LISOUS(/1) 21 : IPT3=IPT1.LISOUS(I) 22 : SEGACT IPT3 23 : C ON ENLEVE LES REFERENCES 23 : CALL CHDITE(IPCH,IPT3,IPT5,ICPR,0,ISENS) 24 : SEGDES IPT3,IPT5 25 : IPT2.LISOUS(I)=IPT5 26 : 51 CONTINUE 27 : 60 CONTINUE 28 : IF (IPT1.LISREF(/1).EQ.0) GOTO 100 29 : C POUR LES REFERENCES ON ESSAYE D'EN PRENDRE LES REFERENCES ICI 30 : DO 61 I=1,IPT1.LISREF(/1) 31 : IPT3=IPT1.LISREF(I) 32 : SEGACT IPT3 33 : IF (IPT3.LISOUS(/1).NE.0) GOTO 67 33 : CALL CHDITE(IPCH,IPT3,IPT5,ICPR,1,ISENS) 34 : IF (IPT5.LISREF(/1).EQ.0) GOTO 62 35 : DO 63 J=1,IPT3.LISREF(/1) 36 : IPT6=IPT3.LISREF(J) 37 : SEGACT IPT6 38 : IF (IPT6.LISOUS(/1).NE.0) GOTO 64 38 : CALL CHDITE(IPCH,IPT6,IPT8,ICPR,0,ISENS) 39 : SEGDES IPT6,IPT8 40 : IPT5.LISREF(J)=IPT8 41 : GOTO 63 42 : C FAUX MAIS NE PLANTE PAS 43 : 64 IPT5.LISREF(J)=IPT6 44 : 63 CONTINUE 45 : 62 CONTINUE 46 : SEGDES IPT5 47 : IPT2.LISREF(I)=IPT5 48 : GOTO 68 49 : 67 CONTINUE 50 : NBREF=0 51 : NBSOUS=IPT3.LISOUS(/1) 52 : NBNN=0 53 : NBELEM=0 54 : SEGINI IPT8 55 : DO 69 I2=1,IPT3.LISOUS(/1) 56 : IPT5=IPT3.LISOUS(I2) 57 : SEGACT IPT5 57 : CALL CHDITE(IPCH,IPT5,IPT7,ICPR,0,ISENS) 58 : IPT8.LISOUS(I2)=IPT7 59 : SEGDES IPT5,IPT7 60 : 69 CONTINUE 61 : IPT2.LISREF(I)=IPT8 62 : 68 CONTINUE 63 : SEGDES IPT3 64 : 61 CONTINUE 65 : 100 CONTINUE 66 : SEGDES IPT1,IPT2 67 : RETURN 68 : END 69 :
© Cast3M 2003 - All rights reserved.
Disclaimer