* FIXUGAIN.001 v31Jan2002 - S.T. Myers (NRAO) runfile to load procedure Proc FIXUGAIN(i,j) * Usage: FIXUGAIN( CATNO, CLVER ) * I = catalog number of file; J = version number of CL table to correct * Procedure to put in polynomial VLA gain coefficients at U band * Compiled by B.Butler 2002-01-31 from Perley-Butler run 2001-11-10 * Same curves as in VLA.GAINS applied in FILLM * Back-propagate to June 2001, since that is the point at * which the subreflector rotation v. elevation was turned on * Use average gain curve for AN 4 which was in barn during run type 'Applying U band gain curves from Perley-Butler 10Nov01' type 'Gain curves normalized to 1 at maximum, IF and Pol averaged' getn i gainver j opcode 'gain' source '' * * AVERAGE COEFF = 9.6948E-01, 1.3767E-03, -1.5178E-05, 0 * ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0397E+00, -9.8692E-04, -3.7885E-06, 0; GO CLCOR; ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0081E+00, 4.1374E-04, -1.1638E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6048E-01, 1.6647E-03, -1.2960E-05, 0; WAIT CLCOR; GO CLCOR; * AN4 was in barn during run, use average curve ANTEN 4 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6948E-01, 1.3767E-03, -1.5178E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6529E-01, 1.5860E-03, -1.3611E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8016E-01, 1.1755E-03, -1.4352E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5769E-01, 2.0396E-03, -1.6369E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6305E-01, 1.5694E-03, -1.4388E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8523E-01, 9.0599E-04, -1.2495E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5100E-01, 1.9395E-03, -1.6428E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8243E-01, 1.3656E-03, -1.6569E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4136E-01, 2.3143E-03, -1.7200E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8270E-01, 9.7308E-04, -1.2213E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5809E-01, 1.8164E-03, -1.6360E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8531E-01, 6.1927E-04, -9.4893E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4594E-01, 2.2752E-03, -1.8248E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5587E-01, 1.8635E-03, -1.8575E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0057E+00, 7.5994E-04, -1.8790E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4818E-01, 2.3953E-03, -2.2005E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.2823E-01, 2.3671E-03, -2.4490E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0044E+00, 3.8123E-04, -9.9215E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5573E-01, 1.8552E-03, -1.6427E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.7774E-01, 8.4048E-04, -7.5917E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8035E-01, 1.0466E-03, -1.2873E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5067E-01, 2.1337E-03, -1.6762E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0096E+00, 1.3621E-03, -2.9158E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6534E-01, 1.6725E-03, -1.6833E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8758E-01, 8.2212E-04, -1.0283E-05, 0; WAIT CLCOR; GO CLCOR; * Pietown - for use with Pietown link data ANTEN 29 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0000E+00, 6.9500E-04, 0.0000E+00, 0.0000E+00, 0; WAIT CLCOR; GO CLCOR; WAIT CLCOR; * Finish