Proc FIXQGAIN(i,j) * Usage: FIXQGAIN( CATNO, CLVER ) * I = catalog number of file; J = version number of CL table to correct * Procedure to put in polynomial gain coefficients at Q band * from Cartwright/Myers/Taylor July 8 2000 run type 'Applying Q band gain curves from Taylor 08Jul00' getn i gainver j opcode 'gain' source '' ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2000e+00, -3.7300e-03, 5.7600e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2100e+00, -4.4500e-03, 6.3000e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1700e+00, -3.5500e-03, 5.4400e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2100e+00, -4.3800e-03, 6.2100e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2500e+00, -7.3700e-03, 8.9800e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2500e+00, -8.6700e-03, 1.0200e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.2300e+00, -7.2200e-03, 8.8900e-05, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2800e+00, -8.9900e-03, 1.0600e-04, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.0500e+00, -5.8100e-03, 8.1200e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 9.7200e-01, -5.7300e-03, 7.8000e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.0200e+00, -5.9100e-03, 8.2000e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 9.5300e-01, -6.0000e-03, 8.1400e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2500e+00, -9.1600e-03, 1.0100e-04, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.3000e+00, -9.9100e-03, 1.0900e-04, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.2400e+00, -9.0000e-03, 9.9600e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2900e+00, -9.7200e-03, 1.0700e-04, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.7300e+00, -1.0700e-02, 1.1000e-04, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.6500e+00, -1.2200e-02, 1.2600e-04, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.7100e+00, -1.0600e-02, 1.1100e-04, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.6300e+00, -1.2400e-02, 1.3000e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2300e+00, -1.0100e-02, 1.1000e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2600e+00, -1.0900e-02, 1.1800e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.2400e+00, -1.0700e-02, 1.1700e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2700e+00, -1.1200e-02, 1.2300e-04, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1100e+00, -5.5200e-03, 9.9400e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.1800e+00, -4.8000e-03, 9.3000e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1800e+00, -5.3300e-03, 9.9500e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1600e+00, -4.6400e-03, 9.0300e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.1800e+00, -1.0500e-02, 1.3200e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.3800e+00, -1.3600e-02, 1.7800e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1800e+00, -1.0300e-02, 1.3100e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.4200e+00, -1.3900e-02, 1.8500e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2100e+00, -8.9400e-03, 1.0100e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2200e+00, -9.8900e-03, 1.1100e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.1700e+00, -9.0000e-03, 1.0300e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.1700e+00, -9.4700e-03, 1.0700e-04, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.5300e+00, -3.8300e-03, 1.5400e-04, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.3800e+00, -4.3400e-03, 1.4200e-04, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.5100e+00, -3.7600e-03, 1.5300e-04, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.3900e+00, -4.4300e-03, 1.4300e-04, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.5800e+00, -1.1600e-02, 1.4300e-04, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.7800e+00, -1.8400e-02, 2.0800e-04, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.6200e+00, -1.1800e-02, 1.4400e-04, 0; GO clcor; wait clcor ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.8000e+00, -1.8300e-02, 2.0800e-04, 0; GO clcor; wait clcor ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.5600e+00, -6.9600e-03, 3.5800e-04, 0; GO clcor; wait clcor ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.6100e+00, -5.1300e-03, 3.3800e-04, 0; GO clcor; wait clcor ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.5500e+00, -6.5100e-03, 3.5000e-04, 0; GO clcor; wait clcor ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.6900e+00, -5.3800e-03, 3.5000e-04, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.3000e+00, -1.0700e-02, 1.2100e-04, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.4000e+00, -1.1300e-02, 1.2700e-04, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.3100e+00, -1.0500e-02, 1.1900e-04, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.3200e+00, -1.0300e-02, 1.1600e-04, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 6.2200e+00, -1.1900e-01, 1.0600e-03, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 6.9000e+00, -1.5200e-01, 1.4200e-03, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 6.6200e+00, -1.2600e-01, 1.1000e-03, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 7.1700e+00, -1.5600e-01, 1.4400e-03, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.6000e+00, -1.4700e-02, 1.4100e-04, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.4900e+00, -1.2900e-02, 1.2500e-04, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.6000e+00, -1.4800e-02, 1.4400e-04, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.5100e+00, -1.3100e-02, 1.2700e-04, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 2.2000e+00, -2.0600e-02, 2.7900e-04, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 2.0300e+00, -1.8000e-02, 2.3600e-04, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 2.2200e+00, -2.0300e-02, 2.7700e-04, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.9900e+00, -1.7300e-02, 2.2500e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.2500e+00, -7.4800e-03, 8.5400e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.2900e+00, -9.0000e-03, 9.9600e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.2400e+00, -7.8400e-03, 8.8500e-05, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.2800e+00, -8.4900e-03, 9.6400e-05, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 1.8300e+00, -2.2200e-02, 3.1800e-04, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 1.8400e+00, -2.2800e-02, 3.1500e-04, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 1.8700e+00, -2.2400e-02, 3.2100e-04, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 1.8600e+00, -2.3000e-02, 3.1600e-04, 0; GO clcor; wait clcor Finish