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