* FIXCGAIN.001 v31Jan2002 - S.T. Myers (NRAO) runfile to load procedure
Proc FIXCGAIN(i,j)
* Usage: FIXCGAIN( 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 C 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.9789E-01,  1.0784E-04, -7.6798E-07, 0
*
 ANTEN 1 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0025E+00, -5.7112E-05, -2.3967E-07, 0; 
 GO CLCOR;

 ANTEN 2 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0023E+00, -3.7322E-05, -3.2088E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 3 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0000E+00,  9.6424E-05, -6.1274E-07, 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.9789E-01,  1.0784E-04, -7.6798E-07, 0;
 WAIT CLCOR; GO CLCOR;

 ANTEN 5 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0003E+00,  5.0944E-05, -6.7250E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 6 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0015E+00,  6.5919E-05, -9.4969E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 7 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9530E-01,  7.3098E-05,  2.7140E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 8 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9877E-01, -2.7875E-05,  1.0779E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 9 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9777E-01,  1.8256E-04, -2.4147E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 10 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9753E-01,  2.6793E-05,  8.3120E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 11 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.8518E-01,  8.9929E-04, -1.1783E-05, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 12 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0000E+00, -2.7331E-05,  2.0704E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 13 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9255E-01,  2.5301E-04, -2.3325E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 14 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9762E-01, -1.2745E-05,  3.1572E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 15 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0000E+00,  8.6127E-05, -2.6405E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 16 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9256E-01,  2.3643E-04, -1.6048E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 17 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9752E-01,  1.2691E-04, -5.7747E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 18 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9760E-01,  9.9714E-05, -4.9090E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 19 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9256E-01,  2.7209E-04, -2.9163E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 20 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9252E-01,  3.7826E-04, -3.1495E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 21 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0000E+00,  7.2913E-05, -1.2037E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 22 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9999E-01,  1.7005E-04, -1.4213E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 23 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9754E-01,  2.1336E-04, -3.3776E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 24 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9852E-01,  1.5315E-04, -2.0498E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 25 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9752E-01,  1.8624E-04, -1.7390E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 26 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 9.9756E-01,  1.2199E-04, -1.3835E-06, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 27 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0002E+00,  9.4392E-05, -8.5565E-07, 0; 
 WAIT CLCOR; GO CLCOR;

 ANTEN 28 0; STOKES = 'RL'; BIF=1; EIF=2; 
 CLCOR 1.0076E+00, -7.8561E-04,  1.2216E-05, 0; 
 WAIT CLCOR; GO CLCOR;

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

 WAIT CLCOR; 
*
 Finish