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

proc eb023aclcor
    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 10; CLCORPRM = -0.0180, -0.1203, 0.0911, 0;go;
$ For axis offset correction
      opcode 'anax';
      antennas 10; CLCORPRM = -0.0004, 0  ;go;
      endof('clcor')
    end
return; finish

proc eb023a
   eb023aclcor
return; finish