* FIXQGAIN.001 - runfile to load gain curve procedure FIXQGAIN Proc FIXQGAIN(i,j) * Procedure to put in polynomial gain coefficients at Q band * from Rick Perley Feb98 type 'Applying Q band gain curves from Perley Feb98' type 'These gain curves are normalized to 1 at maximum' getn i gainver j opcode 'gain' source '' ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2746e+00, -1.4431e-02, 1.8961e-04, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.3709e+00, -1.9646e-02, 2.6015e-04, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.3094e+00, -1.6714e-02, 2.2569e-04, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.3109e+00, -1.6200e-02, 2.1102e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.5277e+00, -2.1431e-02, 2.1761e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.6777e+00, -2.7773e-02, 2.8453e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.6012e+00, -2.4908e-02, 2.5798e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.7238e+00, -3.0366e-02, 3.1850e-04, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1229e+00, -7.8297e-03, 1.2466e-04, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1785e+00, -1.0534e-02, 1.5540e-04, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1376e+00, -8.1594e-03, 1.2099e-04, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2044e+00, -1.1520e-02, 1.6233e-04, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.3824e+00, -2.0039e-02, 2.6254e-04, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.4216e+00, -2.1647e-02, 2.7786e-04, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.3688e+00, -1.9616e-02, 2.6083e-04, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.3354e+00, -1.7306e-02, 2.2327e-04, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2884e+00, -1.3842e-02, 1.6610e-04, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2654e+00, -1.1494e-02, 1.2444e-04, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.2333e+00, -1.0357e-02, 1.1497e-04, 0; GO clcor; wait clcor ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2765e+00, -1.2127e-02, 1.3297e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.5306e+00, -2.4886e-02, 2.9180e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.5689e+00, -2.6816e-02, 3.1600e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.5425e+00, -2.5783e-02, 3.0631e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.5506e+00, -2.6504e-02, 3.1893e-04, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1821e+00, -1.1927e-02, 1.9526e-04, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1965e+00, -1.2926e-02, 2.1259e-04, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1554e+00, -1.0706e-02, 1.8443e-04, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1878e+00, -1.2302e-02, 2.0150e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.4554e+00, -1.9915e-02, 2.1776e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.5136e+00, -2.2266e-02, 2.4130e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.5013e+00, -2.1968e-02, 2.4066e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.5680e+00, -2.5132e-02, 2.7801e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.3771e+00, -1.9150e-02, 2.4314e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.4821e+00, -2.4085e-02, 3.0078e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.4425e+00, -2.3102e-02, 3.0152e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.4374e+00, -2.2804e-02, 2.9721e-04, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2223e+00, -1.2434e-02, 1.7386e-04, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2746e+00, -1.5083e-02, 2.0712e-04, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.2236e+00, -1.2130e-02, 1.6455e-04, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2510e+00, -1.3570e-02, 1.8341e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2532e+00, -1.1906e-02, 1.3994e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2734e+00, -1.2418e-02, 1.4102e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.2291e+00, -1.0925e-02, 1.3026e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2462e+00, -1.1625e-02, 1.3719e-04, 0; GO clcor; wait clcor Finish