* FIXQGAIN.001 v31Jan2002 - S.T. Myers (NRAO) runfile to load procedure
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
* Compiled by B.Butler 2002-01-31 from Perley-Butler run 2001-11-10
* Same curves as in VLA.GAINS applied in FILLM
* Back-propagate to June 2001, since that is the point at
* which the subreflector rotation v. elevation was turned on
* Use average gain curve for AN 4, 20
* AN 7, 9, 15 still without Q-band Rx - no curves 
  type 'Applying Q band gain curves from Perley-Butler 10Nov01'
  type 'Gain curves normalized to 1 at maximum, IF and Pol averaged'
  getn i
  gainver j
  opcode 'gain'
  source ''
*
* AVERAGE COEFF = 9.2986E-01, 4.9632E-03, -6.9159E-05, 0
*
 ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.6801E-01,  1.0486E-02, -1.6191E-04, 0; 
 GO CLCOR;

 ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0282E+00,  1.8708E-03, -5.7176E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.1582E-01,  4.9585E-03, -6.0999E-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 9.2986E-01, 4.9632E-03, -6.9159E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0555E+00, -1.1950E-03, -1.0121E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.1631E-01,  4.9979E-03, -6.1960E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.6959E-01,  8.3339E-03, -1.0790E-04, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.9962E-01,  5.4815E-03, -5.9638E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8770E-01,  3.0293E-03, -6.0384E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.6395E-01,  7.4216E-03, -8.5425E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.1939E-01,  5.3280E-03, -6.9613E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.2320E-01,  5.2350E-03, -7.1717E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.6801E-01,  1.1916E-03, -7.9548E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.9880E-01,  6.7729E-03, -9.1110E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.6783E-01,  4.5021E-03, -8.1231E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.8967E-01,  6.2688E-03, -7.4288E-05, 0;
 WAIT CLCOR; GO CLCOR;

* AN20 had severe pointing problems during run, use average curve
 ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.2986E-01, 4.9632E-03, -6.9159E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0346E+00,  6.3334E-04, -3.4375E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.2126E-01,  5.0633E-03, -6.4880E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.7527E-01,  2.2996E-03, -3.7608E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.3500E-01,  5.8025E-03, -9.4649E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.9159E-01,  6.2110E-03, -7.3083E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.7411E-01,  7.4517E-03, -8.6621E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 8.7661E-01,  6.4760E-03, -6.9938E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.0669E-01,  5.5348E-03, -6.8094E-05, 0;
 WAIT CLCOR; GO CLCOR;

* Pietown - for use with Pietown link data
 ANTEN 29 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 5.8500E-01,  1.1650E-02,  6.4210E-05, -2.5900E-06, 0;
 WAIT CLCOR; GO CLCOR;

 WAIT CLCOR; 
*
 Finish