* FIXKGAIN.001 - runfile to load gain curve procedure FIXKGAIN * 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 Perley Oct 2/3 2000 run * Use Jul00 curves for AN 2,4,17 * Use Apr99 curves for AN 1 type 'Applying K band gain curves from Perley Oct00' type 'These gain curves are normalized to 1 at maximum' getn i gainver j opcode 'gain' source '' * From Apr99 ANTEN 1 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 0.945E+00, 0.173E-02, 0.235E-05, 0 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 * from Jul00 ANTEN 2 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0125e+00, -1.1818e-03, 2.7930e-05, 0; wait clcor; go clcor ANTEN 2 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0041e+00, -6.0815e-04, 2.2647e-05, 0; wait clcor; go clcor ANTEN 2 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0120e+00, -1.1286e-03, 2.6466e-05, 0; wait clcor; go clcor ANTEN 2 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0050e+00, -6.8980e-04, 2.3597e-05, 0; wait clcor; go clcor ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1424e+00, -5.0021e-03, 4.3937e-05, 0; wait clcor; go clcor ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1410e+00, -4.9293e-03, 4.3088e-05, 0; wait clcor; go clcor ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1345e+00, -4.7329e-03, 4.1622e-05, 0; wait clcor; go clcor ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1370e+00, -4.7377e-03, 4.0947e-05, 0; wait clcor; go clcor ANTEN 17 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1611e+00, -7.3238e-03, 8.3241e-05, 0; wait clcor; go clcor ANTEN 17 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1623e+00, -7.3009e-03, 8.2090e-05, 0; wait clcor; go clcor ANTEN 17 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1674e+00, -7.6287e-03, 8.6931e-05, 0; wait clcor; go clcor ANTEN 17 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1572e+00, -7.0336e-03, 7.8651e-05, 0; wait clcor; go clcor * from Oct00 ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1029e+00, -4.0440e-03, 3.9726e-05, 0; wait clcor; go clcor ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0960e+00, -3.4300e-03, 3.0647e-05, 0; wait clcor; go clcor ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0330e+00, -1.8754e-03, 2.6676e-05, 0; wait clcor; go clcor ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0474e+00, -2.1855e-03, 2.5178e-05, 0; wait clcor; go clcor ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0318e+00, -1.5528e-03, 1.8934e-05, 0; wait clcor; go clcor ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0289e+00, -1.4884e-03, 1.9179e-05, 0; wait clcor; go clcor ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0965e+00, -3.5737e-03, 3.3097e-05, 0; wait clcor; go clcor ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0997e+00, -3.5128e-03, 3.0954e-05, 0; wait clcor; go clcor ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0727e+00, -2.8133e-03, 2.7222e-05, 0; wait clcor; go clcor ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0784e+00, -2.9401e-03, 2.7570e-05, 0; wait clcor; go clcor ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0536e+00, -2.7049e-03, 3.4140e-05, 0; wait clcor; go clcor ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0567e+00, -2.0931e-03, 1.9306e-05, 0; wait clcor; go clcor ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0623e+00, -2.2560e-03, 2.0436e-05, 0; wait clcor; go clcor ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0755e+00, -2.5061e-03, 2.0800e-05, 0; wait clcor; go clcor ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0043e+00, -6.7088e-04, 2.6305e-05, 0; wait clcor; go clcor ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0053e+00, -7.6797e-04, 2.7908e-05, 0; wait clcor; go clcor ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1716e+00, -5.3453e-03, 4.1633e-05, 0; wait clcor; go clcor ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1694e+00, -5.3669e-03, 4.2497e-05, 0; wait clcor; go clcor ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0936e+00, -3.2193e-03, 2.7696e-05, 0; wait clcor; go clcor ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0847e+00, -2.3331e-03, 1.6066e-05, 0; wait clcor; go clcor ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1122e+00, -4.8571e-03, 5.2550e-05, 0; wait clcor; go clcor ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1154e+00, -4.2364e-03, 3.8885e-05, 0; wait clcor; go clcor ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0139e+00, -1.2876e-03, 2.9909e-05, 0; wait clcor; go clcor ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0265e+00, -1.9825e-03, 3.7134e-05, 0; wait clcor; go clcor ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1384e+00, -4.8305e-03, 4.2151e-05, 0; wait clcor; go clcor ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1345e+00, -4.8344e-03, 4.3439e-05, 0; wait clcor; go clcor ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0020e+00, -4.2243e-04, 2.2346e-05, 0; wait clcor; go clcor ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0167e+00, -1.5352e-03, 3.5280e-05, 0; wait clcor; go clcor ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0267e+00, -1.8018e-03, 3.0398e-05, 0; wait clcor; go clcor ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0336e+00, -2.0973e-03, 3.2714e-05, 0; wait clcor; go clcor ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0611e+00, -2.9610e-03, 3.5875e-05, 0; wait clcor; go clcor ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0778e+00, -3.8377e-03, 4.7341e-05, 0; wait clcor; go clcor ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0051e+00, -7.8606e-04, 3.0023e-05, 0; wait clcor; go clcor ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0026e+00, -5.4463e-04, 2.8863e-05, 0; wait clcor; go clcor ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0827e+00, -3.5720e-03, 3.8554e-05, 0; wait clcor; go clcor ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0843e+00, -3.2023e-03, 3.0402e-05, 0; wait clcor; go clcor ANTEN 23 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0128e+00, -9.4761e-04, 1.7548e-05, 0; wait clcor; go clcor ANTEN 23 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0171e+00, -1.1278e-03, 1.8630e-05, 0; wait clcor; go clcor ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0006e+00, -2.0257e-04, 1.6185e-05, 0; wait clcor; go clcor ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0052e+00, -6.4784e-04, 2.0346e-05, 0; wait clcor; go clcor ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1544e+00, -5.4939e-03, 4.8858e-05, 0; wait clcor; go clcor ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1562e+00, -4.9965e-03, 3.9952e-05, 0; wait clcor; go clcor ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0139e+00, -5.9932e-04, 6.4450e-06, 0; wait clcor; go clcor ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0349e+00, -1.1052e-03, 8.7611e-06, 0; wait clcor; go clcor ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0721e+00, -3.2668e-03, 3.7017e-05, 0; wait clcor; go clcor ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0814e+00, -3.1728e-03, 3.0912e-05, 0; wait clcor; go clcor ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0475e+00, -2.7296e-03, 3.9182e-05, 0; wait clcor; go clcor ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0679e+00, -3.7479e-03, 5.1684e-05, 0; wait clcor; go clcor ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0952e+00, -3.6508e-03, 3.4987e-05, 0; wait clcor; go clcor ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0932e+00, -3.4021e-03, 3.1058e-05, 0; wait clcor; go clcor ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0349e+00, -1.8688e-03, 2.5018e-05, 0; wait clcor; go clcor ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0506e+00, -2.5861e-03, 3.3034e-05, 0; wait clcor; go clcor ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0366e+00, -1.8418e-03, 2.3148e-05, 0; wait clcor; go clcor ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0439e+00, -2.1479e-03, 2.6297e-05, 0; wait clcor; go clcor ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0885e+00, -3.0416e-03, 2.6144e-05, 0; wait clcor; go clcor ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1021e+00, -3.6635e-03, 3.2859e-05, 0; wait clcor; go clcor ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0733e+00, -2.7137e-03, 2.5111e-05, 0; wait clcor; go clcor ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0660e+00, -2.7656e-03, 2.8964e-05, 0; wait clcor; go clcor ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0603e+00, -2.8276e-03, 3.3123e-05, 0; wait clcor; go clcor ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0537e+00, -2.3505e-03, 2.5734e-05, 0; wait clcor; go clcor ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0680e+00, -2.5326e-03, 2.3597e-05, 0; wait clcor; go clcor ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0780e+00, -2.7356e-03, 2.4000e-05, 0; wait clcor; go clcor ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0038e+00, -6.1081e-04, 2.4738e-05, 0; wait clcor; go clcor ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0013e+00, -3.2866e-04, 2.0822e-05, 0; wait clcor; go clcor ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1542e+00, -5.3897e-03, 4.7096e-05, 0; wait clcor; go clcor ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1697e+00, -5.4965e-03, 4.4510e-05, 0; wait clcor; go clcor ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0879e+00, -3.2536e-03, 3.0096e-05, 0; wait clcor; go clcor ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0978e+00, -3.3543e-03, 2.8766e-05, 0; wait clcor; go clcor ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0951e+00, -3.7295e-03, 3.6572e-05, 0; wait clcor; go clcor ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1131e+00, -4.1461e-03, 3.7989e-05, 0; wait clcor; go clcor ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0133e+00, -1.2565e-03, 2.9590e-05, 0; wait clcor; go clcor ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0287e+00, -2.1583e-03, 4.0544e-05, 0; wait clcor; go clcor ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1290e+00, -4.4032e-03, 3.7566e-05, 0; wait clcor; go clcor ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1271e+00, -3.8777e-03, 2.9574e-05, 0; wait clcor; go clcor ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0054e+00, -7.9738e-04, 2.9468e-05, 0; wait clcor; go clcor ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0096e+00, -1.0655e-03, 2.9427e-05, 0; wait clcor; go clcor ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0332e+00, -1.8055e-03, 2.4575e-05, 0; wait clcor; go clcor ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0231e+00, -1.5848e-03, 2.7182e-05, 0; wait clcor; go clcor ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0640e+00, -3.1716e-03, 3.9316e-05, 0; wait clcor; go clcor ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0821e+00, -3.9846e-03, 4.8341e-05, 0; wait clcor; go clcor ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0012e+00, -3.5481e-04, 2.5592e-05, 0; wait clcor; go clcor ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0030e+00, -5.9813e-04, 2.9392e-05, 0; wait clcor; go clcor ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0808e+00, -3.0505e-03, 2.8788e-05, 0; wait clcor; go clcor ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0867e+00, -3.1179e-03, 2.8031e-05, 0; wait clcor; go clcor ANTEN 23 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0123e+00, -9.3316e-04, 1.7641e-05, 0; wait clcor; go clcor ANTEN 23 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0124e+00, -8.4600e-04, 1.4434e-05, 0; wait clcor; go clcor ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0018e+00, -3.4779e-04, 1.6832e-05, 0; wait clcor; go clcor ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0010e+00, -2.3325e-04, 1.4299e-05, 0; wait clcor; go clcor ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1542e+00, -5.4723e-03, 4.8540e-05, 0; wait clcor; go clcor ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1595e+00, -5.2800e-03, 4.3689e-05, 0; wait clcor; go clcor ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0098e+00, -4.8192e-04, 5.8991e-06, 0; wait clcor; go clcor ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0286e+00, -1.2808e-03, 1.4320e-05, 0; wait clcor; go clcor ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0767e+00, -3.0371e-03, 3.0066e-05, 0; wait clcor; go clcor ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0740e+00, -3.0498e-03, 3.1410e-05, 0; wait clcor; go clcor ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0501e+00, -2.7363e-03, 3.7359e-05, 0; wait clcor; go clcor ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0636e+00, -3.3122e-03, 4.3150e-05, 0; wait clcor; go clcor wait clcor; * Finish