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