C
C Lexical reads for Oct 1, 1989 to Oct 6, 1989
C (World Day period for Hagan runs)
C
C  lexical day   1 = year 1989 month 10 day  1
C  P from Kp, P = max(0.1,-2.78+9.33*Kp)
 POWER =
   1, 1,30, 28.3,  1, 4,30, 28.3,  1, 7,30, 28.3,  1,10,30, 19.0,
   1,13,30, 22.1,  1,16,30, 28.3,  1,19,30, 15.9,  1,22,30, 12.8,
   2, 1,30,  9.6,  2, 4,30, 31.5,  2, 7,30, 22.1,  2,10,30, 15.9,
   2,13,30, 15.9,  2,16,30, 19.0,  2,19,30, 12.8,  2,22,30,  6.6,
   3, 1,30,  3.5,  3, 4,30,  6.6,  3, 7,30, 15.9,  3,10,30, 22.1,
   3,13,30, 31.5,  3,16,30, 28.3,  3,19,30, 31.5,  3,22,30, 19.0,
   4, 1,30, 15.9,  4, 4,30, 15.9,  4, 7,30,  6.6,  4,10,30,  3.5,
   4,13,30, 15.9,  4,16,30, 19.0,  4,19,30,  6.6,  4,22,30, 15.9,
   5, 1,30, 19.0,  5, 4,30,  6.6,  5, 7,30,  3.0,  5,10,30,  6.6,
   5,13,30, 15.9,  5,16,30,  6.6,  5,19,30,  6.6,  5,22,30, 12.8,
   6, 1,30, 15.9,  6, 4,30,  6.6,  6, 7,30, 15.9,  6,10,30, 22.1,
   6,13,30, 22.1,  6,16,30, 25.2,  6,19,30, 19.0,  6,22,30, 25.2
C  CP from Kp, CP = 29 + 11 * Kp
 CTPOTEN =
   1, 1,30, 65.6,  1, 4,30, 65.6,  1, 7,30, 65.6,  1,10,30, 54.6,
   1,13,30, 58.4,  1,16,30, 65.6,  1,19,30, 51.0,  1,22,30, 47.4,
   2, 1,30, 43.6,  2, 4,30, 69.4,  2, 7,30, 58.4,  2,10,30, 51.0,
   2,13,30, 51.0,  2,16,30, 54.6,  2,19,30, 47.4,  2,22,30, 40.0,
   3, 1,30, 36.4,  3, 4,30, 40.0,  3, 7,30, 51.0,  3,10,30, 58.4,
   3,13,30, 69.4,  3,16,30, 65.6,  3,19,30, 69.4,  3,22,30, 54.6,
   4, 1,30, 51.0,  4, 4,30, 51.0,  4, 7,30, 40.0,  4,10,30, 36.4,
   4,13,30, 51.0,  4,16,30, 54.6,  4,19,30, 40.0,  4,22,30, 51.0,
   5, 1,30, 54.6,  5, 4,30, 40.0,  5, 7,30, 29.0,  5,10,30, 40.0,
   5,13,30, 51.0,  5,16,30, 40.0,  5,19,30, 40.0,  5,22,30, 47.4,
   6, 1,30, 51.0,  6, 4,30, 40.0,  6, 7,30, 51.0,  6,10,30, 58.4,
   6,13,30, 58.4,  6,16,30, 62.0,  6,19,30, 54.6,  6,22,30, 62.0
 
 F107A =
   1,12, 0,214.4,  2,12, 0,215.1,  3,12, 0,215.9,  4,12, 0,216.8,
   5,12, 0,217.9,  6,12, 0,218.7
 
 F107 =
   1,12, 0,198.0,  2,12, 0,208.2,  3,12, 0,222.2,  4,12, 0,234.0,
   5,12, 0,223.3,  6,12, 0,220.7
 
 APD =
   1,12, 0,  13.,  2,12, 0,   9.,  3,12, 0,  12.,  4,12, 0,   6.,
   5,12, 0,   5.,  6,12, 0,  10.
 
 KP =
   1, 1,30,  3.3,  1, 4,30,  3.3,  1, 7,30,  3.3,  1,10,30,  2.3,
   1,13,30,  2.7,  1,16,30,  3.3,  1,19,30,  2.0,  1,22,30,  1.7,
   2, 1,30,  1.3,  2, 4,30,  3.7,  2, 7,30,  2.7,  2,10,30,  2.0,
   2,13,30,  2.0,  2,16,30,  2.3,  2,19,30,  1.7,  2,22,30,  1.0,
   3, 1,30,  0.7,  3, 4,30,  1.0,  3, 7,30,  2.0,  3,10,30,  2.7,
   3,13,30,  3.7,  3,16,30,  3.3,  3,19,30,  3.7,  3,22,30,  2.3,
   4, 1,30,  2.0,  4, 4,30,  2.0,  4, 7,30,  1.0,  4,10,30,  0.7,
   4,13,30,  2.0,  4,16,30,  2.3,  4,19,30,  1.0,  4,22,30,  2.0,
   5, 1,30,  2.3,  5, 4,30,  1.0,  5, 7,30,  0.0,  5,10,30,  1.0,
   5,13,30,  2.0,  5,16,30,  1.0,  5,19,30,  1.0,  5,22,30,  1.7,
   6, 1,30,  2.0,  6, 4,30,  1.0,  6, 7,30,  2.0,  6,10,30,  2.7,
   6,13,30,  2.7,  6,16,30,  3.0,  6,19,30,  2.3,  6,22,30,  3.0