* FIXKGAIN.001 v31Jan2002 - S.T. Myers (NRAO) runfile to load procedure 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 * 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 K 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.5991E-01, 2.6944E-03, -3.6738E-05, 0 * ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8054E-01, 2.2497E-03, -3.9030E-05, 0; GO CLCOR; ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0526E+00, -6.4091E-04, -1.7016E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.1693E-01, 4.0305E-03, -4.0990E-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.5991E-01, 2.6944E-03, -3.6738E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5876E-01, 2.5710E-03, -3.3947E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6381E-01, 2.6219E-03, -3.6190E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.1203E-01, 4.0997E-03, -3.8028E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.3140E-01, 3.7504E-03, -4.2523E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6673E-01, 2.4499E-03, -3.5807E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.3130E-01, 3.5813E-03, -3.8998E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0163E+00, 8.0080E-04, -2.7881E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.7142E-01, 6.0093E-03, -5.5486E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4668E-01, 2.8962E-03, -3.6038E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.0492E-01, 4.5877E-03, -4.5920E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6711E-01, 3.5507E-03, -6.0424E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.9058E-01, 5.1768E-03, -5.0014E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4081E-01, 3.1185E-03, -3.3356E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0395E+00, -1.1674E-05, -2.3193E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6432E-01, 2.6164E-03, -3.7826E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5920E-01, 2.9303E-03, -4.0406E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0427E+00, -2.0670E-04, -1.9238E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.2190E-01, 4.0409E-03, -4.4477E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8932E-01, 1.6080E-03, -2.9130E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0163E+00, -2.5103E-05, -1.0931E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.3631E-01, 3.0091E-03, -3.0599E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0124E+00, 6.2170E-04, -2.8448E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.1459E-01, 4.5644E-03, -5.0734E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6893E-01, 2.7489E-03, -4.5299E-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, 1.3900E-03, 0.0000E+00, 0.0000E+00, 0; WAIT CLCOR; GO CLCOR; WAIT CLCOR; * Finish