1 : C FUSBAS SOURCE CHAT 05/01/13 00:11:51 5004 2 : SUBROUTINE FUSBAS(MBASE1,MBASE2,MBASEM) 3 : C 4 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 5 : C C CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS C 6 : C C BASE-MODALE MBASE1 ET MBASE2.LE RESULTAT EST RANGE DANS MBASEM C 7 : C CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC 8 : C 9 : IMPLICIT INTEGER(I-N) 10 : -INC SMBASEM 11 : C 12 : SEGACT MBASE1,MBASE2 13 : NBASE1=MBASE1.LISBAS(/1) 14 : NBASE2=MBASE2.LISBAS(/1) 15 : N=NBASE1+NBASE2 16 : SEGINI MBASEM 17 : DO 3 I=1,NBASE1 18 : LISBAS(I)=MBASE1.LISBAS(I) 19 : 3 CONTINUE 20 : DO 4 J=1,NBASE2 21 : I=NBASE1+J 22 : LISBAS(I)=MBASE2.LISBAS(J) 23 : 4 CONTINUE 24 : SEGDES MBASEM,MBASE1,MBASE2 25 : RETURN 26 : END 27 :
© Cast3M 2003 - All rights reserved.
Disclaimer