%N boxcarsm %F $MIR/src/subs/hann.for
%D Boxcar smooth a data array..
%P bpw
%: smoothing, convolution
%B
      subroutine boxcarsm (nsmth, coeffs, npts, arr, work)

      implicit none
      integer npts, nsmth
      real arr(npts), work(nsmth), coeffs(nsmth)

  Boxcar smooth an array 

  Input:
    nsmth    i    Smoothing length.
    coeffs   r    Weights set by BCOEFFS
    npts     i    Number of data points.
  Input/output:
    arr      r    Data array.  Contains smoothed result on output
    work     r    Work array. Must be at least of size NSMTH
