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

proc uah5clcor
    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 =  4.0611,  2.0934, -1.2891, 0;go;
      antennas 2; CLCORPRM =  4.0651,  2.4834, -1.4810, 0;go;
      antennas 4; CLCORPRM = -0.0621, -0.0637,  0.0339, 0;go;
      antennas 5; CLCORPRM = -0.0598, -0.0613,  0.0493, 0;go;
      antennas 6; CLCORPRM =  0.4568, -2.7746, -4.2150, 0;go;
$ For axis offset correction
      opcode 'anax';
      antennas 1; CLCORPRM =  0.4580, 0 ;go;
      antennas 4; CLCORPRM =  0.0003, 0 ;go;
      antennas 5: CLCORPRM = -0.0004, 0 ;go;
      endof('clcor')
    end
return; finish

proc uah5
   uah5clcor
return; finish