Proc FIXQGAIN(i,j)
* Procedure to put in polynomial gain coefficients at Q band
* from Rick Perley Feb98 (except 22 and 25 from Apr99)
  type 'Applying Q band gain curves from Perley Feb98'
  getn i
  gainver j
  opcode 'gain'
  source ''
 ANTEN 3 0; STOKES = 'R'; BIF=1; EIF=1; 
 CLCOR 0.121E+01, -.137E-01, 0.180E-03, 0; 
 GO clcor; wait clcor
 ANTEN 3 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.127E+01, -.182E-01, 0.241E-03, 0;
 GO clcor; wait clcor
 ANTEN 3 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.123E+01, -.157E-01, 0.212E-03, 0;
 GO clcor; wait clcor
 ANTEN 3 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.123E+01, -.152E-01, 0.198E-03, 0;
 GO clcor; wait clcor
 ANTEN 4 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.139E+01, -.195E-01, 0.198E-03, 0;
 GO clcor; wait clcor
 ANTEN 4 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.148E+01, -.245E-01, 0.251E-03, 0;
 GO clcor; wait clcor
 ANTEN 4 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.144E+01, -.224E-01, 0.232E-03, 0;
 GO clcor; wait clcor
 ANTEN 4 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.151E+01, -.266E-01, 0.279E-03, 0;
 GO clcor; wait clcor
 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.129E+01, -.187E-01, 0.245E-03, 0;
 GO clcor; wait clcor
 ANTEN 8 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.132E+01, -.201E-01, 0.258E-03, 0;
 GO clcor; wait clcor
 ANTEN 8 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.127E+01, -.182E-01, 0.242E-03, 0;
 GO clcor; wait clcor
 ANTEN 8 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.125E+01, -.162E-01, 0.209E-03, 0;
 GO clcor; wait clcor
 ANTEN 11 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.121E+01, -.130E-01, 0.156E-03, 0;
 GO clcor; wait clcor
 ANTEN 11 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.120E+01, -.109E-01, 0.118E-03, 0;
 GO clcor; wait clcor
 ANTEN 11 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.118E+01, -.991E-02, 0.110E-03, 0;
 GO clcor; wait clcor
 ANTEN 11 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.120E+01, -.114E-01, 0.125E-03, 0;
 GO clcor; wait clcor
 ANTEN 12 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.139E+01, -.226E-01, 0.265E-03, 0;
 GO clcor; wait clcor
 ANTEN 12 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.141E+01, -.241E-01, 0.284E-03, 0;
 GO clcor; wait clcor
 ANTEN 12 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.140E+01, -.234E-01, 0.278E-03, 0;
 GO clcor; wait clcor
 ANTEN 12 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.141E+01, -.241E-01, 0.290E-03, 0;
 GO clcor; wait clcor
 ANTEN 13 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.112E+01, -.113E-01, 0.185E-03, 0;
 GO clcor; wait clcor
 ANTEN 13 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.112E+01, -.121E-01, 0.199E-03, 0;
 GO clcor; wait clcor
 ANTEN 13 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.109E+01, -.101E-01, 0.174E-03, 0;
 GO clcor; wait clcor
 ANTEN 13 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.112E+01, -.116E-01, 0.190E-03, 0;
 GO clcor; wait clcor
 ANTEN 14 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.133E+01, -.182E-01, 0.199E-03, 0;
 GO clcor; wait clcor
 ANTEN 14 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.138E+01, -.203E-01, 0.220E-03, 0;
 GO clcor; wait clcor
 ANTEN 14 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.136E+01, -.199E-01, 0.218E-03, 0;
 GO clcor; wait clcor
 ANTEN 14 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.141E+01, -.226E-01, 0.250E-03, 0;
 GO clcor; wait clcor
 ANTEN 16 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.128E+01, -.178E-01, 0.226E-03, 0;
 GO clcor; wait clcor
 ANTEN 16 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.136E+01, -.221E-01, 0.276E-03, 0;
 GO clcor; wait clcor
 ANTEN 16 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.133E+01, -.213E-01, 0.278E-03, 0;
 GO clcor; wait clcor
 ANTEN 16 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.133E+01, -.211E-01, 0.275E-03, 0;
 GO clcor; wait clcor
 ANTEN 20 0; STOKES = 'R'; BIF=1; EIF=1;
 CLCOR 0.116E+01, -.118E-01, 0.165E-03, 0;
 GO clcor; wait clcor
 ANTEN 20 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.120E+01, -.142E-01, 0.195E-03, 0;
 GO clcor; wait clcor
 ANTEN 20 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.116E+01, -.115E-01, 0.156E-03, 0;
 GO clcor; wait clcor
 ANTEN 20 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.118E+01, -.128E-01, 0.173E-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.120E+01, -.114E-01, 0.134E-03, 0;
 GO clcor; wait clcor
 ANTEN 27 0; STOKES = 'L'; BIF=1; EIF=1;
 CLCOR 0.121E+01, -.118E-01, 0.134E-03, 0;
 GO clcor; wait clcor
 ANTEN 27 0; STOKES = 'R'; BIF=2; EIF=2;
 CLCOR 0.117E+01, -.104E-01, 0.124E-03, 0;
 GO clcor; wait clcor
 ANTEN 27 0; STOKES = 'L'; BIF=2; EIF=2;
 CLCOR 0.119E+01, -.111E-01, 0.131E-03, 0;
 GO clcor; wait clcor
 Finish