function check_scan_mode,radar,scan_mode
;
; *** Checks radar scan mode and determines if we currently
; *** support QC of this type.
;
    scan_mode = radar.h.scan_mode
    scan_elev = radar.volume[0].sweep[0].h.elev

    CASE scan_mode of
       'PPI': BEGIN
          if(scan_elev gt 89) then flag = ' not supported.' else flag = 'OK'
       END
       'PPI Sector': BEGIN
          flag = 'OK'
       END
       'RHI': BEGIN
          flag = 'OK'
       END
       ELSE: BEGIN
          flag = ' not found.'
          return,flag
       END

    ENDCASE

    return,flag
    end