1      subroutine argos_space_accfbl(ibbl,lhandl,fw,fs,lpair,iwz,isz)
2c
3      implicit none
4c
5#include "argos_space_common.fh"
6#include "mafdecls.fh"
7c
8      integer ibbl,lhandl
9      real*8 fw(mwm,3,mwa,2),fs(msa,3,2)
10      logical lpair
11      integer iwz(mwm),isz(msa)
12c
13      call argos_space_acfbl(ibbl,lhandl,fw,fs,int_mb(i_bb),
14     + int_mb(i_jpl),lpair,iwz,isz)
15c
16      return
17      end
18c $Id$
19