1 : C FUSELS SOURCE CHAT 05/01/13 00:12:24 5004 2 : SUBROUTINE FUSELS(IP1,IP2,IRETOU) 3 : C 4 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 5 : C C OPERATION ET SUR DEUX OBJETS DE TYPE ELEMSTRU C 6 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 7 : C 8 : IMPLICIT INTEGER(I-N) 9 : -INC SMELSTR 10 : MELST1=IP1 11 : MELST2=IP2 12 : SEGACT MELST1,MELST2 13 : N1=MELST1.ISOSTU(/1) 14 : N2=MELST2.ISOSTU(/1) 15 : N=N1+N2 16 : SEGINI MELSTR 17 : DO 10 I=1,N1 18 : ISOSTU(I)=MELST1.ISOSTU(I) 19 : IMELEM(I)=MELST1.IMELEM(I) 20 : 10 CONTINUE 21 : DO 20 I=1,N2 22 : II=I+N1 23 : ISOSTU(II)=MELST2.ISOSTU(I) 24 : IMELEM(II)=MELST2.IMELEM(I) 25 : 20 CONTINUE 26 : SEGDES MELST1,MELST2,MELSTR 27 : IRETOU=MELSTR 28 : RETURN 29 : END 30 :
© Cast3M 2003 - All rights reserved.
Disclaimer