* VLAGAINS.001 - runfile to load gain curve procedure VLAGAINS Proc VLAGAINS(I,J,BAND) * * Procedure to put in polynomial gain coefficients for VLA * * Usage: FIXQGAIN( I, J, BAND ) * I = catalog number of file; * J = version number of CL table to correct * BAND = band name for curve (e.g. 'K', 'Q') * * Should be same as in file $AIPS_ROOT/TEXT/IONS/VLA.GAINS * * gain curve file for the VLA. bjb 2001-07-27 * put in CLCOR form stm 2002-01-14 * PRINT 'GAIN COEFFICIENTS BJB VERSION 2001-07-27'; TASK 'CLCOR'; GETN I; GAINVER J; OPCODE 'GAIN'; SOURCE ''; IF BAND='U' THEN PRINT 'Applying Uband Gain Coefficients'; ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0213E+00 -1.6223E-04 -1.5142E-05 0.0000E+00 go clcor ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9380E-01 5.2939E-04 -1.1844E-05 0.0000E+00 wait clcor; go clcor ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5077E-01 1.7396E-03 -1.5404E-05 0.0000E+00 wait clcor; go clcor ANTEN 4 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.3945E-01 1.6803E-03 -9.2158E-06 0.0000E+00 wait clcor; go clcor ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6259E-01 1.5072E-03 -1.5226E-05 0.0000E+00 wait clcor; go clcor ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.7797E-01 9.2114E-04 -9.6542E-06 0.0000E+00 wait clcor; go clcor ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5072E-01 1.6461E-03 -1.3873E-05 0.0000E+00 wait clcor; go clcor ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6315E-01 1.3102E-03 -1.1699E-05 0.0000E+00 wait clcor; go clcor ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8908E-01 7.4323E-04 -1.2785E-05 0.0000E+00 wait clcor; go clcor ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4594E-01 1.9071E-03 -1.6902E-05 0.0000E+00 wait clcor; go clcor ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.7378E-01 1.2212E-03 -1.4299E-05 0.0000E+00 wait clcor; go clcor ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.2886E-01 2.0099E-03 -1.4326E-05 0.0000E+00 wait clcor; go clcor ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.7188E-01 1.2060E-03 -1.2958E-05 0.0000E+00 wait clcor; go clcor ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5259E-01 1.5981E-03 -1.3701E-05 0.0000E+00 wait clcor; go clcor ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9007E-01 7.6713E-04 -1.5014E-05 0.0000E+00 wait clcor; go clcor ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.3265E-01 2.0155E-03 -1.5228E-05 0.0000E+00 wait clcor; go clcor ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4203E-01 2.3229E-03 -2.3322E-05 0.0000E+00 wait clcor; go clcor ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8450E-01 1.3243E-03 -2.9131E-05 0.0000E+00 wait clcor; go clcor ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4425E-01 2.1415E-03 -2.0617E-05 0.0000E+00 wait clcor; go clcor ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.3657E-01 2.9488E-03 -3.4398E-05 0.0000E+00 wait clcor; go clcor ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9317E-01 5.8221E-04 -1.4247E-05 0.0000E+00 wait clcor; go clcor ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4996E-01 1.7295E-03 -1.5152E-05 0.0000E+00 wait clcor; go clcor ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.7844E-01 9.0703E-04 -9.8916E-06 0.0000E+00 wait clcor; go clcor ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.7704E-01 8.9316E-04 -9.0036E-06 0.0000E+00 wait clcor; go clcor ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.1715E-01 2.1045E-03 -1.3433E-05 0.0000E+00 wait clcor; go clcor ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9063E-01 4.9646E-04 -6.6641E-06 0.0000E+00 wait clcor; go clcor ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5552E-01 1.6396E-03 -1.5122E-05 0.0000E+00 wait clcor; go clcor ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8287E-01 8.9881E-04 -1.1829E-05 0.0000E+00 wait clcor; go clcor wait clcor ELSE IF BAND='K' THEN PRINT 'Applying Kband Gain Coefficients'; ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0645E+00 -2.1800E-03 1.9091E-06 0.0000E+00 go clcor ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9400E-01 7.1267E-04 -2.1991E-05 0.0000E+00 wait clcor; go clcor ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.0775E-01 3.4519E-03 -3.2439E-05 0.0000E+00 wait clcor; go clcor ANTEN 4 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.7106E-01 4.4819E-03 -3.9123E-05 0.0000E+00 wait clcor; go clcor ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5978E-01 2.0537E-03 -2.6473E-05 0.0000E+00 wait clcor; go clcor ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.6549E-01 1.7126E-03 -2.1309E-05 0.0000E+00 wait clcor; go clcor ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.0808E-01 3.2659E-03 -2.9129E-05 0.0000E+00 wait clcor; go clcor ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.2997E-01 2.7050E-03 -2.6238E-05 0.0000E+00 wait clcor; go clcor ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4561E-01 2.4109E-03 -2.7114E-05 0.0000E+00 wait clcor; go clcor ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.3171E-01 2.4068E-03 -2.1307E-05 0.0000E+00 wait clcor; go clcor ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9932E-01 3.5149E-04 -2.0688E-05 0.0000E+00 wait clcor; go clcor ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.4878E-01 4.8514E-03 -3.9183E-05 0.0000E+00 wait clcor; go clcor ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.1357E-01 2.8711E-03 -2.4172E-05 0.0000E+00 wait clcor; go clcor ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.9678E-01 4.0089E-03 -3.9249E-05 0.0000E+00 wait clcor; go clcor ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8260E-01 1.4266E-03 -3.0393E-05 0.0000E+00 wait clcor; go clcor ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.7698E-01 4.1427E-03 -3.5156E-05 0.0000E+00 wait clcor; go clcor ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.5035E-01 6.7215E-03 -7.5902E-05 0.0000E+00 wait clcor; go clcor ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9495E-01 6.8603E-04 -2.4564E-05 0.0000E+00 wait clcor; go clcor ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.7246E-01 1.7074E-03 -2.6990E-05 0.0000E+00 wait clcor; go clcor ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.3173E-01 3.3235E-03 -4.0633E-05 0.0000E+00 wait clcor; go clcor ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0011E+00 2.3808E-04 -2.2524E-05 0.0000E+00 wait clcor; go clcor ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.1979E-01 3.0976E-03 -3.0121E-05 0.0000E+00 wait clcor; go clcor ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.8703E-01 9.1300E-04 -1.6280E-05 0.0000E+00 wait clcor; go clcor ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.9937E-01 2.3530E-04 -1.4748E-05 0.0000E+00 wait clcor; go clcor ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.5658E-01 4.8396E-03 -4.1113E-05 0.0000E+00 wait clcor; go clcor ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.7852E-01 8.5349E-04 -8.7236E-06 0.0000E+00 wait clcor; go clcor ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.2672E-01 3.0128E-03 -3.1142E-05 0.0000E+00 wait clcor; go clcor ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.4566E-01 2.9426E-03 -4.0201E-05 0.0000E+00 wait clcor; go clcor wait clcor ELSE IF BAND='Q' THEN PRINT 'Applying Qband Gain Coefficients'; * * need the new gain curves for Q-band since the subreflector * rotation has been turned on (around june 1, 2001?) * using average curves for AN1,2,3 * ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.5390E-01 6.9920E-03 -9.7635E-05 0.0000E+00 go clcor ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.5390E-01 6.9920E-03 -9.7635E-05 0.0000E+00 wait clcor; go clcor ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.5282E-01 6.9641E-03 -8.3056E-05 0.0000E+00 wait clcor; go clcor ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 7.8219E-01 6.6175E-03 -4.7822E-05 0.0000E+00 wait clcor; go clcor ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.6940E-01 7.1348E-03 -1.0007E-04 0.0000E+00 wait clcor; go clcor ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 7.9055E-01 1.0010E-02 -1.2145E-04 0.0000E+00 wait clcor; go clcor ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 7.9209E-01 7.7903E-03 -7.4262E-05 0.0000E+00 wait clcor; go clcor ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.6475E-01 3.7786E-03 -6.3711E-05 0.0000E+00 wait clcor; go clcor ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 7.6261E-01 1.1277E-02 -1.3603E-04 0.0000E+00 wait clcor; go clcor ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.5367E-01 3.4600E-03 -6.8573E-05 0.0000E+00 wait clcor; go clcor ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.2851E-01 9.2871E-03 -1.3003E-04 0.0000E+00 wait clcor; go clcor ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 7.8560E-01 1.0037E-02 -1.1899E-04 0.0000E+00 wait clcor; go clcor ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.7915E-01 8.0377E-03 -1.7129E-04 0.0000E+00 wait clcor; go clcor ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 8.7289E-01 7.1793E-03 -1.0484E-04 0.0000E+00 wait clcor; go clcor ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 7.8001E-01 9.2160E-03 -9.7229E-05 0.0000E+00 wait clcor; go clcor ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.2366E+00 -6.5267E-03 -2.5926E-05 0.0000E+00 wait clcor; go clcor ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 7.5337E-01 1.1281E-02 -1.3046E-04 0.0000E+00 wait clcor; go clcor ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0165E+00 -7.3935E-04 -3.9395E-05 0.0000E+00 wait clcor; go clcor ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 6.7155E-01 1.3864E-02 -1.4794E-04 0.0000E+00 wait clcor; go clcor ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 1.0983E+00 -3.1293E-03 -3.4942E-05 0.0000E+00 wait clcor; go clcor ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 7.9194E-01 9.6426E-03 -1.1291E-04 0.0000E+00 wait clcor; go clcor ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; CLCOR 9.1300E-01 5.5659E-03 -9.4216E-05 0.0000E+00 wait clcor; go clcor wait clcor ELSE PRINT 'No corrections applied'; END; END; END PRINT 'COMPLETED VLAGAINS' * Finish