$$$$$$$$$$ For station coordinate correction $$$$$$$$$$$$
dowait 1

proc eb019clcor
    tclass='MSORT'
    exist (disk, expname, tclass, 1, texist);
    if (texist) then
$ Remove unnecessary CL and SN tables
      tbfind('cl',ii);doextd ('CL',3,ii);
      typ '!!! CL tables 3-',ii,' were removed.  !!!';
      tbfind('sn',ii);doextd ('sn',2,ii);
      typ '!!! SN tables 2-',ii,' were removed.  !!!';
      tbfind('bp',ii);doextd ('bp',1,ii);
      typ '!!! BP tables 1-',ii,' were removed.  !!!';
$ CLCOR
      startof('clcor');task 'clcor';
      indisk=disk;innam=expname;incl=tclass ;inseq=1;gainver=2
      source '';stokes '';bif 0;eif 0;timer 0;subarray 1;
$ For coordinate correction
      opcode 'antp';
      antennas 1; CLCORPRM = -0.0659, -0.0758, 0.0396, 0;go;
      antennas 2; CLCORPRM = 4.08, 2.07, -1.26, 0       ;go;
      antennas 3; CLCORPRM = -0.0827, -0.0848, 0.0451, 0;go;
      antennas 4; CLCORPRM = -0.0796, -0.0816, 0.0657, 0;go;
      antennas 5; CLCORPRM = 0.47, -2.77, -4.21, 0      ;go;
      antennas 6; CLCORPRM = 4.959, 2.355, -1.473, 0    ;go;
      antennas 7; CLCORPRM = -2.045, -1.062, -0.079, 0  ;go;
      antennas 8; CLCORPRM = 1.33, 3.60, -0.52, 0       ;go;
      antennas 9; CLCORPRM = -0.0132, -0.0911, 0.0684, 0;go;
$ For axis offset correction
      opcode 'anax';
      antennas 2; CLCORPRM = 0.458, 0  ;go;
      antennas 8; CLCORPRM = 1.503, 0  ;go;
      endof('clcor')
    end
return; finish

proc eb019
   eb019clcor
return; finish