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

proc gg045clcor
    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';version = tver;
      indisk=disk;innam=expname;incl=tclass ;inseq=1;gainver=2
      source '';stokes '';bif 1;eif 0;timer 0;subarray 0;
      selband -1; selfreq -1; freqid -1; baddisk 0;
$ For coordinate correction
      opcode 'antp';
      antennas 1; CLCORPRM = -0.0617,-0.0710, 0.0371, 0;go;
      antennas 2; CLCORPRM = -0.0775,-0.0794, 0.0423, 0;go;
      antennas 3; CLCORPRM = -0.4906, 0.0122,-0.1951, 0;go;
      antennas 4; CLCORPRM = -0.5054,-0.0095,-0.1833, 0;go;
      antennas 5; CLCORPRM =  4.9630, 2.3594,-1.4759, 0;go;
      antennas 6; CLCORPRM =  0.4437,-2.7881,-4.2089, 0;go;
      antennas 7; CLCORPRM = -0.0745.-0.0764, 0.0615, 0;go;
      antennas 8; CLCORPRM = -0.0561, 0.0092,-0.0362, 0;go;
      antennas 9; CLCORPRM = -0.0502,-0.0016,-0.0409, 0;go;
      antennas 10;CLCORPRM = -0.0527,-0.0002,-0.0347, 0;go;
      antennas 11;CLCORPRM = -0.0526,-0.0027,-0.0472, 0;go;
      antennas 12;CLCORPRM = -0.0476, 0.0093,-0.0296, 0;go;
      antennas 13;CLCORPRM =  0.0410,-0.0188, 0.0417, 0;go;
      antennas 14;CLCORPRM = -0.0584,-0.0013,-0.0201, 0;go;
      antennas 15;CLCORPRM = -0.0670,-0.0255,-0.0347, 0;go;
      antennas 16;CLCORPRM = -0.0594, 0.0051, 0.0029, 0;go;
$ For axis offset correction
      opcode 'anax';
$$$      antennas 1; CLCORPRM = 1.5030,0  ;go;

     endof('clcor')
    end
return; finish

proc gg045
   gg045clcor
return; finish