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