%N zedscale %F $MIR/src/subs/zed.for
%D Determine conv. factor from channels to magnetic field.
%P nebk
%: zeeman
%B
      subroutine ZedScale (lunI, freq, scale, noline)

      integer   lunI
      real      scale, freq
      logical   noline
  ---------------------------------------------------------------------
  Depending on the first axis type, set the scale to convert from a
  channel increment to a frequency increment (Hz) and then if possible,
  to a magnetic field strength

  Input:
    lunI    i  Handle for I spectrum cube
    freq    r  Frequency (GHz) of line for matching with Zeeman
               parameters stored internally
  Output:
    scale   r  If noline=.false. scale converts one channel to a
               magnetic field strength (G), else scale converts one
               channel to Hz
    noline  l  If .false. the user specified FREQ was matched
