* FIXQGAIN.001 - runfile to load gain curve procedure FIXQGAIN
Proc FIXQGAIN(i,j)
* Usage: FIXQGAIN( CATNO, CLVER )
* I = catalog number of file; J = version number of CL table to correct
* Procedure to put in polynomial gain coefficients at Q band
* from Rick Perley Apr99
  type 'Applying Q band gain curves from Perley Apr99'
  getn i
  gainver j
  opcode 'gain'
  source ''
 ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 0.106E+01, -.480E-02, 0.726E-04, 0; 
 GO clcor; wait clcor
 ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.110E+01, -.720E-02, 0.996E-04, 0;
 GO clcor; wait clcor
 ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.106E+01, -.474E-02, 0.680E-04, 0;
 GO clcor; wait clcor
 ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.107E+01, -.567E-02, 0.796E-04, 0;
 GO clcor; wait clcor
 ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.120E+01, -.119E-01, 0.131E-03, 0;
 GO clcor; wait clcor
 ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.123E+01, -.136E-01, 0.147E-03, 0;
 GO clcor; wait clcor
 ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.118E+01, -.101E-01, 0.107E-03, 0;
 GO clcor; wait clcor
 ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.107E+01, -.448E-02, 0.599E-04, 0;
 GO clcor; wait clcor
* Old values from Feb98
 ANTEN 6 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.109E+01, -.760E-02, 0.121E-03, 0;
 GO clcor; wait clcor
 ANTEN 6 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.113E+01, -.101E-01, 0.149E-03, 0;
 GO clcor; wait clcor
 ANTEN 6 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.110E+01, -.789E-02, 0.117E-03, 0;
 GO clcor; wait clcor
 ANTEN 6 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.115E+01, -.110E-01, 0.155E-03, 0;
 GO clcor; wait clcor
*
 ANTEN 8 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.107E+01, -.448E-02, 0.599E-04, 0;
 GO clcor; wait clcor
 ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.110E+01, -.570E-02, 0.592E-04, 0;
 GO clcor; wait clcor
 ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.107E+01, -.435E-02, 0.507E-04, 0;
 GO clcor; wait clcor
 ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.115E+01, -.912E-02, 0.103E-03, 0;
 GO clcor; wait clcor
 ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.125E+01, -.129E-01, 0.116E-03, 0;
 GO clcor; wait clcor
 ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.129E+01, -.149E-01, 0.136E-03, 0;
 GO clcor; wait clcor
 ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.122E+01, -.113E-01, 0.990E-04, 0;
 GO clcor; wait clcor
 ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.126E+01, -.130E-01, 0.113E-03, 0;
 GO clcor; wait clcor
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.114E+01, -.867E-02, 0.994E-04, 0;
 GO clcor; wait clcor
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.115E+01, -.898E-02, 0.101E-03, 0;
 GO clcor; wait clcor
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.115E+01, -.941E-02, 0.109E-03, 0;
 GO clcor; wait clcor
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.114E+01, -.884E-02, 0.103E-03, 0;
 GO clcor; wait clcor
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.112E+01, -.717E-02, 0.843E-04, 0;
 GO clcor; wait clcor
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.113E+01, -.842E-02, 0.998E-04, 0;
 GO clcor; wait clcor
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.112E+01, -.726E-02, 0.862E-04, 0;
 GO clcor; wait clcor
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.114E+01, -.866E-02, 0.100E-03, 0;
 GO clcor; wait clcor
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.114E+01, -.881E-02, 0.106E-03, 0;
 GO clcor; wait clcor
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.115E+01, -.106E-01, 0.136E-03, 0;
 GO clcor; wait clcor
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.114E+01, -.931E-02, 0.118E-03, 0;
 GO clcor; wait clcor
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.118E+01, -.120E-01, 0.152E-03, 0;
 GO clcor; wait clcor
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.102E+01, -.286E-02, 0.588E-04, 0;
 GO clcor; wait clcor
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.101E+01, -.169E-02, 0.365E-04, 0;
 GO clcor; wait clcor
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.101E+01, -.277E-02, 0.564E-04, 0;
 GO clcor; wait clcor
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.993E+00, -.105E-02, 0.305E-04, 0;
 GO clcor; wait clcor
 ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.116E+01, -.921E-02, 0.966E-04, 0;
 GO clcor; wait clcor
 ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.117E+01, -.950E-02, 0.974E-04, 0;
 GO clcor; wait clcor
 ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.116E+01, -.943E-02, 0.102E-03, 0;
 GO clcor; wait clcor
 ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.119E+01, -.108E-01, 0.114E-03, 0;
 GO clcor; wait clcor
 ANTEN 22 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.123E+01, -.120E-01, 0.110E-03, 0;
 GO clcor; wait clcor
 ANTEN 22 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.122E+01, -.114E-01, 0.971E-04, 0;
 GO clcor; wait clcor
 ANTEN 22 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.127E+01, -.143E-01, 0.132E-03, 0;
 GO clcor; wait clcor
 ANTEN 22 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.127E+01, -.148E-01, 0.142E-03, 0;
 GO clcor; wait clcor
 ANTEN 25 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.126E+01, -.141E-01, 0.123E-03, 0;
 GO clcor; wait clcor
 ANTEN 25 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.131E+01, -.173E-01, 0.158E-03, 0;
 GO clcor; wait clcor
 ANTEN 25 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.127E+01, -.146E-01, 0.126E-03, 0;
 GO clcor; wait clcor
 ANTEN 25 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.127E+01, -.146E-01, 0.126E-03, 0;
 GO clcor; wait clcor
 ANTEN 27 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.109E+01, -.442E-02, 0.243E-04, 0;
 GO clcor; wait clcor
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.115E+01, -.725E-02, 0.474E-04, 0;
 GO clcor; wait clcor
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.113E+01, -.696E-02, 0.644E-04, 0;
 GO clcor; wait clcor
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.116E+01, -.828E-02, 0.745E-04, 0;
 GO clcor; wait clcor
 Finish