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

proc ec018clcor
    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 = -.1479, -.1229, .0838, 0;go;
      antennas 2; CLCORPRM = -.0692, -.0871, .0446, 0;go;
      antennas 3; CLCORPRM = -.0956, -.0980, .0522, 0;go;
      antennas 4; CLCORPRM = -.0762, -.0876, .0458, 0;go;
      antennas 5; CLCORPRM = -.0898, -.0871, .0276, 0;go;
      antennas 6; CLCORPRM = -.0898, -.0871, .0276, 0;go;
      antennas 7; CLCORPRM = -.1118, -.1041, .0384, 0;go;
$ No axis offset corrections required
      endof('clcor')
    end
return; finish

proc ec018
   ec018clcor
return; finish