C NCLFORTSTART
        subroutine wacftd(nxx,nyx,nkx,ntx,nbin,npts,wa,bfra)
        real wa(nxx,nyx,nkx,ntx)
        real bins(ntx,nbin),bcnt(ntx,nbin-1), bfra(ntx,nbin-1)
        integer nbin,npts
        integer nxx,nyx,nkx,ntx
C NCLEND