%N width %F $MIR/src/subs/uvsubs.for
%D Calculate wideband channel width
%P mchw
%: uv-data, visibility
%B
        subroutine width(nspect,sdf,nschan,wide)

        implicit none
        integer nspect,nschan(nspect)
        double precision sdf(nspect)
        real wide

  Calculates the width of the wideband synthesized channel from
  the correlator setup parameters.  This is used by UVHAT.

  Input:
    nspect     number of correlator spectra
    sdf        width of correlator spectra
    nschan     number of channels in each spectra
  Output:
    wide       width of synthesized wideband (ghz)
