* FIXUGAIN.001 v08feb2002 - 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 gain coefficients * Compiled by B.Butler 2002-02-08 from Perley-Butler run 2001-11-10 * Same curves as in VLA.GAINS applied in FILLM * * Normalization close to 1 at maximum * type 'Applying U band gain curves from Perley-Butler 2001-11-10' type 'Version BButler/SMyers 2002-02-08' type 'Gain curves IF and Pol averaged' getn i gainver j opcode 'gain' source '' * * AVERAGE COEFF = 1.0324E+00, -1.4352E-03, 1.5845E-05, 0 * ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6250E-01, 8.5425E-04, 5.7450E-06, 0; GO CLCOR; ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9250E-01, -4.5000E-04, 1.2125E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0400E+00, -1.6825E-03, 1.3150E-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 1.0324E+00, -1.4352E-03, 1.5845E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0350E+00, -1.5950E-03, 1.3700E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0200E+00, -1.1850E-03, 1.4475E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0425E+00, -2.0425E-03, 1.6450E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0375E+00, -1.5900E-03, 1.4575E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0150E+00, -9.2050E-04, 1.2700E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0500E+00, -1.9775E-03, 1.6775E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0175E+00, -1.3487E-03, 1.6382E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0600E+00, -2.3675E-03, 1.7750E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0175E+00, -9.8350E-04, 1.2347E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0425E+00, -1.8375E-03, 1.6550E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0150E+00, -6.3875E-04, 9.7800E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0550E+00, -2.3100E-03, 1.8600E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0450E+00, -1.8975E-03, 1.8900E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9575E-01, -8.5100E-04, 2.0100E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0525E+00, -2.4175E-03, 2.2200E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.2050E+00, -3.1300E-03, 3.2375E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9600E-01, -4.0625E-04, 1.0275E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0450E+00, -1.8825E-03, 1.6675E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0225E+00, -8.4950E-04, 7.6725E-06, 0; WAIT CLCOR; GO CLCOR; ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0200E+00, -1.0663E-03, 1.3138E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0500E+00, -2.1575E-03, 1.7025E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9300E-01, -1.5057E-03, 3.1075E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0350E+00, -1.6850E-03, 1.6950E-05, 0; WAIT CLCOR; GO CLCOR; ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0125E+00, -8.2600E-04, 1.0335E-05, 0; WAIT CLCOR; GO CLCOR; WAIT CLCOR; * Finish