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