1 : C FUEVOL SOURCE CHAT 05/01/13 00:11:27 5004 2 : SUBROUTINE FUEVOL(IBO1,IBO2,IRET) 3 : C 4 : C ================================================================== 5 : C = FUSION DE 2 OBJETS EVOLUTION MEVOL1 ET MEVOL2 = 6 : C = LE RESULTAT EST RANGE DANS MEVOLL = 7 : C = SOUS-PROGRAMME APPELE PAR PRFUSE (OPERATEUR ET ) = 8 : C = CREATION : 01/10/86 = 9 : C = PROGRAMMEUR : GUILBAUD = 10 : C ================================================================== 11 : C 12 : IMPLICIT INTEGER(I-N) 13 : -INC CCOPTIO 14 : -INC SMEVOLL 15 : C 16 : CHARACTER *72 TI 17 : MEVOL1=IBO1 18 : MEVOL2=IBO2 19 : SEGACT MEVOL1,MEVOL2 20 : N1=MEVOL1.IEVOLL(/1) 21 : N2=MEVOL2.IEVOLL(/1) 22 : N=N1+N2 23 : SEGINI MEVOLL 24 : IRET=MEVOLL 25 : TI(1:72)=TITREE 26 : IEVTEX=TI 27 : DO 3 I=1,N1 28 : IEVOLL(I)=MEVOL1.IEVOLL(I) 29 : 3 CONTINUE 30 : DO 4 J=1,N2 31 : I=N1+J 32 : IEVOLL(I)=MEVOL2.IEVOLL(J) 33 : 4 CONTINUE 34 : SEGDES MEVOLL 35 : SEGDES MEVOL1 36 : SEGDES MEVOL2 37 : RETURN 38 : END 39 :
© Cast3M 2003 - All rights reserved.
Disclaimer