1 subroutine argos_space_getxbl(ibbl,lhandl, 2 + iwl,xw,iwfr,iwto,jwfr,jwto,isl,xs,isfr,isto,jsfr,jsto, 3 + lself,lpbcs) 4c 5 implicit none 6c 7#include "argos_space_common.fh" 8#include "mafdecls.fh" 9c 10 integer ibbl,lhandl 11 integer iwfr,iwto,jwfr,jwto,isfr,isto,jsfr,jsto 12 integer iwl(mwm,miw2),isl(msa,mis2) 13 real*8 xw(mwm,3,mwa),xs(msa,3) 14 logical lself,lpbcs 15 real*8 pw(2),pwp(2),ps(2),psp(2) 16c 17 call argos_space_gtxpbl(ibbl,lhandl, 18 + iwl,int_mb(i_packw),xw,pw,pwp,iwfr,iwto,jwfr,jwto, 19 + isl,int_mb(i_pack),xs,ps,psp,isfr,isto,jsfr,jsto, 20 + int_mb(i_bb),int_mb(i_ipl),int_mb(i_jpl),lself,.false.) 21c 22 lpbcs=lpbc9 23c 24 return 25 end 26c $Id$ 27