define integer scx iff ocx[5]
def char chok*1[5] disabled*40
IF (OLD_FILE.NE.FILE_NAME) THEN
    SAY "Please use SELECT option before"
    RETURN
ENDIF
for kr 1 to 2
  if irec[kr].gt.0 then
    set quality 8
    set rece irec[kr]
    fin /proc corr /sou * /type *
! this command does not affect the scan to scan phase rms, 
! this way the rms will be an uncorrected phase rms
    set lev 6
    monitor 0
! evaluate phase correction on calibrators:
    set lev 6
    if kr.eq.1 then
      if (do_self_all) then
        store correction self
      else
        store correction auto
      endif
    else
      store correction auto /receiver irec[1]
    endif
    fin /proc corr /sou * /type *
    lis /sh /var ok_mon[1] ok_mon[2] ok_mon[3] ok_mon[4] ok_mon[5] /out mon.txt
    for i 1 to n_group
      fin /scan s_group[1,i] s_group[2,i] /proc corr /sou * /type *
      get f
      let disabled " "
      for j 1 to nant
        if ok_mon[j].eq.0 then
          let disabled 'disabled'" "'j'
        endif
      next                    
      if disabled.ne." " then
        say Scans 's_group[1,i]'" to "'s_group[2,i]' -
        ": phase correction disabled (ant "'disabled'")"
      endif
    next
  endif
next 
set quality 'min_qual'
set level 4
!