DEFINE INTEGER FSCAN first last
IF (OLD_FILE.NE.FILE_NAME) THEN
    SAY "Please use "SELECT" option before"
    RETURN
ENDIF
!
! 6. Find phase jumps (using first receiver)
!
set receiver irec[1]
!!FIND /PROC CORR /TYPE P
FIND /PROC FOCU /TYPE P
SYMBOL BREAKS " "
IF (FOUND.GT.0) THEN
   DEFINE CHARACTER BREAK*80
   LET BREAK " /BREAK "
   get first   /header
   LET FSCAN scan
   let foc_tim 0.01*NINT(1200*UTOBS|PI)  /new real
   Say "Possible phase jump at "'0.01*NINT(1200*UTOBS|PI)'
   LET BREAK 'BREAK'" 0 "'0.01*NINT(1200*UTOBS|PI)'
   FOR I 2 TO FOUND
      GET NEXT   /header
      IF (SCAN.NE.FSCAN).and.(((12*UTOBS|PI)-foc_tim).gt.0.25) then
         Say "Possible phase jump at "'0.01*NINT(1200*UTOBS|PI)'
         LET BREAK 'BREAK'" 0 "'0.01*NINT(1200*UTOBS|PI)'
         let foc_tim 0.01*NINT(1200*UTOBS|PI)
      endif
   NEXT
   del /var foc_tim
    SYMBOL BREAKS 'BREAK'
    SAY " Possible SOLVE PHASE and SOLVE AMPLITUDE option is: "
    SAY "'BREAKS'" 
ENDIF
!