IF (hOLD_FILE.NE.hFILE_NAME) THEN
    SAY "Please use ""SELECT"" option before"
    RETURN
ENDIF
!
! Calibrate the RF
!
set rece hrec
FIND /PROC CORR  /SOURCE 'BAND_SOURCE'
SET GIBB 1
SET Y AMPLI PHASE
get first
set sub all
set base all
set plot bars
Say "... Self-calibrating the phase to improve S /N ratio ..."
store phase /self
set phase base relative internal cont 10
SET X I_F
SET BIN 5
!
!
! LSB + USB
!
SET BAND LSB 
SOLVE RF 6 12 /PLOT
!stop
!
SET BAND USB
SOLVE RF 6 12 /PLOT
!stop
!
set phase absolute
say "... Storing the RF calibration"
FIND /PROC CORR HOLO POIN FOCU FLUX /TYPE *
STORE RF
!------------------------------------------------------------------------------