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

proc es043acor
    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.0570, -0.0831, 0.0454, 0;go;
      antennas 2; CLCORPRM = -0.0619, -0.0842, 0.0458, 0;go;
      antennas 3; CLCORPRM =  0.8130, -0.1930, 0.0410, 0;go;
      antennas 4; CLCORPRM = -0.0726, -0.0842, 0.0437, 0;go;
      antennas 5; CLCORPRM = -0.0705, -0.0705, 0.0485, 0;go;
      antennas 6; CLCORPRM = -0.0912, -0.0935, 0.0488, 0;go;
      antennas 7; CLCORPRM = -0.0781, -0.0802, 0.0367, 0;go;
      endof('clcor')
    end
return; finish

proc evnclcor
   es043acor
return; finish