* FIXKGAIN.001 v08feb2002 - S.T. Myers (NRAO) runfile to load procedure
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
* 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
*
  type 'Applying K 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.0429E+00, -2.8623E-03,  3.9044E-05, 0
*
 ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0225E+00, -2.4650E-03,  4.2225E-05, 0; 
 GO CLCOR;

 ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.5400E-01,  2.3688E-04,  2.2775E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0850E+00, -4.1050E-03,  4.1700E-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.0429E+00, -2.8623E-03,  3.9044E-05, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0425E+00, -2.6525E-03,  3.5075E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0375E+00, -2.7100E-03,  3.7450E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0900E+00, -4.1675E-03,  3.8625E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0700E+00, -3.8175E-03,  4.3300E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0350E+00, -2.5700E-03,  3.7550E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0700E+00, -3.6375E-03,  3.9600E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8800E-01, -1.0907E-03,  3.2150E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1325E+00, -6.1375E-03,  5.6625E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0550E+00, -2.9950E-03,  3.7325E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0975E+00, -4.6775E-03,  4.6750E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0400E+00, -4.0575E-03,  6.7950E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.1125E+00, -5.2850E-03,  5.0975E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0600E+00, -3.1500E-03,  3.3675E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.6675E-01, -3.8510E-04,  2.8925E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0375E+00, -2.7425E-03,  3.9650E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0425E+00, -3.0425E-03,  4.2000E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.6275E-01, -1.2383E-04,  2.3875E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0800E+00, -4.1275E-03,  4.5425E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0125E+00, -1.7350E-03,  3.1000E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8500E-01, -6.5701E-05,  1.2300E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0650E+00, -3.0625E-03,  3.1125E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9300E-01, -1.0235E-03,  3.4800E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0875E+00, -4.6600E-03,  5.1800E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0350E+00, -3.0325E-03,  4.9525E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 WAIT CLCOR; 
*
 Finish