1 : C FUSVEC SOURCE CHAT 05/01/13 00:13:22 5004 2 : C 3 : C "ET" SUR LES VECTEURS 4 : C 5 : SUBROUTINE FUSVEC(MVECT1,MVECT2,MVECTE) 6 : IMPLICIT INTEGER(I-N) 7 : -INC CCOPTIO 8 : -INC SMVECTE 9 : SEGACT MVECT1,MVECT2 10 : NVEC1=MVECT1.AMPF(/1) 11 : NVEC2=MVECT2.AMPF(/1) 12 : NVEC=NVEC1+NVEC2 13 : ID=IDIM 14 : SEGINI MVECTE 15 : DO 10 I=1,NVEC1 16 : IGEOV(I)=MVECT1.IGEOV(I) 17 : AMPF(I)=MVECT1.AMPF(I) 18 : NOCOUL(I)=MVECT1.NOCOUL(I) 19 : ICHPO(I)=MVECT1.ICHPO(I) 20 : DO 15 IX=1,ID 21 : NOCOVE(I,IX)=MVECT1.NOCOVE(I,IX) 22 : 15 CONTINUE 23 : 10 CONTINUE 24 : DO 20 J=1,NVEC2 25 : IGEOV(J+NVEC1)=MVECT2.IGEOV(J) 26 : AMPF(J+NVEC1)=MVECT2.AMPF(J) 27 : NOCOUL(J+NVEC1)=MVECT2.NOCOUL(J) 28 : ICHPO(J+NVEC1)=MVECT2.ICHPO(J) 29 : DO 25 IY=1,ID 30 : NOCOVE(J+NVEC1,IY)=MVECT2.NOCOVE(J,IY) 31 : 25 CONTINUE 32 : 20 CONTINUE 33 : SEGDES MVECTE 34 : SEGDES MVECT1,MVECT2 35 : RETURN 36 : END 37 :
© Cast3M 2003 - All rights reserved.
Disclaimer