* FIXQGAIN.001 v08feb2002 - 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
* Compiled by B.Butler 2002-02-08 from Perley-Butler run 2001-11-10
* Same curves as in VLA.GAINS applied in FILLM
*
* Normalization close to 1 at maximum
*
* 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 2001-11-10'
  type 'Version BButler/SMyers 2002-02-08' 
  type 'Gain curves IF and Pol averaged'
  getn i
  gainver j
  opcode 'gain'
  source ''
*
* AVERAGE COEFF = 1.0787E+00, -5.5261E-03,  7.7206E-05, 0
*
 ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1800E+00, -1.3900E-02,  2.1250E-04, 0; 
 GO CLCOR;

 ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8850E-01, -2.9875E-03,  7.3575E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0875E+00, -5.1525E-03,  6.3550E-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 1.0787E+00, -5.5261E-03,  7.7206E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.5075E-01,  8.0000E-04,  1.6003E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0875E+00, -5.2225E-03,  6.4925E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1425E+00, -9.1000E-03,  1.1847E-04, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1025E+00, -5.5650E-03,  6.0525E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0225E+00, -3.7450E-03,  7.1025E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1425E+00, -7.7475E-03,  8.9300E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0850E+00, -5.6100E-03,  7.3550E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0825E+00, -5.6175E-03,  7.7150E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0325E+00, -1.2130E-03,  8.1949E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1100E+00, -7.3550E-03,  9.9325E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0475E+00, -5.5825E-03,  9.7275E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1150E+00, -6.5225E-03,  7.7475E-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 1.0787E+00, -5.5261E-03,  7.7206E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.7425E-01, -1.2132E-03,  4.2825E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0825E+00, -5.3000E-03,  6.8150E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0275E+00, -2.4933E-03,  4.0450E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0825E+00, -7.0600E-03,  1.1338E-04, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1125E+00, -6.4275E-03,  7.5775E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1300E+00, -7.6500E-03,  8.9100E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1275E+00, -6.6525E-03,  7.1850E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0975E+00, -5.7825E-03,  7.1375E-05, 0;
 WAIT CLCOR; GO CLCOR;

 WAIT CLCOR; 
*
 Finish