functions: for values of ipct
-2:  store the correction in fcal0(i)
-1:  store the correction in fcal(i)
0:  if kick=1, form doppler corrections from fcal0
and fcal and store in doppler slot
if kick=4, form accumulated phase vlbi corrections
from fcal and fcal0 and store in delay slot
1:  store corrections in cal(i) for delay
2:  store corrections in cal(i) for rate
3:  shift fcal to fcal0 for contiguous
observations

ipct= 0  form accumulated phase correction and store it in
delay slot for interferometry calculated correction
or doppler slot for radio tracking (kick=1)
for internal corrections only (i<10 or i=19)