* FIXUGAIN.001 - runfile to load gain curve procedure FIXUGAIN
Proc FIXUGAIN(i,j)
* Procedure to put in polynomial gain coefficients at U band
* from Rick Perley Oct 02/03 2000
* For AN 1,2 use Feb 1998 curves
* For AN 17 use Jan 1997 curve
  type 'Applying U band gain curves from Perley Oct00'
  type 'These gain curves are normalized to 1 at maximum'
  getn i
  gainver j
  opcode 'gain'
  source ''
* 
* From February 1998
*
 ANTEN 1 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0018e+00, -4.2074e-04, 2.4509e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 9.6319e-01, 8.3054e-05, 1.6334e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0001e+00, -6.5747e-05, 1.9386e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 1 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 9.6244e-01, 2.0199e-04, 1.4060e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0067e+00, -6.4230e-04, 1.5302e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0120e+00, -8.9172e-04, 1.6632e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0029e+00, -3.5001e-04, 1.0631e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 2 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0053e+00, -3.9709e-04, 7.4492e-06, 0; 
 GO clcor; wait clcor 
* 
* From January 1997
*
 ANTEN 17 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0566e+00, -2.2892e-03, 2.3163e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0639e+00, -2.5445e-03, 2.5343e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0552e+00, -2.2772e-03, 2.3487e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 17 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0630e+00, -2.4623e-03, 2.4046e-05, 0; 
 GO clcor; wait clcor 
* 
* From October 2000
*
 ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0513e+00, -1.8499e-03, 1.6679e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0468e+00, -1.6004e-03, 1.3689e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0613e+00, -1.7552e-03, 8.7353e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0690e+00, -2.1175e-03, 1.6241e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0294e+00, -1.0900e-03, 1.0092e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0524e+00, -2.1656e-03, 2.2364e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0272e+00, -1.1380e-03, 1.1884e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0242e+00, -1.0141e-03, 1.0643e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0482e+00, -1.7738e-03, 1.6327e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0513e+00, -1.4960e-03, 1.0917e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0389e+00, -1.4121e-03, 1.2810e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0296e+00, -1.0598e-03, 9.4982e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0091e+00, -6.5741e-04, 1.1889e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0111e+00, -7.6781e-04, 1.3314e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0568e+00, -2.0322e-03, 1.8189e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0544e+00, -1.7945e-03, 1.4802e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0225e+00, -1.0225e-03, 1.1628e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0263e+00, -1.2980e-03, 1.5999e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0714e+00, -2.1531e-03, 1.6225e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0787e+00, -2.1573e-03, 1.4793e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0304e+00, -1.2804e-03, 1.3505e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0196e+00, -8.5065e-04, 9.2363e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0513e+00, -2.0824e-03, 2.1127e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0451e+00, -1.4510e-03, 1.1669e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0136e+00, -1.0136e-03, 1.8867e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0080e+00, -6.5016e-04, 1.3205e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0644e+00, -1.9261e-03, 1.4395e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0740e+00, -2.4113e-03, 1.9655e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0273e+00, -2.2681e-03, 4.7193e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0103e+00, -9.3152e-04, 2.1015e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0559e+00, -2.1525e-03, 2.0712e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0652e+00, -2.6173e-03, 2.6274e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0598e+00, -2.6647e-03, 2.9675e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0701e+00, -3.2903e-03, 3.8604e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0008e+00, -1.9553e-04, 1.1691e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0109e+00, -8.4978e-04, 1.6515e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0558e+00, -2.2725e-03, 2.3128e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0498e+00, -1.6655e-03, 1.3930e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0163e+00, -4.2663e-04, 2.7973e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0271e+00, -1.2083e-03, 1.3493e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0267e+00, -8.3748e-04, 6.5629e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0230e+00, -1.0130e-03, 1.1133e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0857e+00, -1.9750e-03, 1.1374e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.1018e+00, -2.5778e-03, 1.6319e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0065e+00, -3.7269e-04, 5.3711e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0117e+00, -5.4492e-04, 6.3407e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0472e+00, -1.7118e-03, 1.5507e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0419e+00, -1.5579e-03, 1.4466e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0122e+00, -6.7644e-04, 9.4100e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0219e+00, -1.1121e-03, 1.4126e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0503e+00, -1.7976e-03, 1.6058e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0539e+00, -1.9152e-03, 1.7024e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0569e+00, -1.3516e-03, 1.9410e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0661e+00, -1.9272e-03, 1.4044e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0292e+00, -1.1491e-03, 1.1292e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0416e+00, -1.7494e-03, 1.8404e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0188e+00, -8.3499e-04, 9.2887e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0189e+00, -7.4049e-04, 7.2434e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0508e+00, -1.7783e-03, 1.5560e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0526e+00, -1.7509e-03, 1.4574e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0470e+00, -1.5504e-03, 1.2785e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0350e+00, -1.3364e-03, 1.2762e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0110e+00, -6.7966e-04, 1.0510e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0141e+00, -9.8802e-04, 1.7270e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0559e+00, -2.1424e-03, 2.0510e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0557e+00, -1.9084e-03, 1.6343e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0190e+00, -7.6925e-04, 7.7824e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0388e+00, -1.8861e-03, 2.2895e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0733e+00, -1.8399e-03, 1.1550e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0756e+00, -2.3946e-03, 1.8974e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0349e+00, -1.5071e-03, 1.6277e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0292e+00, -1.2590e-03, 1.3589e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0502e+00, -1.6359e-03, 1.3329e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0484e+00, -1.4250e-03, 1.0484e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0096e+00, -7.9661e-04, 1.6457e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0112e+00, -8.1094e-04, 1.4717e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0683e+00, -1.7565e-03, 1.1299e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0749e+00, -2.4034e-03, 1.9268e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0288e+00, -2.3428e-03, 4.7670e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0097e+00, -8.3708e-04, 1.7973e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0485e+00, -1.8450e-03, 1.7542e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0599e+00, -2.2107e-03, 2.0391e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0617e+00, -2.8946e-03, 3.3954e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0712e+00, -3.4137e-03, 4.0944e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0044e+00, -5.0570e-04, 1.4678e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0144e+00, -1.0245e-03, 1.8179e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0504e+00, -1.6766e-03, 1.3938e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0500e+00, -1.5246e-03, 1.1611e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0208e+00, -1.0208e-03, 1.2510e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0231e+00, -1.0231e-03, 1.1334e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0253e+00, -8.5948e-04, 7.2880e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0181e+00, -9.1632e-04, 1.1579e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0766e+00, -1.9891e-03, 1.2919e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0891e+00, -2.6097e-03, 1.9111e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0065e+00, -4.0759e-04, 6.3779e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0131e+00, -6.8109e-04, 8.8471e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0460e+00, -1.6998e-03, 1.5691e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0470e+00, -1.7518e-03, 1.6310e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0138e+00, -7.3477e-04, 9.7668e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0216e+00, -1.1318e-03, 1.4823e-05, 0; 
 GO clcor; wait clcor 
*
 Finish