1 : C FUSTRU SOURCE CHAT 05/01/13 00:13:19 5004 2 : SUBROUTINE FUSTRU(MSTRU1,MSTRU2,MSTRUC) 3 : C 4 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 5 : C C CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS C 6 : C C STRUCTURES MSTRU1 ET MSTRU2. LE RESULTAT EST RANGE DANS MSTRUC C 7 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 8 : C 9 : IMPLICIT INTEGER(I-N) 10 : -INC SMSTRUC 11 : C 12 : SEGACT MSTRU1,MSTRU2 13 : NSTRU1=MSTRU1.LISTRU(/1) 14 : NSTRU2=MSTRU2.LISTRU(/1) 15 : N=NSTRU1+NSTRU2 16 : SEGINI MSTRUC 17 : DO 3 I=1,NSTRU1 18 : LISTRU(I)=MSTRU1.LISTRU(I) 19 : 3 CONTINUE 20 : DO 4 J=1,NSTRU2 21 : I=NSTRU1+J 22 : LISTRU(I)=MSTRU2.LISTRU(J) 23 : 4 CONTINUE 24 : SEGDES MSTRUC,MSTRU1,MSTRU2 25 : RETURN 26 : END 27 :
© Cast3M 2003 - All rights reserved.
Disclaimer