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