1      subroutine argos_space_gethdl(ibbl,lhandl,lself,
2     + iwfr,iwto,isfr,isto)
3c
4      implicit none
5c
6#include "argos_space_common.fh"
7#include "mafdecls.fh"
8c
9      integer ibbl,lhandl
10      integer iwfr,iwto,isfr,isto
11      logical lself
12c
13      call argos_space_gthdl(ibbl,lhandl,lself,iwfr,iwto,isfr,isto,
14     + int_mb(i_bb),int_mb(i_ipl))
15c
16      return
17      end
18c $Id$
19