1 : C FUSCHA SOURCE CHAT 05/01/13 00:11:55 5004 2 : SUBROUTINE FUSCHA(MCHAR1,MCHAR2,MCHARG) 3 : C 4 : C ===================================================================== 5 : C = CE SUBROUTINE REALISE L OPERATION "ET" SUR LES 2 OBJETS = 6 : C = CHARGEMENTS MCHAR1 ET MCHAR2.LE RESULTAT EST RANGE DANS MCHARG = 7 : C = = 8 : C = CREATION : 15/10/85 = 9 : C = PROGRAMMEUR : GUILBAUD = 10 : C = MODIFICATION: 05/09/94 = 11 : C = PROGRAMMEUR : JEANVOINE = 12 : C = EXTENSION : 11/97 = 13 : C = PROGRAMMEUR : KICHENIN = 14 : C ===================================================================== 15 : C 16 : IMPLICIT INTEGER(I-N) 17 : -INC SMCHARG 18 : C 19 : SEGACT MCHAR1,MCHAR2 20 : N1=MCHAR1.KCHARG(/1) 21 : N2=MCHAR2.KCHARG(/1) 22 : N=N1+N2 23 : SEGINI MCHARG 24 : DO 10 I=1,N1 25 : CHANAT(I)=MCHAR1.CHANAT(I) 26 : CHANOM(I)=MCHAR1.CHANOM(I) 27 : CHAMOB(I)=MCHAR1.CHAMOB(I) 28 : CHALIE(I)=MCHAR1.CHALIE(I) 29 : KCHARG(I)=MCHAR1.KCHARG(I) 30 : 10 CONTINUE 31 : DO 20 J=1,N2 32 : I=N1+J 33 : CHANAT(I)=MCHAR2.CHANAT(J) 34 : CHANOM(I)=MCHAR2.CHANOM(J) 35 : CHAMOB(I)=MCHAR2.CHAMOB(J) 36 : CHALIE(I)=MCHAR2.CHALIE(J) 37 : KCHARG(I)=MCHAR2.KCHARG(J) 38 : 20 CONTINUE 39 : SEGDES MCHARG 40 : SEGDES MCHAR1,MCHAR2 41 : RETURN 42 : END 43 : 44 :
© Cast3M 2003 - All rights reserved.
Disclaimer