! Changed to work on ALL scans
!
set receiver frec
if (frec.eq.2).and.(do_external) then
  set phase external
else
  set phase internal
endif
for i 1 to n_cals
  symb sss "in_fl_"'i'
  set flux 'cal_source[i]' 'sss' frghz[frec]
  delete  /symb sss
next
say " "
say "Storing Fluxes for Receiver "'frec'" ..."
find /source * /type 'caltype' /proc corr
!find append  /proc corr /type o /source "MWC349"  ! rn 24/11/99
!find append  /proc corr /type o /source "CRL618"  ! rn 24/11/99
find append  /proc corr /type o /source MWC349     ! rn 24/11/99
find append  /proc corr /type o /source CRL618     ! rn 24/11/99
list /source
if n_source.le.0 then
   say "no calibrators"
   return
endif
store flux
for i 1 to n_cals
  set flux 'cal_source[i]' *
next
!
say " "
say "Rebuilding the Flux list for Receiver "'frec'" ..."
for i 1 to n_cals
  find  /source 'cal_source[i]' /proc corr
  if found.gt.0 then
    get first
    let rdi_flux[i,frec] 0.001*nint(1000*abs(flux))
    let rdi_fl_'i' 'rdi_flux[i,frec]'
    say "Source " 'i' 'cal_source[i]' " Flux " rdi_flux[i,frec] -
      " Jy at " 'frghz[frec]' " GHz"         /format a i2 a12 a f6.2 a f6.1 a
  endif
next