1      subroutine argos_cafe_shakew(xw,yw,iwgm,iwdt,numw)
2c $Id$
3      implicit none
4c
5#include "argos_cafe_common.fh"
6#include "mafdecls.fh"
7c
8      integer numw
9      real*8 xw(mwm,3,mwa),yw(mwm,3,mwa)
10      integer iwgm(mwm),iwdt(mwm)
11c
12      call argos_cafe_shkw(numw,iwgm,iwdt,xw,yw,
13     + mbt(1),numb(1),mbp(1),int_mb(i_ibnd(1)),dbl_mb(i_bnd(1)),
14     + int_mb(i_iwa),dbl_mb(i_mas),
15     + dbl_mb(i_s3r1),dbl_mb(i_s1r1),dbl_mb(i_s1r2),dbl_mb(i_s1r3),
16     + dbl_mb(i_s1r4),dbl_mb(i_smr1))
17c
18      return
19      end
20