Proc FIXKGAIN(i,j)
* Usage: FIXKGAIN( CATNO, CLVER )
* I = catalog number of file; J = version number of CL table to correct
* Procedure to put in polynomial gain coefficients at K band
* from Rick Perley Apr99
* stm 26nov99
  type 'Applying K band gain curves from Perley Apr99'
  getn i
  gainver j
  opcode 'gain'
  source ''
 ANTEN  1 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.945E+00,  0.173E-02, 0.235E-05, 0
 wait clcor; go clcor
 ANTEN  1 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.929E+00,  0.252E-02, -0.372E-05, 0
 wait clcor; go clcor
 ANTEN  1 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.949E+00,  0.125E-02, 0.117E-04, 0
 wait clcor; go clcor
 ANTEN  1 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.935E+00, 0.217E-02, -0.687E-06, 0
 wait clcor; go clcor
 ANTEN  2 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.990E+00, -0.454E-03, 0.189E-04, 0
 wait clcor; go clcor
 ANTEN  2 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.995E+00, -0.693E-03, 0.214E-04, 0
 wait clcor; go clcor
 ANTEN  2 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.995E+00, -.737E-03, 0.226E-04, 0
 wait clcor; go clcor
 ANTEN  2 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.997E+00, -.625E-03, 0.183E-04, 0
 wait clcor; go clcor
 ANTEN  3 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.106E+01, -.328E-02, 0.301E-04, 0
 wait clcor; go clcor
 ANTEN  3 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.107E+01, -.393E-02, 0.374E-04, 0
 wait clcor; go clcor
 ANTEN  3 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.106E+01, -.297E-02, 0.256E-04, 0
 wait clcor; go clcor
 ANTEN  3 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.107E+01, -.383E-02, 0.362E-04, 0
 wait clcor; go clcor
 ANTEN  4 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.108E+01, -.381E-02, 0.313E-04, 0
 wait clcor; go clcor
 ANTEN  4 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.108E+01, -.397E-02, 0.319E-04, 0
 wait clcor; go clcor
 ANTEN  4 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.108E+01, -.387E-02, 0.316E-04, 0
 wait clcor; go clcor
 ANTEN  4 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.108E+01, -.423E-02, 0.361E-04, 0
 wait clcor; go clcor
 ANTEN  5 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.104E+01, -.179E-02, 0.113E-04, 0
 wait clcor; go clcor
 ANTEN  5 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.104E+01, -.188E-02, 0.113E-04, 0
 wait clcor; go clcor
 ANTEN  5 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.104E+01, -.176E-02, 0.116E-04, 0
 wait clcor; go clcor
 ANTEN  5 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.104E+01, -.190E-02, 0.122E-04, 0
 wait clcor; go clcor
 ANTEN  6 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.103E+01, -.219E-02, 0.286E-04, 0
 wait clcor; go clcor
 ANTEN  6 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.103E+01, -.194E-02, 0.250E-04, 0
 wait clcor; go clcor
 ANTEN  6 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.103E+01, -.194E-02, 0.250E-04, 0
 wait clcor; go clcor
 ANTEN  6 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.103E+01, -.220E-02, 0.304E-04, 0
 wait clcor; go clcor
 ANTEN  7 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.107E+01, -.350E-02, 0.274E-04, 0
 wait clcor; go clcor
 ANTEN  7 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.107E+01, -.382E-02, 0.321E-04, 0
 wait clcor; go clcor
 ANTEN  7 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.108E+01, -.427E-02, 0.356E-04, 0
 wait clcor; go clcor
 ANTEN  7 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.109E+01, -.470E-02, 0.394E-04, 0
 wait clcor; go clcor
 ANTEN  8 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.103E+01, -.212E-02, 0.270E-04, 0
 wait clcor; go clcor
 ANTEN  8 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.104E+01, -.249E-02, 0.285E-04, 0
 wait clcor; go clcor
 ANTEN  8 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.103E+01, -.184E-02, 0.236E-04, 0
 wait clcor; go clcor
 ANTEN  8 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.104E+01, -.262E-02, 0.307E-04, 0
 wait clcor; go clcor
 ANTEN  9 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.104E+01, -.238E-02, 0.285E-04, 0
 wait clcor; go clcor
 ANTEN  9 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.104E+01, -.234E-02, 0.258E-04, 0
 wait clcor; go clcor
 ANTEN  9 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.104E+01, -.273E-02, 0.349E-04, 0
 wait clcor; go clcor
 ANTEN  9 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.104E+01, -.286E-02, 0.349E-04, 0
 wait clcor; go clcor
 ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.106E+01, -.343E-02, 0.324E-04, 0
 wait clcor; go clcor
 ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.106E+01, -.357E-02, 0.350E-04, 0
 wait clcor; go clcor
 ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.106E+01, -.325E-02, 0.265E-04, 0
 wait clcor; go clcor
 ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.106E+01, -.340E-02, 0.325E-04, 0
 wait clcor; go clcor
 ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.102E+01, -.154E-02, 0.254E-04, 0
 wait clcor; go clcor
 ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.102E+01, -.216E-02, 0.345E-04, 0
 wait clcor; go clcor
 ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.101E+01, -.105E-02, 0.197E-04, 0
 wait clcor; go clcor
 ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.102E+01, -.209E-02, 0.333E-04, 0
 wait clcor; go clcor
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.109E+01, -.422E-02, 0.285E-04, 0
 wait clcor; go clcor
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.110E+01, -.468E-02, 0.350E-04, 0
 wait clcor; go clcor
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.109E+01, -.424E-02, 0.296E-04, 0
 wait clcor; go clcor
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.110E+01, -.481E-02, 0.370E-04, 0
 wait clcor; go clcor
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.104E+01, -.213E-02, 0.227E-04, 0
 wait clcor; go clcor
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.103E+01, -.189E-02, 0.218E-04, 0
 wait clcor; go clcor
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.104E+01, -.215E-02, 0.217E-04, 0
 wait clcor; go clcor
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.104E+01, -.229E-02, 0.246E-04, 0
 wait clcor; go clcor
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.108E+01, -.430E-02, 0.395E-04, 0
 wait clcor; go clcor
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.109E+01, -.504E-02, 0.511E-04, 0
 wait clcor; go clcor
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.108E+01, -.404E-02, 0.362E-04, 0
 wait clcor; go clcor
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.109E+01, -.470E-02, 0.468E-04, 0
 wait clcor; go clcor
 ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.972E+00, 0.637E-03, 0.728E-05, 0
 wait clcor; go clcor
 ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.985E+00, -.178E-03, 0.170E-04, 0
 wait clcor; go clcor
 ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.975E+00, 0.522E-03, 0.749E-05, 0
 wait clcor; go clcor
 ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.985E+00, -.961E-04, 0.148E-04, 0
 wait clcor; go clcor
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.106E+01, -.365E-02, 0.383E-04, 0
 wait clcor; go clcor
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.107E+01, -.419E-02, 0.447E-04, 0
 wait clcor; go clcor
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.107E+01, -.393E-02, 0.420E-04, 0
 wait clcor; go clcor
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.107E+01, -.413E-02, 0.451E-04, 0
 wait clcor; go clcor
 ANTEN 17 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.105E+01, -.305E-02, 0.383E-04, 0
 wait clcor; go clcor
 ANTEN 17 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.105E+01, -.350E-02, 0.453E-04, 0
 wait clcor; go clcor
 ANTEN 17 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.104E+01, -.270E-02, 0.356E-04, 0
 wait clcor; go clcor
 ANTEN 17 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.105E+01, -.317E-02, 0.397E-04, 0
 wait clcor; go clcor
 ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.961E+00, -.404E-03, 0.423E-04, 0
 wait clcor; go clcor
 ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.956E+00, 0.194E-03, 0.313E-04, 0
 wait clcor; go clcor
 ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.946E+00, -.838E-04, 0.463E-04, 0
 wait clcor; go clcor
 ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.946E+00, 0.364E-03, 0.359E-04, 0
 wait clcor; go clcor
 ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.109E+01, -.461E-02, 0.374E-04, 0
 wait clcor; go clcor
 ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.111E+01, -.543E-02, 0.453E-04, 0
 wait clcor; go clcor
 ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.109E+01, -.452E-02, 0.363E-04, 0
 wait clcor; go clcor
 ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.111E+01, -.547E-02, 0.457E-04, 0
 wait clcor; go clcor
 ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.108E+01, -.421E-02, 0.383E-04, 0
 wait clcor; go clcor
 ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.109E+01, -.486E-02, 0.463E-04, 0
 wait clcor; go clcor
 ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.108E+01, -.401E-02, 0.355E-04, 0
 wait clcor; go clcor
 ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.110E+01, -.509E-02, 0.466E-04, 0
 wait clcor; go clcor
* From 1998 - no Apr99 measurement
 ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.991E+00,  -.153E-02, 0.515E-04, 0
 wait clcor; go clcor
 ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.997E+00,  -.167E-02, 0.532E-04, 0
 wait clcor; go clcor
 ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.998E+00,  -.175E-02, 0.537E-04, 0
 wait clcor; go clcor
 ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.100E+01,  -.204E-02, 0.599E-04, 0
 wait clcor; go clcor
*
 ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.108E+01, -.471E-02, 0.526E-04, 0
 wait clcor; go clcor
 ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.106E+01, -.309E-02, 0.266E-04, 0
 wait clcor; go clcor
 ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.106E+01, -.327E-02, 0.305E-04, 0
 wait clcor; go clcor
 ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.107E+01, -.367E-02, 0.352E-04, 0
 wait clcor; go clcor
 ANTEN 23 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.106E+01, -.314E-02, 0.306E-04, 0
 wait clcor; go clcor
 ANTEN 23 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.107E+01, -.372E-02, 0.354E-04, 0
 wait clcor; go clcor
 ANTEN 23 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.106E+01, -.362E-02, 0.385E-04, 0
 wait clcor; go clcor
 ANTEN 23 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.107E+01, -.436E-02, 0.469E-04, 0
 wait clcor; go clcor
 ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.102E+01, -.582E-03, -.736E-05, 0
 wait clcor; go clcor
 ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.103E+01, -.107E-02, 0.267E-05, 0
 wait clcor; go clcor
 ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.101E+01, 0.114E-03, -.189E-04, 0
 wait clcor; go clcor
 ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.102E+01, -.803E-03, -.299E-05, 0
 wait clcor; go clcor
 ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.108E+01, -.375E-02, 0.229E-04, 0
 wait clcor; go clcor
 ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.109E+01, -.481E-02, 0.378E-04, 0
 wait clcor; go clcor
 ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.108E+01, -.389E-02, 0.263E-04, 0
 wait clcor; go clcor
 ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.109E+01, -.471E-02, 0.377E-04, 0
 wait clcor; go clcor
 ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.101E+01, -.193E-02, 0.384E-04, 0
 wait clcor; go clcor
 ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.102E+01, -.241E-02, 0.441E-04, 0
 wait clcor; go clcor
 ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.102E+01, -.242E-02, 0.449E-04, 0
 wait clcor; go clcor
 ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.103E+01, -.289E-02, 0.485E-04, 0
 wait clcor; go clcor
 ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.105E+01, -.284E-02, 0.237E-04, 0
 wait clcor; go clcor
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.105E+01, -.291E-02, 0.257E-04, 0
 wait clcor; go clcor
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.106E+01, -.343E-02, 0.348E-04, 0
 wait clcor; go clcor
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.106E+01, -.321E-02, 0.314E-04, 0
 wait clcor; go clcor
 ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR  0.103E+01, -.167E-02, 0.132E-04, 0
 wait clcor; go clcor
 ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR  0.104E+01, -.201E-02, 0.152E-04, 0
 wait clcor; go clcor
 ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR  0.103E+01, -.165E-02, 0.124E-04, 0
 wait clcor; go clcor
 ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR  0.105E+01, -.227E-02, 0.181E-04, 0
 wait clcor; go clcor
 Finish