pro resolve_caldir, caldir=caldir, qabort

; MODIFICATION HISTORY
progver = 'v2008.Sep.05' ;--- (A.Davey) Written.
progver = 'v2008.Oct.01' ;--- (M.Weber) Reviewed version.

  qabort = 0

;  Where are the calibration files?

  if not keyword_set(caldir) then begin
    if file_test('/proj/DataCenter/ssw/hinode/xrt/calibration') then begin
      ; SAO
      caldir = '/proj/DataCenter/ssw/hinode/xrt/calibration'
      return
    endif else begin
      ; SSWIDL
      xrt_calib_tmp = get_logenv('$SSW_caldir_tmp')
      if file_test(xrt_calib_tmp) then begin
	caldir = xrt_calib_tmp
	return
      endif else begin
	qabort = 'Cannot find calibration directory'
	return
      end
    end
  endif else begin
    if file_test(caldir) then begin
      return
    endif else begin
      qabort = 'Cannot find calibration directory'
      return
    end
  end
end