1      subroutine argos_space_update(node,vlatt,
2     + iwl,xw,xwcr,vw,numwm,isl,xs,vs,numsa)
3c
4      implicit none
5c
6#include "argos_space_common.fh"
7#include "mafdecls.fh"
8c
9      integer node,numwm,numsa
10      integer iwl(mwm,miw2),isl(msa,mis2)
11      real*8 xw(mwm,3,mwa),xs(msa,3),xwcr(mwm,3)
12      real*8 vw(mwm,3,mwa),vs(msa,3),vlatt(3,3)
13c
14      integer i,j
15c
16      call argos_space_gaputixv(node,iwl,int_mb(i_packw),
17     + xw,xwcr,vw,numwm,
18     + isl,int_mb(i_pack),xs,vs,numsa,int_mb(i_ipl))
19c
20      do 1 j=1,3
21      box(j)=vlat(j,j)
22      boxh(j)=half*box(j)
23      do 2 i=1,3
24      vlat(i,j)=vlatt(i,j)
25      vlati(i,j)=vlatt(i,j)
26    2 continue
27    1 continue
28c
29      call matinv(vlati,3,3)
30c
31      if(me.eq.node) then
32      nwmloc=numwm
33      nsaloc=numsa
34      endif
35c
36      return
37      end
38c $Id$
39