1 subroutine argos_space_gagetf(node,fw,numwm,fs,numsa) 2c 3 implicit none 4c 5#include "argos_space_common.fh" 6#include "global.fh" 7c 8 integer node,numwm,numsa 9 real*8 fw(mwm,3,mwa),fs(msa,3) 10 integer il,ih,jl,jh 11c 12 if(numwm.gt.0) then 13 call ga_distribution(ga_w,node,il,ih,jl,jh) 14 ih=il+numwm-1 15 call ga_get(ga_w,il,ih,jl+6*mwa+3,jl+9*mwa+2,fw,mwm) 16 endif 17 if(numsa.gt.0) then 18 call ga_distribution(ga_s,node,il,ih,jl,jh) 19 ih=il+numsa-1 20 call ga_get(ga_s,il,ih,jl+6,jl+8,fs,msa) 21 endif 22c 23 return 24 end 25c $Id$ 26