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