* FIXLGAIN.001 v31Jan2002 - S.T. Myers (NRAO) runfile to load procedure
Proc FIXLGAIN(i,j)
* Usage: FIXLGAIN( CATNO, CLVER )
* I = catalog number of file; J = version number of CL table to correct
* Procedure to put in polynomial VLA gain coefficients
* 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 which was in barn during run
  type 'Applying L 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.9415E-01,  3.5020E-05,  3.2197E-06, 0
*
 ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9545E-01, -2.6976E-05,  4.1327E-06, 0; 
 GO CLCOR;

 ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.7853E-01,  4.7736E-04,  1.6626E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9256E-01,  2.2661E-04,  3.6543E-08, 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.9415E-01,  3.5020E-05,  3.2197E-06, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9260E-01,  2.9680E-04, -8.9120E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0008E+00, -4.5961E-04,  9.5279E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9942E-01, -2.5716E-04,  6.2453E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9894E-01, -2.7059E-04,  6.6214E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9285E-01,  2.2564E-04, -9.6671E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9259E-01,  2.5899E-04, -1.1668E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8731E-01,  3.4624E-04, -1.0419E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9523E-01, -3.7100E-06,  4.8791E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9645E-01, -1.2937E-04,  5.1997E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0010E+00, -3.2625E-04,  7.7433E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8755E-01,  7.0773E-04, -7.0774E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9235E-01,  1.6986E-05,  4.4022E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8876E-01,  3.9972E-04, -8.3883E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9839E-01, -2.7258E-04,  8.5085E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9841E-01, -1.6883E-04,  4.6454E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9689E-01, -2.9684E-04,  8.4651E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8772E-01,  3.2858E-04,  1.0355E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9562E-01, -1.3827E-04,  6.7514E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9356E-01,  1.6347E-04,  2.4504E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9733E-01,  6.7854E-05,  1.1809E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9580E-01,  1.1222E-04, -3.6466E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9704E-01, -3.3070E-04,  1.1538E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9573E-01, -1.0072E-04,  4.9849E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9314E-01  9.8852E-05  2.4066E-06, 0; 
 WAIT CLCOR; GO CLCOR;

* AN29 = Pietown - no gain curve used, assume 1

 WAIT CLCOR; 
*
 Finish