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 * from Cartwright/Myers/Taylor July 8 2000 run * Missing data for AN 11,19,21,23 type 'Applying K band gain curves from Taylor Jul00' type 'These gain curves are normalized to absolute flux density' getn i gainver j opcode 'gain' source '' ANTEN 1 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.1700e+00, 2.0900e-02, 1.1000e-04, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 2.9600e+00, 2.4900e-02, 5.0700e-05, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 2.4600e+00, 3.3700e-02, 4.5000e-05, 0; GO clcor; wait clcor ANTEN 1 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 2.7800e+00, 2.5500e-02, 3.2400e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.2300e+00, -3.7700e-03, 8.9100e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.1700e+00, -1.9200e-03, 7.1500e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.3000e+00, -3.6800e-03, 8.6300e-05, 0; GO clcor; wait clcor ANTEN 2 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.2200e+00, -2.2100e-03, 7.5600e-05, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.2100e+00, -1.1200e-02, 1.0600e-04, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.1600e+00, -1.1300e-02, 1.0900e-04, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.1700e+00, -1.0800e-02, 1.0100e-04, 0; GO clcor; wait clcor ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.1100e+00, -1.1000e-02, 1.0600e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.3800e+00, -1.4800e-02, 1.3000e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.3100e+00, -1.4300e-02, 1.2500e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.3800e+00, -1.4100e-02, 1.2400e-04, 0; GO clcor; wait clcor ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.3600e+00, -1.4000e-02, 1.2100e-04, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.5800e+00, -2.3500e-02, 2.6500e-04, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.5500e+00, -2.4800e-02, 2.4300e-04, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.5900e+00, -2.3900e-02, 2.6500e-04, 0; GO clcor; wait clcor ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.5600e+00, -2.3800e-02, 2.3600e-04, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.0800e+00, -6.4400e-03, 8.0700e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.1000e+00, -6.5000e-03, 8.2800e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.0600e+00, -5.3300e-03, 6.8200e-05, 0; GO clcor; wait clcor ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.0500e+00, -6.3000e-03, 7.9200e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.3800e+00, -9.2300e-03, 1.0500e-04, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.3400e+00, -8.0300e-03, 9.5800e-05, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.3400e+00, -9.3400e-03, 1.0800e-04, 0; GO clcor; wait clcor ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.3100e+00, -8.1800e-03, 9.6400e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.0700e+00, -8.5100e-03, 8.6000e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.0400e+00, -9.2900e-03, 9.6300e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.0800e+00, -9.1800e-03, 9.2700e-05, 0; GO clcor; wait clcor ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.0100e+00, -9.2400e-03, 9.6600e-05, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.4900e+00, -2.1900e-02, 2.5900e-04, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.5800e+00, -2.1800e-02, 2.4700e-04, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.5400e+00, -2.2300e-02, 2.6200e-04, 0; GO clcor; wait clcor ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.5300e+00, -2.2300e-02, 2.6300e-04, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 2.8100e+00, -6.3300e-03, 6.1300e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 2.8500e+00, -5.4600e-03, 3.8400e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 2.7800e+00, -6.5800e-03, 6.1300e-05, 0; GO clcor; wait clcor ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 2.7500e+00, -5.1500e-03, 3.5400e-05, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.6500e+00, -1.9300e-02, 1.6900e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.6000e+00, -1.8200e-02, 1.5600e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.6200e+00, -1.9300e-02, 1.7000e-04, 0; GO clcor; wait clcor ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.6000e+00, -1.8800e-02, 1.6500e-04, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 2.9600e+00, -6.3500e-03, 7.8400e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 2.9700e+00, -5.8000e-03, 7.3500e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 2.9400e+00, -6.2400e-03, 7.7700e-05, 0; GO clcor; wait clcor ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 2.9400e+00, -5.9400e-03, 7.4500e-05, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.3100e+00, -1.9500e-02, 2.1300e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.3900e+00, -2.0800e-02, 2.3500e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.3500e+00, -2.0100e-02, 2.2200e-04, 0; GO clcor; wait clcor ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.4100e+00, -2.1000e-02, 2.3700e-04, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.2600e+00, -8.2900e-03, 1.5400e-04, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.3100e+00, -9.3200e-03, 1.5100e-04, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.2000e+00, -7.4500e-03, 1.4800e-04, 0; GO clcor; wait clcor ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.3100e+00, -9.7000e-03, 1.5600e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.2400e+00, -1.5100e-02, 1.3600e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.1900e+00, -1.3900e-02, 1.2300e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.2900e+00, -1.5500e-02, 1.4100e-04, 0; GO clcor; wait clcor ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.1600e+00, -1.3500e-02, 1.2200e-04, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.2500e+00, -2.0500e-02, 2.3300e-04, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.2000e+00, -2.0100e-02, 2.2600e-04, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.2900e+00, -2.1500e-02, 2.4500e-04, 0; GO clcor; wait clcor ANTEN 17 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.3400e+00, -2.0300e-02, 2.2700e-04, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 2.9700e+00, 2.6200e-03, 4.6000e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 2.8800e+00, 3.9200e-03, 3.1600e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 2.9600e+00, 3.9100e-03, 4.2100e-05, 0; GO clcor; wait clcor ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 2.9100e+00, 6.8600e-03, 4.8900e-06, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 4.2100e+00, -3.0900e-02, 3.2300e-04, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 4.2700e+00, -3.6500e-02, 4.1200e-04, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 4.1500e+00, -3.1200e-02, 3.3200e-04, 0; GO clcor; wait clcor ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 4.0900e+00, -3.5500e-02, 4.0300e-04, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.1800e+00, -9.9300e-03, 1.0700e-04, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.1800e+00, -9.3300e-03, 9.8200e-05, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.1900e+00, -1.0300e-02, 1.1000e-04, 0; GO clcor; wait clcor ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.1500e+00, -9.5300e-03, 1.0300e-04, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 2.5900e+00, -9.0500e-03, 1.3300e-04, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 2.6500e+00, -7.8500e-03, 1.1700e-04, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 2.6100e+00, -1.0800e-02, 1.5300e-04, 0; GO clcor; wait clcor ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 2.5200e+00, -6.7700e-03, 1.0900e-04, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.3500e+00, -1.5600e-02, 1.4600e-04, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.4100e+00, -1.6600e-02, 1.5000e-04, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.3400e+00, -1.5900e-02, 1.5100e-04, 0; GO clcor; wait clcor ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.3400e+00, -1.6100e-02, 1.4500e-04, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 4.2500e+00, -2.0400e-02, 2.1700e-04, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 4.2200e+00, -1.9300e-02, 1.9500e-04, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.4100e+00, -1.7700e-02, 1.8800e-04, 0; GO clcor; wait clcor ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.3900e+00, -1.7000e-02, 1.7800e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.4000e+00, -1.3300e-02, 1.3300e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.3300e+00, -1.2500e-02, 1.2500e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.4300e+00, -1.3300e-02, 1.3500e-04, 0; GO clcor; wait clcor ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.4000e+00, -1.2600e-02, 1.2900e-04, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; CLCOR 3.0100e+00, -2.1200e-02, 2.7300e-04, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; CLCOR 3.0100e+00, -2.5300e-02, 3.4500e-04, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; CLCOR 3.3300e+00, -2.3500e-02, 2.9800e-04, 0; GO clcor; wait clcor ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; CLCOR 3.2700e+00, -2.7100e-02, 3.6500e-04, 0; GO clcor; wait clcor Finish