* 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 Mar95 * Missing AN 23 type 'Applying K band gain curves from Perley Mar95' 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.8701e-01, 2.1116e-03, 8.8724e-06, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 8.9634e-01, 1.7928e-03, 1.1347e-05, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 8.9366e-01, 1.6943e-03, 1.4863e-05, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 9.0225e-01, 1.4372e-03, 1.6332e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0000e+00, -3.4131e-05, 1.1377e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 9.8322e-01, 5.6290e-05, 7.0363e-06, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 9.7541e-01, 2.6377e-04, 6.2803e-06, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 9.7375e-01, 6.4631e-04, -1.3989e-06, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0670e+00, -3.0472e-03, 3.4628e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0817e+00, -3.6805e-03, 4.1447e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0702e+00, -3.1285e-03, 3.4839e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0827e+00, -3.5816e-03, 3.8762e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1375e+00, -4.9116e-03, 4.3854e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1491e+00, -5.2703e-03, 4.6557e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1366e+00, -4.9477e-03, 4.4816e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1491e+00, -5.2408e-03, 4.6053e-05, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1283e+00, -4.4156e-03, 3.8000e-05, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1276e+00, -4.3267e-03, 3.6667e-05, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1254e+00, -4.4088e-03, 3.8742e-05, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1417e+00, -4.8962e-03, 4.2282e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0333e+00, -1.9281e-03, 2.7943e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0391e+00, -2.1350e-03, 2.9167e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0498e+00, -2.7819e-03, 3.8854e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0436e+00, -2.0197e-03, 2.3376e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1288e+00, -4.5833e-03, 4.0777e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1378e+00, -4.8081e-03, 4.1956e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1318e+00, -4.6405e-03, 4.0850e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1288e+00, -4.4354e-03, 3.8170e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2202e+00, -6.3747e-03, 4.6127e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2226e+00, -6.6254e-03, 4.9296e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.2267e+00, -6.5053e-03, 4.6667e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2202e+00, -6.3747e-03, 4.6127e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0288e+00, -1.3830e-03, 1.6582e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0552e+00, -2.3597e-03, 2.5210e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0302e+00, -1.4994e-03, 1.8603e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0511e+00, -2.3322e-03, 2.6624e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1238e+00, -4.6789e-03, 4.4224e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1135e+00, -4.2821e-03, 4.0397e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1196e+00, -4.3952e-03, 4.0397e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1203e+00, -4.6629e-03, 4.5183e-05, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0023e+00, -3.4076e-04, 1.2810e-05, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0153e+00, -1.1188e-03, 2.0490e-05, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0044e+00, -4.8164e-04, 1.3160e-05, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0099e+00, -8.4153e-04, 1.7829e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1747e+00, -5.6091e-03, 4.5017e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1789e+00, -5.6617e-03, 4.4792e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1686e+00, -5.3938e-03, 4.3151e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1722e+00, -5.5019e-03, 4.3945e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1374e+00, -4.0467e-03, 2.9799e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1486e+00, -4.3274e-03, 3.1495e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1323e+00, -4.1087e-03, 3.1900e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1525e+00, -4.3319e-03, 3.0767e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1389e+00, -4.2334e-03, 3.2267e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1552e+00, -4.6470e-03, 3.4783e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1523e+00, -5.0349e-03, 4.1611e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1439e+00, -4.5246e-03, 3.5570e-05, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0321e+00, -1.5606e-03, 1.8939e-05, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0340e+00, -1.5251e-03, 1.7098e-05, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0356e+00, -1.6457e-03, 1.9003e-05, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0336e+00, -1.5716e-03, 1.8360e-05, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1282e+00, -3.9870e-03, 3.1003e-05, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1485e+00, -4.6683e-03, 3.6700e-05, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1308e+00, -4.0803e-03, 3.1827e-05, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1471e+00, -4.9037e-03, 4.0864e-05, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0713e+00, -3.0936e-03, 3.3553e-05, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0748e+00, -3.1299e-03, 3.2739e-05, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0758e+00, -3.3155e-03, 3.6275e-05, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0790e+00, -3.2730e-03, 3.3882e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0064e+00, -8.1509e-04, 2.5958e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0079e+00, -8.9630e-04, 2.5319e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0030e+00, -5.2571e-04, 2.2857e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0094e+00, -1.0125e-03, 2.7218e-05, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1421e+00, -4.8588e-03, 4.1528e-05, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1585e+00, -5.4092e-03, 4.6154e-05, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1416e+00, -4.8505e-03, 4.1528e-05, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1518e+00, -5.0266e-03, 4.1611e-05, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1014e+00, -4.0954e-03, 4.1368e-05, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1074e+00, -4.1624e-03, 4.0333e-05, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1064e+00, -4.3178e-03, 4.3791e-05, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1061e+00, -4.2799e-03, 4.3144e-05, 0; GO clcor; wait clcor ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0068e+00, -7.2448e-04, 1.9371e-05, 0; GO clcor; wait clcor ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0006e+00, -1.6380e-04, 1.1375e-05, 0; GO clcor; wait clcor ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0056e+00, -6.1960e-04, 1.7022e-05, 0; GO clcor; wait clcor ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0061e+00, -6.5330e-04, 1.7375e-05, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1027e+00, -3.8596e-03, 3.6275e-05, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0967e+00, -3.6091e-03, 3.3667e-05, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1006e+00, -3.7980e-03, 3.5831e-05, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1034e+00, -3.8592e-03, 3.6000e-05, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0248e+00, -1.0250e-03, 1.0611e-05, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0346e+00, -1.4027e-03, 1.4226e-05, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0212e+00, -9.2294e-04, 1.0032e-05, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0363e+00, -1.4985e-03, 1.5481e-05, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1601e+00, -4.6667e-03, 3.4014e-05, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1589e+00, -4.6336e-03, 3.3772e-05, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1518e+00, -4.1816e-03, 2.8799e-05, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1572e+00, -4.7067e-03, 3.5230e-05, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0112e+00, -7.9796e-04, 1.4249e-05, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0038e+00, -2.8891e-04, 5.5346e-06, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0122e+00, -9.4354e-04, 1.8286e-05, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0083e+00, -5.3785e-04, 8.6751e-06, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0901e+00, -3.4927e-03, 3.3844e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0856e+00, -3.0829e-03, 2.7774e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0875e+00, -3.2537e-03, 3.0239e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0873e+00, -3.2514e-03, 3.0274e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0394e+00, -1.3162e-03, 1.0987e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.0476e+00, -1.5461e-03, 1.2550e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0439e+00, -1.5367e-03, 1.3432e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.0504e+00, -1.4571e-03, 1.0528e-05, 0; GO clcor; wait clcor Finish