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