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