%N bcoeffs %F $MIR/src/subs/hann.for
%D Calculate coefficients for boxcar smoothing.
%P bpw
%: smoothing, convolution
%B
      subroutine bcoeffs( nsmth, coeffs )

      implicit none
      integer nsmth
      real coeffs(*)

  Work out coefficients for boxcar smooth

  Input:
    nsmth   i    Smoothing length
  Output:
    coeffs  r    Weights for data points
