%N hcoeffs %F $MIR/src/subs/hann.for
%D Calculated coefficients for Hanning smoothing.
%P nebk
%: smoothing, convolution
%B
      subroutine hcoeffs (nsmth, coeffs)

      implicit none
      integer nsmth
      real coeffs(nsmth)

  Work out binomial weights or coefficients for Hanning smooth

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