* FIXQGAIN.001 - runfile to load gain curve procedure FIXQGAIN
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
* Missing data for AN 11,17,20
  type 'Applying Q band gain curves from Taylor Jul00'
  type 'These gain curves are normalized to absolute flux density'
  getn i
  gainver j
  opcode 'gain'
  source ''
 ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.2300e+00, -9.9000e-03, 1.5300e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.2700e+00, -1.1800e-02, 1.6800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.1500e+00, -9.3800e-03, 1.4400e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.2500e+00, -1.1600e-02, 1.6500e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.3700e+00, -2.0700e-02, 2.5200e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.3800e+00, -2.3800e-02, 2.7900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.3200e+00, -2.0400e-02, 2.5000e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.4600e+00, -2.4600e-02, 2.8900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 2.8200e+00, -1.5700e-02, 2.2000e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 2.6200e+00, -1.5500e-02, 2.1100e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 2.7500e+00, -1.6000e-02, 2.2100e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 2.5600e+00, -1.6200e-02, 2.2000e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.3700e+00, -2.4600e-02, 2.7200e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.4900e+00, -2.6600e-02, 2.9300e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.3400e+00, -2.4200e-02, 2.6700e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.4700e+00, -2.6100e-02, 2.8600e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 4.6600e+00, -2.9600e-02, 3.0500e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 4.4400e+00, -3.3600e-02, 3.4800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 4.6100e+00, -2.9500e-02, 3.1100e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 4.3900e+00, -3.4100e-02, 3.5800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.3100e+00, -2.7300e-02, 2.9700e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.3900e+00, -2.9500e-02, 3.1900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.3300e+00, -2.8800e-02, 3.1600e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.4100e+00, -3.0300e-02, 3.3300e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.0000e+00, -1.4900e-02, 2.6800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.1600e+00, -1.3000e-02, 2.5100e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.1800e+00, -1.4400e-02, 2.6800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.1200e+00, -1.2600e-02, 2.4400e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.1800e+00, -2.8400e-02, 3.5800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.7300e+00, -3.6800e-02, 4.8300e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.1800e+00, -2.8000e-02, 3.5500e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.8300e+00, -3.7500e-02, 4.9900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.2600e+00, -2.4000e-02, 2.7100e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.2800e+00, -2.6500e-02, 2.9800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.1400e+00, -2.4200e-02, 2.7500e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.1300e+00, -2.5400e-02, 2.8700e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 4.1200e+00, -1.0100e-02, 4.1200e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.7100e+00, -1.1300e-02, 3.7800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 4.0500e+00, -9.9300e-03, 4.0800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.7400e+00, -1.1600e-02, 3.8200e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 4.4100e+00, -4.1100e-02, 4.9200e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 4.9000e+00, -5.5800e-02, 6.3000e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 4.5200e+00, -4.1900e-02, 4.9800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 4.9400e+00, -5.5700e-02, 6.2900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 4.2000e+00, -1.8400e-02, 9.5900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 4.3400e+00, -1.3500e-02, 9.0600e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 4.1600e+00, -1.6700e-02, 9.3100e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 4.5400e+00, -1.4400e-02, 9.4000e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.5100e+00, -2.8900e-02, 3.2600e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.7800e+00, -3.0400e-02, 3.4300e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.5300e+00, -2.8200e-02, 3.1900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.5500e+00, -2.7600e-02, 3.1300e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.6800e+01, -3.2200e-01, 2.8600e-03, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.8600e+01, -4.1000e-01, 3.8300e-03, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.7800e+01, -3.3900e-01, 2.9800e-03, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.9300e+01, -4.1900e-01, 3.8900e-03, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 4.3000e+00, -3.8700e-02, 3.7000e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 4.0000e+00, -3.4000e-02, 3.2500e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 4.3000e+00, -3.9000e-02, 3.7500e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 4.0500e+00, -3.4500e-02, 3.3200e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 5.9400e+00, -5.5900e-02, 7.5800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 5.4700e+00, -4.9300e-02, 6.4500e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 5.9700e+00, -5.5000e-02, 7.4900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 5.3500e+00, -4.7000e-02, 6.1200e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.3700e+00, -2.0200e-02, 2.3100e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 3.4700e+00, -2.4400e-02, 2.7000e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 3.3300e+00, -2.1200e-02, 2.3900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 3.4400e+00, -2.2800e-02, 2.5900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 3.9000e+00, -4.6400e-03, 1.6900e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 4.1100e+00, -1.6100e-02, 2.8800e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 4.0200e+00, -5.8600e-03, 1.8700e-04, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 4.1700e+00, -1.7200e-02, 2.9500e-04, 0; 
 GO clcor; wait clcor 
 Finish