* FIXKGAIN.001 - runfile to load gain curve procedure FIXKGAIN
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 Feb98
  type 'Applying K band gain curves from Perley Feb98'
  type 'These gain curves are normalized to 1 at maximum'
  getn i
  gainver j
  opcode 'gain'
  source ''
 ANTEN 1 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 8.7847e-01, 1.0262e-03, 3.7210e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 8.7918e-01, 1.0519e-03, 3.6287e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 8.8083e-01, 8.7795e-04, 3.9340e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 8.7471e-01, 1.1091e-03, 3.7226e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0225e+00, -2.5766e-03, 7.3923e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0158e+00, -2.0624e-03, 6.7208e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0227e+00, -2.6385e-03, 7.6802e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0228e+00, -2.6750e-03, 7.8302e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1322e+00, -7.0662e-03, 9.4418e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1358e+00, -7.3776e-03, 1.0021e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1379e+00, -7.3110e-03, 9.6876e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1350e+00, -7.2658e-03, 9.7789e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1173e+00, -6.1152e-03, 7.9707e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1242e+00, -6.3034e-03, 7.9997e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1110e+00, -5.8152e-03, 7.6168e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1165e+00, -5.9413e-03, 7.5761e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0868e+00, -5.2628e-03, 7.9797e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0533e+00, -3.2296e-03, 4.8891e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0765e+00, -4.5952e-03, 6.8978e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0582e+00, -3.4742e-03, 5.1814e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0701e+00, -4.2205e-03, 6.3507e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0683e+00, -4.1436e-03, 6.2803e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0725e+00, -4.3297e-03, 6.4648e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0751e+00, -4.4597e-03, 6.6199e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1073e+00, -5.9897e-03, 8.3554e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1071e+00, -5.8574e-03, 8.0111e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1033e+00, -5.7189e-03, 7.9154e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1154e+00, -6.3003e-03, 8.6014e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0745e+00, -4.4274e-03, 6.5764e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0923e+00, -5.2528e-03, 7.4770e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0765e+00, -4.4654e-03, 6.5186e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0743e+00, -4.4065e-03, 6.5352e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0670e+00, -4.1155e-03, 6.3207e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0870e+00, -5.1711e-03, 7.6804e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0555e+00, -3.6278e-03, 5.9234e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0644e+00, -4.0221e-03, 6.2838e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1286e+00, -6.2476e-03, 7.5878e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0857e+00, -4.2331e-03, 5.2291e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0905e+00, -4.1341e-03, 4.7191e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0820e+00, -4.0998e-03, 5.1223e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 9.4426e-01, 1.1422e-03, 2.1465e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 9.6225e-01, 5.9573e-04, 5.4040e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 9.4931e-01, 9.9564e-04, 2.9081e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 9.6061e-01, 9.0626e-04, -6.8785e-07, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1521e+00, -6.5894e-03, 7.1352e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1524e+00, -6.6619e-03, 7.2786e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1513e+00, -6.5541e-03, 7.0995e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1508e+00, -6.7937e-03, 7.6518e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0885e+00, -5.1198e-03, 7.4076e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0968e+00, -5.6349e-03, 8.2008e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0869e+00, -5.0925e-03, 7.4576e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0955e+00, -5.5377e-03, 8.0301e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1414e+00, -7.7042e-03, 1.0497e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1434e+00, -7.5179e-03, 9.8553e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1342e+00, -7.3368e-03, 1.0024e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1510e+00, -8.0364e-03, 1.0695e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0243e+00, -2.2616e-03, 5.2634e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0238e+00, -2.1580e-03, 4.8882e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0256e+00, -2.3529e-03, 5.3997e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0266e+00, -2.2948e-03, 4.9420e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1210e+00, -5.6151e-03, 6.5140e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1461e+00, -6.7652e-03, 7.8302e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1237e+00, -5.8309e-03, 6.8736e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1420e+00, -6.5385e-03, 7.5288e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0480e+00, -4.1620e-03, 9.0228e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0470e+00, -4.0873e-03, 8.8893e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0484e+00, -4.1435e-03, 8.8761e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0522e+00, -4.4191e-03, 9.3592e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1154e+00, -5.6374e-03, 6.8835e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1376e+00, -6.4863e-03, 7.6439e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1256e+00, -6.1909e-03, 7.6280e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1358e+00, -6.5436e-03, 7.8805e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1271e+00, -6.3099e-03, 7.8295e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1267e+00, -6.4354e-03, 8.1712e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1338e+00, -6.6408e-03, 8.2403e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.1290e+00, -6.3404e-03, 7.7920e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0116e+00, -1.5618e-03, 5.2571e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0133e+00, -1.6973e-03, 5.4071e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0145e+00, -1.7789e-03, 5.4587e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0177e+00, -2.0761e-03, 6.0959e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0475e+00, -2.7598e-03, 4.0087e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0578e+00, -3.1835e-03, 4.3824e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0399e+00, -2.4131e-03, 3.6448e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0627e+00, -3.4790e-03, 4.8225e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0363e+00, -2.5555e-03, 4.4974e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0259e+00, -1.8824e-03, 3.4262e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0273e+00, -2.0247e-03, 3.7502e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0300e+00, -2.2100e-03, 4.0700e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0276e+00, -2.6597e-03, 6.4074e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0196e+00, -2.0595e-03, 5.4010e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0316e+00, -2.9735e-03, 6.9888e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0150e+00, -1.6884e-03, 4.7435e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.1066e+00, -5.4433e-03, 6.9487e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0875e+00, -4.5196e-03, 5.8366e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.1065e+00, -5.4922e-03, 7.0815e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0958e+00, -4.9058e-03, 6.2830e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0342e+00, -2.3320e-03, 3.9746e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0569e+00, -3.4757e-03, 5.3050e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0492e+00, -3.1175e-03, 4.9335e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0482e+00, -3.1141e-03, 5.0274e-05, 0; 
 GO clcor; wait clcor 
 Finish