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