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 1.5081e+00, 2.7609e-03, 3.7504e-06, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 6.8522e-01, 1.8587e-03, -2.7438e-06, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0365e+00, 1.3652e-03, 1.2778e-05, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.5302e-01, 8.1931e-04, -2.5938e-07, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0028e+00, -4.5985e-04, 1.9144e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0057e+00, -7.0043e-04, 2.1629e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0061e+00, -7.4520e-04, 2.2852e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0054e+00, -6.3025e-04, 1.8454e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0921e+00, -3.3792e-03, 3.1010e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1068e+00, -4.0651e-03, 3.8686e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0885e+00, -3.0497e-03, 2.6287e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1046e+00, -3.9538e-03, 3.7370e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1203e+00, -3.9520e-03, 3.2467e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1291e+00, -4.1506e-03, 3.3351e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1232e+00, -4.0249e-03, 3.2865e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1296e+00, -4.4243e-03, 3.7758e-05, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0731e+00, -1.8471e-03, 1.1660e-05, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0813e+00, -1.9547e-03, 1.1749e-05, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0686e+00, -1.8084e-03, 1.1919e-05, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0766e+00, -1.9668e-03, 1.2629e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0424e+00, -2.2164e-03, 2.8945e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0394e+00, -2.1090e-03, 2.8254e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0379e+00, -1.9549e-03, 2.5192e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0402e+00, -2.2218e-03, 3.0701e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1166e+00, -3.6526e-03, 2.8594e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1188e+00, -3.9943e-03, 3.3565e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1345e+00, -4.4855e-03, 3.7397e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1476e+00, -4.9482e-03, 4.1481e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0421e+00, -2.1449e-03, 2.7317e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0552e+00, -2.5263e-03, 2.8916e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0361e+00, -1.8509e-03, 2.3739e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0568e+00, -2.6623e-03, 3.1196e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0502e+00, -2.4033e-03, 2.8779e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0538e+00, -2.3710e-03, 2.6141e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0541e+00, -2.7670e-03, 3.5374e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0597e+00, -2.9142e-03, 3.5561e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0937e+00, -3.5389e-03, 3.3429e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0940e+00, -3.6843e-03, 3.6121e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1038e+00, -3.3842e-03, 2.7594e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0916e+00, -3.5013e-03, 3.3468e-05, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0234e+00, -1.5452e-03, 2.5485e-05, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0343e+00, -2.1902e-03, 3.4983e-05, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0140e+00, -1.0542e-03, 1.9779e-05, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0332e+00, -2.1171e-03, 3.3732e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1673e+00, -4.5192e-03, 3.0521e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1658e+00, -4.9600e-03, 3.7094e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1618e+00, -4.5195e-03, 3.1551e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1657e+00, -5.0971e-03, 3.9208e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0505e+00, -2.1514e-03, 2.2929e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0414e+00, -1.9110e-03, 2.2042e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0540e+00, -2.1789e-03, 2.1991e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0540e+00, -2.3209e-03, 2.4931e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1215e+00, -4.4653e-03, 4.1019e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1287e+00, -5.2189e-03, 5.2914e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1165e+00, -4.1767e-03, 3.7424e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1214e+00, -4.8354e-03, 4.8148e-05, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0145e+00, 6.6488e-04, 7.5986e-06, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0005e+00, -1.8080e-04, 1.7267e-05, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0094e+00, 5.4043e-04, 7.7544e-06, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0002e+00, -9.7579e-05, 1.5028e-05, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0894e+00, -3.7511e-03, 3.9361e-05, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1010e+00, -4.3115e-03, 4.5997e-05, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0940e+00, -4.0181e-03, 4.2942e-05, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0969e+00, -4.2339e-03, 4.6235e-05, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0614e+00, -3.0831e-03, 3.8715e-05, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0688e+00, -3.5627e-03, 4.6112e-05, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0518e+00, -2.7306e-03, 3.6003e-05, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0641e+00, -3.2127e-03, 4.0234e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0010e+00, -4.2082e-04, 4.4061e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0003e+00, 2.0299e-04, 3.2751e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0000e+00, -8.8587e-05, 4.8945e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0010e+00, 3.8515e-04, 3.7986e-05, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1499e+00, -4.8632e-03, 3.9454e-05, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1718e+00, -5.7322e-03, 4.7821e-05, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1482e+00, -4.7614e-03, 3.8239e-05, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1730e+00, -5.7803e-03, 4.8292e-05, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1200e+00, -4.3658e-03, 3.9718e-05, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1325e+00, -5.0495e-03, 4.8106e-05, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1171e+00, -4.1479e-03, 3.6721e-05, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1446e+00, -5.2965e-03, 4.8491e-05, 0; GO clcor; wait 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 1.1082e+00, -4.8329e-03, 5.3973e-05, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0925e+00, -3.1847e-03, 2.7415e-05, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0901e+00, -3.3630e-03, 3.1367e-05, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0982e+00, -3.7667e-03, 3.6127e-05, 0; GO clcor; wait clcor ANTEN 23 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0822e+00, -3.2059e-03, 3.1242e-05, 0; GO clcor; wait clcor ANTEN 23 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1005e+00, -3.8261e-03, 3.6410e-05, 0; GO clcor; wait clcor ANTEN 23 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0873e+00, -3.7132e-03, 3.9491e-05, 0; GO clcor; wait clcor ANTEN 23 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1046e+00, -4.5010e-03, 4.8417e-05, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 9.8885e-01, -5.6422e-04, -7.1352e-06, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1162e+00, -1.1595e-03, 2.8934e-06, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 9.9983e-01, 1.1285e-04, -1.8710e-05, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 9.4980e-01, -7.4773e-04, -2.7842e-06, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1657e+00, -4.0476e-03, 2.4717e-05, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1633e+00, -5.1335e-03, 4.0342e-05, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1537e+00, -4.1553e-03, 2.8094e-05, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1560e+00, -4.9953e-03, 3.9983e-05, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0246e+00, -1.9579e-03, 3.8955e-05, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0334e+00, -2.4416e-03, 4.4677e-05, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0330e+00, -2.4509e-03, 4.5473e-05, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0436e+00, -2.9282e-03, 4.9141e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0882e+00, -2.9432e-03, 2.4562e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0851e+00, -3.0074e-03, 2.6560e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0866e+00, -3.5162e-03, 3.5675e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0839e+00, -3.2823e-03, 3.2108e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0541e+00, -1.7090e-03, 1.3508e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0683e+00, -2.0646e-03, 1.5613e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0563e+00, -1.6921e-03, 1.2717e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0727e+00, -2.3191e-03, 1.8492e-05, 0; GO clcor; wait clcor Finish