* FIXXGAIN.001 v31Jan2002 - S.T. Myers (NRAO) runfile to load procedure Proc FIXXGAIN(i,j) * Usage: FIXXGAIN( CATNO, CLVER ) * I = catalog number of file; J = version number of CL table to correct * Procedure to put in polynomial VLA gain coefficients * Compiled by B.Butler 2002-01-31 from Perley-Butler run 2001-11-10 * Same curves as in VLA.GAINS applied in FILLM * Use average gain curve for AN 4 which was in barn during run type 'Applying X 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.9690E-01, 1.6734E-04, -1.8897E-06, 0 * ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0008E+00, 7.0325E-05, -1.6914E-06, 0; GO CLCOR; ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0033E+00, -5.9684E-05, -4.9933E-07, 0; WAIT CLCOR; GO CLCOR; ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9006E-01, 3.0577E-04, -1.4439E-06, 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.9690E-01, 1.6734E-04, -1.8897E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9502E-01, 2.7194E-04, -2.4813E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0000E+00, 2.2531E-04, -3.2098E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9706E-01, -6.6324E-05, 2.0249E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0043E+00, -5.9982E-05, -1.1225E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9502E-01, 3.2072E-04, -3.4174E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9005E-01, 3.7931E-04, -2.0394E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0025E+00, 2.3801E-07, -1.5608E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9499E-01, 3.6735E-04, -3.2701E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9004E-01, 3.6927E-04, -2.2379E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9503E-01, 1.8571E-04, -9.5379E-07, 0; WAIT CLCOR; GO CLCOR; ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0221E+00, -1.0033E-03, 8.0369E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9008E-01, 2.0422E-04, -1.4222E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9006E-01, 3.1173E-04, -2.8296E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0091E+00, -2.1767E-04, -8.0688E-07, 0; WAIT CLCOR; GO CLCOR; ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9038E-01, 3.4289E-04, -2.3442E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9005E-01, 3.8997E-04, -3.5883E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0003E+00, 4.0908E-05, -1.3179E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9007E-01, 3.2498E-04, -3.2663E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9674E-01, 2.6866E-04, -4.0631E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0002E+00, 6.9179E-05, -9.9006E-07, 0; WAIT CLCOR; GO CLCOR; ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9000E-01, 5.4831E-04, -5.4944E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9660E-01, 4.7706E-04, -5.7148E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0000E+00, 1.5303E-04, -2.3632E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9255E-01, 2.9816E-04, -2.9561E-06, 0; WAIT CLCOR; GO CLCOR; * AN29 = Pietown - no gain curve used, assume 1 WAIT CLCOR; * Finish