1      subroutine argos_space_nbwait(ibbl,lnew,lhandl,lself,lpbcs,
2     + iwfr,iwto,jwfr,jwto,isfr,isto,jsfr,jsto,iwl,isl)
3c
4      implicit none
5c
6#include "argos_space_common.fh"
7#include "mafdecls.fh"
8#include "global.fh"
9c
10      integer ibbl,iwfr,iwto,jwfr,jwto,isfr,isto,jsfr,jsto,lhandl
11      integer isl(msa,mis2),iwl(mwm,miw2)
12      logical lself,lpbcs,lnew
13c
14      lpbcs=lpbc9
15      call argos_space_nbwait2(ibbl,lnew,int_mb(i_bb),lhandl,lself,
16     + iwfr,iwto,jwfr,jwto,isfr,isto,jsfr,jsto,
17     + iwl,int_mb(i_packw),isl,int_mb(i_pack))
18c
19      return
20      end
21c $Id$
22