* 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 Feb98
* missing AN 17,22,25
  type 'Applying U band gain curves from Perley Feb98'
  type 'These gain curves are normalized to 1 at maximum'
  getn i
  gainver j
  opcode 'gain'
  source ''
 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 
 ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0612e+00, -2.4388e-03, 2.4286e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0606e+00, -2.4041e-03, 2.3838e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0625e+00, -2.4287e-03, 2.3578e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0618e+00, -2.3663e-03, 2.2652e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0667e+00, -2.1333e-03, 1.7067e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0743e+00, -2.7061e-03, 2.4629e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0712e+00, -2.1628e-03, 1.6425e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0796e+00, -3.0471e-03, 2.9159e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0497e+00, -1.8471e-03, 1.7159e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0514e+00, -2.3658e-03, 2.7196e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0457e+00, -1.8681e-03, 1.9087e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 5 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0499e+00, -2.2714e-03, 2.5844e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0328e+00, -1.6545e-03, 2.0857e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0307e+00, -1.5110e-03, 1.8612e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0308e+00, -1.5112e-03, 1.8515e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0252e+00, -1.2665e-03, 1.5881e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0637e+00, -2.6847e-03, 2.8265e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0852e+00, -3.4298e-03, 3.4502e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0762e+00, -3.2490e-03, 3.4622e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 7 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0642e+00, -2.4932e-03, 2.4222e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0455e+00, -2.0207e-03, 2.2419e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0559e+00, -2.4570e-03, 2.7006e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0518e+00, -2.2756e-03, 2.4981e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0618e+00, -2.8011e-03, 3.1752e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0352e+00, -1.7863e-03, 2.2633e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0355e+00, -1.7593e-03, 2.1815e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0286e+00, -1.4319e-03, 1.7949e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 9 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0299e+00, -1.4540e-03, 1.7670e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0688e+00, -2.3616e-03, 2.0257e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0572e+00, -1.9416e-03, 1.6468e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0654e+00, -2.1917e-03, 1.8365e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 10 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0587e+00, -1.8934e-03, 1.5270e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0045e+00, -3.6536e-04, 7.4180e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0146e+00, -8.6290e-04, 1.2758e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0149e+00, -9.2143e-04, 1.4269e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0154e+00, -9.1084e-04, 1.3472e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0859e+00, -2.8276e-03, 2.3256e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0981e+00, -3.4997e-03, 3.1200e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0890e+00, -3.1448e-03, 2.7784e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0940e+00, -3.4354e-03, 3.1389e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0359e+00, -1.7299e-03, 2.0819e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0317e+00, -1.5626e-03, 1.9232e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0392e+00, -1.8867e-03, 2.2701e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0376e+00, -1.8334e-03, 2.2363e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0724e+00, -2.6147e-03, 2.3594e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0702e+00, -2.4970e-03, 2.2219e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0734e+00, -2.4432e-03, 2.0343e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0692e+00, -2.6069e-03, 2.4541e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0010e+00, -2.0727e-04, 1.1021e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0093e+00, -7.7313e-04, 1.6048e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0054e+00, -5.3041e-04, 1.3109e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 15 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0066e+00, -5.7577e-04, 1.2582e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0711e+00, -2.6930e-03, 2.5502e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0807e+00, -2.9873e-03, 2.7630e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0696e+00, -2.5875e-03, 2.4041e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0778e+00, -2.8063e-03, 2.5317e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0140e+00, -9.4376e-04, 1.5863e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0104e+00, -8.3935e-04, 1.6907e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0095e+00, -7.0464e-04, 1.3093e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 18 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0094e+00, -7.7957e-04, 1.6091e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0550e+00, -1.6840e-03, 1.2884e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0653e+00, -1.9770e-03, 1.4956e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0509e+00, -1.4692e-03, 1.0611e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 19 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0615e+00, -1.7351e-03, 1.2248e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0636e+00, -2.5121e-03, 2.4817e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0675e+00, -2.8366e-03, 2.9789e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0658e+00, -2.6898e-03, 2.7507e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0705e+00, -2.9567e-03, 3.0994e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 9.7934e-01, 2.2447e-05, 9.7040e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0073e+00, -6.8195e-04, 1.5915e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0004e+00, -1.2416e-04, 1.0801e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 21 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0075e+00, -6.8508e-04, 1.5716e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0469e+00, -1.9528e-03, 2.0334e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0614e+00, -2.6182e-03, 2.7900e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0441e+00, -1.9477e-03, 2.1485e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 23 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0553e+00, -2.3821e-03, 2.5630e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0262e+00, -9.6883e-04, 8.9640e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0378e+00, -1.5719e-03, 1.6323e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0241e+00, -8.8355e-04, 8.0925e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 24 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0397e+00, -1.7261e-03, 1.8775e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0062e+00, -5.7251e-04, 1.3281e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0121e+00, -9.0884e-04, 1.7135e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 9.8725e-01, 1.0571e-04, 3.9490e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 26 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0117e+00, -9.1257e-04, 1.7731e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0557e+00, -2.1115e-03, 1.9998e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0590e+00, -2.3500e-03, 2.3399e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0546e+00, -2.1091e-03, 2.0381e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0606e+00, -2.4343e-03, 2.4444e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 1.0243e+00, -8.2945e-04, 7.0895e-06, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=1; EIF=1; 
 CLCOR 1.0275e+00, -1.1181e-03, 1.1383e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'R'; BIF=2; EIF=2; 
 CLCOR 1.0269e+00, -1.0974e-03, 1.1176e-05, 0; 
 GO clcor; wait clcor 
 ANTEN 28 0; STOKES = 'L'; BIF=2; EIF=2; 
 CLCOR 1.0291e+00, -1.2107e-03, 1.2611e-05, 0; 
 GO clcor; wait clcor 
 Finish