      SUBROUTINE MOONPV(T, PV)
C
C     GIVEN T (DYNAMICAL TIME, JULIAN MILLENIA SINCE J2000), RETURNS
C     THE MOON'S TRUE GEOCENTRIC POSITION AND VELOCITY (MEAN DYNAMICAL
C     ECLIPTIC EQUINOX OF DATE).
C
C     THE OUTPUT PV IS AN ARRAY OF LENGTH 6: LONGITUDE PV(1), LATITUDE
C     PV(2), DISTANCE PV(3) AND THEIR VELOCITIES PV(4), PV(5), PV(6),
C     IN RADIANS, RADIANS/DAY, KM, AND KM/DAY.
C
C     (ADAPTED BY B. KNAPP, 1999-12-10, FROM SUBROUTINE DERIV IN
C     "LUNAR TABLES AND PROGRAMS FROM 4000 B.C. TO A.D. 8000", BY M.
C     CHAPRONT-TOUZE AND JEAN CHAPRONT, WILLMAN-BELL, 1991.)
C
C     2001-04-24, B. KNAPP, CHANGE INTEGER, DOUBLE PRECISION TO 
C        INTEGER*4, REAL*8
C
C
C     RCS DATA
C     
C     $Header$
C     
C     $Log$
C
C
      IMPLICIT NONE
C
C     INPUT
      REAL*8 T
C
C     OUTPUT
      REAL*8 PV(6)
C
C     CONSTANTS
      REAL*8 PI,D2R,DM2D,C2S(3)
      PARAMETER (PI=3.14159265358979324D0, D2R=PI/180.D0)
C        (DEGREES TO RADIANS)
      PARAMETER (DM2D=3652500.D0)
C        (DAYS PER JULIAN DECAMILLENIUM)
      DATA C2S /0.D0,0.D0,90.D0/
C        (PHASE SHIFT FOR SIN ARGUMENTS IN DISTANCE SERIES)
      SAVE C2S
C
C     LOCAL VARIABLES
      REAL*8 D,PHI,DPHI,CT,DCT,CC,DCC
      INTEGER*4 I,IT,J,K
C
C     FOURIER & POISSON COEFFICIENTS (AND ADDRESSING ARRAYS)
      REAL*8 AL(5)
      DATA AL
     &   /218.31665436D0,48126788.134240D0,-13.268D0,1.856D0,-1.534D0/
      INTEGER*4 IC(3),IP(4,3)
      REAL*8 PBC(218,3),APBC(218,5,3),PER(423,3),APER(423,2,3)
      SAVE AL,IC,IP,PBC,APBC,PER,APER
      DATA IC /218,188,154/
      DATA IP /0,244,398,423,0, 64,128,140,0,114,182,201/
      DATA (PBC(I,1),I=1,218) /
     & 6.28877383, 1.27401064, 0.65830943, 0.21361825,-0.18511586,
     &-0.11433213, 0.05879321, 0.05706551, 0.05332117, 0.04575792,
     &-0.04092258,-0.03471892,-0.03038341, 0.01532696,-0.01252767,
     & 0.01098147, 0.01067495, 0.01003439, 0.00854794,-0.00788808,
     &-0.00676617,-0.00516242, 0.00498735, 0.00403619, 0.00399436,
     & 0.00386085, 0.00366502,-0.00268863,-0.00260163, 0.00239043,
     &-0.00234808, 0.00223616,-0.00211949,-0.00206875, 0.00204755,
     &-0.00177310,-0.00159489, 0.00121500,-0.00111045,-0.00089158,
     &-0.00080959, 0.00075886,-0.00071332,-0.00070033, 0.00069136,
     & 0.00059613, 0.00054937, 0.00053713, 0.00051966,-0.00048694,
     &-0.00039921,-0.00038127, 0.00035051,-0.00034003, 0.00032968,
     & 0.00032694,-0.00032269, 0.00029936, 0.00029431,-0.00027506,
     & 0.00026341, 0.00020880,-0.00018594,-0.00017645,-0.00016222,
     &-0.00016203, 0.00015877,-0.00015573,-0.00015470,-0.00015164,
     &-0.00014881, 0.00013289,-0.00012605,-0.00011839, 0.00011676,
     & 0.00011483, 0.00011229, 0.00010959,-0.00010615,-0.00010403,
     &-0.00009933, 0.00009713, 0.00009439,-0.00009129, 0.00008576,
     & 0.00008376, 0.00008357, 0.00008172, 0.00008126,-0.00008062,
     &-0.00008031, 0.00007847, 0.00007604, 0.00007316, 0.00007064,
     &-0.00007029,-0.00006941, 0.00006859,-0.00006428, 0.00006070,
     &-0.00005593,-0.00005364,-0.00005160, 0.00004973, 0.00004895,
     &-0.00004716, 0.00004383, 0.00004229, 0.00004164,-0.00003788,
     &-0.00003559, 0.00003504,-0.00003441,-0.00003354, 0.00003083,
     &-0.00002815, 0.00002773, 0.00002589, 0.00002557,-0.00002543,
     & 0.00002526, 0.00002509,-0.00002361, 0.00002353,-0.00002309,
     &-0.00002301,-0.00002236,-0.00002228, 0.00002157,-0.00002088,
     & 0.00002084,-0.00002048, 0.00001984, 0.00001903, 0.00001873,
     &-0.00001834, 0.00001817,-0.00001809, 0.00001808, 0.00001789,
     & 0.00001754,-0.00001695,-0.00001590,-0.00001579, 0.00001435,
     &-0.00001428,-0.00001408,-0.00001306, 0.00001236,-0.00001234,
     & 0.00001205, 0.00001196,-0.00001164,-0.00001132,-0.00001114,
     &-0.00001102,-0.00001096, 0.00001083,-0.00000996,-0.00000976,
     &-0.00000927, 0.00000917, 0.00000909,-0.00000828, 0.00000819,
     &-0.00000802,-0.00000779, 0.00000745, 0.00000744,-0.00000743,
     &-0.00000723, 0.00000697, 0.00000675, 0.00000670,-0.00000664,
     &-0.00000661,-0.00000653, 0.00000638, 0.00000636, 0.00000635,
     &-0.00000631, 0.00000623,-0.00000603,-0.00000599, 0.00000597,
     & 0.00000554,-0.00000541,-0.00000521, 0.00000505,-0.00000504,
     &-0.00000499,-0.00000495, 0.00000484,-0.00000468,-0.00000457,
     & 0.00000446, 0.00000444, 0.00000429,-0.00000428,-0.00000426,
     &-0.00000421,-0.00000412, 0.00000382, 0.00000381,-0.00000375,
     &-0.00000373,-0.00000370, 0.00000370, 0.00000360,-0.00000356,
     &-0.00000356, 0.00000338,-0.00000328,-0.00000309,-0.00000299,
     &-0.00000296,-0.00000295,-0.00000280
     &/
      DATA (PBC(I,2),I=1,188) /
     & 5.12812186, 0.28060196, 0.27769266, 0.17323679, 0.05541215,
     & 0.04627058, 0.03257241, 0.01719776, 0.00926589, 0.00882213,
     & 0.00821572, 0.00432396, 0.00420043,-0.00335948, 0.00246337,
     & 0.00221071, 0.00206515,-0.00186984, 0.00182766,-0.00179446,
     &-0.00174902,-0.00156454,-0.00149122,-0.00147535,-0.00140998,
     &-0.00134434,-0.00133493, 0.00110668, 0.00102068, 0.00083291,
     & 0.00077740, 0.00067052, 0.00060731, 0.00059616, 0.00049055,
     &-0.00045123, 0.00043925, 0.00042215, 0.00042101,-0.00036606,
     &-0.00035119, 0.00033108, 0.00031517, 0.00030161,-0.00028316,
     &-0.00022853, 0.00022339, 0.00022294,-0.00022033,-0.00021973,
     &-0.00018539, 0.00018062,-0.00017745, 0.00017603, 0.00016549,
     &-0.00016359, 0.00013149,-0.00011941, 0.00011526, 0.00010653,
     &-0.00009773, 0.00009411, 0.00009141, 0.00008742,-0.00008692,
     &-0.00008477,-0.00008369,-0.00008088, 0.00007462, 0.00007313,
     & 0.00007058,-0.00006801,-0.00006584, 0.00005938, 0.00005905,
     &-0.00005720,-0.00004775, 0.00004386, 0.00004067,-0.00004015,
     & 0.00003869, 0.00003832,-0.00003726, 0.00003717,-0.00003621,
     & 0.00003582, 0.00003441,-0.00003274,-0.00003148,-0.00003147,
     &-0.00003141,-0.00003046,-0.00002926, 0.00002827,-0.00002642,
     & 0.00002612, 0.00002544, 0.00002448, 0.00002249, 0.00002198,
     &-0.00002179,-0.00002078, 0.00001921,-0.00001823,-0.00001773,
     &-0.00001745, 0.00001738,-0.00001724,-0.00001718,-0.00001716,
     & 0.00001656, 0.00001624,-0.00001591, 0.00001579,-0.00001553,
     &-0.00001529, 0.00001528,-0.00001516, 0.00001508, 0.00001459,
     &-0.00001416,-0.00001348, 0.00001343, 0.00001171,-0.00001095,
     & 0.00001021, 0.00001013,-0.00001010,-0.00001003, 0.00000963,
     & 0.00000962, 0.00000954,-0.00000896,-0.00000873, 0.00000866,
     &-0.00000844, 0.00000836,-0.00000821, 0.00000805,-0.00000789,
     & 0.00000786,-0.00000714,-0.00000708, 0.00000693,-0.00000672,
     & 0.00000661,-0.00000657, 0.00000635, 0.00000604,-0.00000584,
     & 0.00000579, 0.00000568,-0.00000559,-0.00000508, 0.00000505,
     &-0.00000500, 0.00000491,-0.00000470, 0.00000467,-0.00000464,
     & 0.00000445, 0.00000444,-0.00000436, 0.00000413,-0.00000412,
     & 0.00000407,-0.00000377, 0.00000375,-0.00000374, 0.00000367,
     & 0.00000353,-0.00000351,-0.00000349, 0.00000342, 0.00000336,
     & 0.00000329,-0.00000328,-0.00000327, 0.00000321, 0.00000313,
     & 0.00000303,-0.00000291, 0.00000289, 0.00000287, 0.00000286,
     & 0.00000285, 0.00000282,-0.00000280
     &/
      DATA (PBC(I,3),I=1,154) /
     &-20905.3550, -3699.1109, -2955.9676,  -569.9251,   246.1585,
     &  -204.5860,  -170.7331,  -152.1377,  -129.6201,   108.7427,
     &   104.7552,    79.6606,    48.8883,   -34.7825,    30.8238,
     &    24.2085,   -23.2104,   -21.6363,   -16.6747,    14.4027,
     &   -12.8314,   -11.6500,   -10.4448,    10.3211,    10.0562,
     &    -9.8844,     8.7516,    -8.3791,    -7.0027,     6.3220,
     &     5.7509,    -4.9501,    -4.4212,     4.1311,    -3.9580,
     &     3.2582,    -3.1483,     2.6164,     2.3536,    -2.1171,
     &    -1.8970,    -1.7385,    -1.5714,    -1.4226,    -1.4189,
     &     1.1655,    -1.1169,     1.0657,    -0.9333,     0.8624,
     &     0.8512,    -0.8488,    -0.7956,     0.7785,     0.7740,
     &    -0.6697,    -0.6575,     0.6571,     0.5963,     0.5788,
     &    -0.5142,    -0.5079,     0.4976,     0.4950,     0.4726,
     &    -0.4225,    -0.4224,    -0.4107,     0.3785,     0.3551,
     &     0.3430,     0.3346,     0.3323,     0.3233,    -0.3218,
     &    -0.2866,     0.2840,    -0.2790,     0.2556,    -0.2481,
     &     0.2445,     0.2370,    -0.2126,     0.2125,     0.2094,
     &    -0.2029,     0.2010,    -0.1857,    -0.1832,     0.1686,
     &    -0.1580,    -0.1571,    -0.1481,     0.1476,     0.1437,
     &    -0.1392,    -0.1362,    -0.1357,    -0.1281,     0.1141,
     &     0.1100,    -0.1089,    -0.1083,    -0.1077,    -0.1033,
     &    -0.0994,    -0.0859,    -0.0798,    -0.0668,    -0.0654,
     &     0.0606,    -0.0590,    -0.0589,    -0.0585,    -0.0579,
     &    -0.0553,     0.0529,    -0.0519,     0.0507,    -0.0502,
     &    -0.0484,     0.0474,    -0.0474,    -0.0461,     0.0459,
     &    -0.0442,    -0.0432,    -0.0423,    -0.0389,     0.0381,
     &     0.0373,     0.0373,     0.0368,     0.0338,     0.0327,
     &     0.0314,     0.0302,    -0.0295,    -0.0294,     0.0291,
     &    -0.0286,     0.0284,    -0.0270,    -0.0267,     0.0266,
     &    -0.0247,    -0.0244,    -0.0240,     0.0237,     0.0233,
     &     0.0230,     0.0213,    -0.0208,    -0.0201
     &/
      DATA (APBC(I,1,1),I=1,218) /
     &134.9634114,100.7369970,235.7004084,269.9268228,357.5291092,
     &186.5441986,325.7735856,103.2078878, 10.6638198,238.1712992,
     &222.5656978,297.8502042,132.4925206, 49.1562098,321.5076100,
     &308.4192127,336.4374054, 44.8902341,201.4739940, 98.2661062,
     &233.2295176,162.8867928,295.3793134, 13.1347106,145.6272312,
     &111.4008168,190.8101743, 87.6022864,287.2811957,328.2444765,
     & 72.8136156,240.6421900,267.4559319,355.0582184,105.6787787,
     &184.1196211, 62.2446070,338.9082962, 96.4710214, 38.5872012,
     &  8.1929290,203.9448849,220.0948070, 95.7952154,323.3026948,
     & 51.6271006,246.3642282,179.8536455,113.8717076, 27.9233814,
     & 46.6853189, 83.3826241, 70.3427248,263.6237898, 66.5105827,
     &148.0981220,130.0216297,160.4159020,280.5906425,197.2080184,
     & 55.8467629, 15.6056014,312.6388751,333.9665146,207.7770270,
     &111.3060056, 77.1744024,139.2293870,300.3210950, 42.4193433,
     &152.3177843,193.2810651,319.0830325,289.7520865, 13.0883973,
     &184.0733078,173.5506126,212.1378138, 64.7154979,186.5905120,
     &199.0031032, 25.4524906,243.1130809,231.4344328,341.3791871,
     & 36.0214992,149.8932068,330.7153673,302.2109911,143.1563403,
     &108.9299260,248.8351190, 36.1163104,319.0367192,124.3944028,
     &347.0064140,320.8318040,108.1496695, 41.0580920, 21.3276396,
     &162.9816041, 85.1313956,230.7586268,274.1927984,188.3392834,
     & 28.0181927,206.4157757,116.3425984,171.0797218,165.3576836,
     &252.9599701,347.1012252,332.1714298, 75.2845064,314.8170569,
     &352.5873276, 68.9814735,283.0615334,205.3061361,  4.2659756,
     &148.0518087, 79.6452933,297.9450154,181.6487303,266.0946807,
     &305.9483219, 49.1098964,121.8750141, 55.5540539,222.6120111,
     &170.9849105,199.6789092,214.6087046,280.8833515,284.8103048,
     & 59.8200295, 59.7737162,264.9850411,176.0215034,150.5690128,
     & 54.0979914,276.6636892,139.3241982,218.3460355,261.0580878,
     &217.6239162,243.8933374,177.6754637,259.3578142,128.6603785,
     & 94.0001306,302.7919858,261.1528990,342.7404383,246.2694169,
     &292.9084226,177.3827547,304.6818819,121.9235120,196.5322124,
     & 94.0464439, 18.0764922, 23.7985304,212.0430026, 58.3176537,
     &321.5539233,141.7002778, 64.0396919, 80.9117333,278.1197517,
     &  6.3978442,349.5721160,274.1464851,251.3060098,284.8566182,
     &336.3425942, 44.2144281,250.4890792,152.3640976,122.0646366,
     &165.4524949,306.0431332,331.4956238,154.7886751,156.2910509,
     &113.8253943,349.4773048,147.4223160, 53.3758721, 67.1863887,
     &127.5507389, 72.9084268,343.8500779,  4.3607869,189.0614028,
     &194.7371276,349.4309915,195.7519559,292.2229773, 30.4890835,
     &310.1679842,210.2479178,167.2475797,248.7888057,274.2876096,
     &  5.7220381,107.1348412,245.5839717,283.0152200, 74.7035116,
     &113.7768964,225.1313999, 43.5289829,300.4159063,229.3025643,
     &209.6669230,121.9698253,334.6423206
     &/
      DATA (APBC(I,2,1),I=1,218) /
     &  47719886.76313,  41333535.54022,  89053422.30335,
     &  95439773.52627,   3599905.02909,  96640403.50546,
     &  -6386351.22292,  37733630.51112, 136773309.06648,
     &  85453517.27426, -44119981.73404,  44526711.15168,
     &  51319791.79223,  -7586981.20211, 144360290.26859,
     & -48920516.74233, 130386957.84357, 143159660.28940,
     &  82667071.08043,  44933440.56931,  92653327.33244,
     &  -3193175.61146,  48126616.18077, 133173404.03739,
     & 184493195.82962, 178106844.60670, -54106237.98605,
     & -91839868.49717, 137973939.04568,  -9986256.25201,
     &  92246597.91481,  81853612.24516,  99039678.55536,
     &   7199810.05819,  34133725.48203,  40132905.56102,
     & 185693825.80881, 126787052.81447, 192080177.03173,
     &  85860246.69189, 140373214.09558,  79067166.05134,
     & -40520076.70494,  48533345.59841,  -2786446.19382,
     & -11186886.23121, 225826731.36983, 190879547.05253,
     & 174506939.57761, -50913062.37459,  -3987076.17302,
     &  -1200629.97919,  95846502.94390,  38140359.92876,
     &  34947184.31730, 180893290.80052,  54919696.82132,
     &    406729.41764, 232213082.59275, 233413712.57194,
     &-101826124.74918, 129573499.00829,-139559755.26031,
     & 133986862.87266, 139966484.67794, -52113692.35379,
     & 171720493.38378,-103026754.72838,  40926806.12258,
     & 146759565.31849,  90254052.28254, -57706143.01514,
     &  87852792.32416, 134374034.01658, 193280807.01092,
     & 100240308.53456, 133580133.45503, 219440380.14692,
     & 182093920.77972,  36533000.53193,  86266976.10953,
     & -47313157.34550,  78253707.21607, 239800063.79486,
     & 123187147.78538,-140760385.23950,  33746554.33811,
     & -13586161.28111, 124000606.62065, 188093100.85871,
     & 181706749.63579, 222226826.34074,  89460151.72099,
     & 147960195.29769, 141167114.65714,  36939729.94956,
     &    813458.83527,  30533820.45293,  82260341.66280,
     & 273546618.13297, 227027361.34903, -88239963.46808,
     &  96253232.36154, -55306867.96524, -50506332.95696,
     & 179307474.58589,  75467261.02224, 170907034.54851,
     & 137180038.48412,  -6793080.64055, -98632949.13773,
     & 267160266.91005, 281133599.33508,  88646692.88571,
     & 238599433.81567,  10799715.08728,  31347279.28821,
     & 228613177.56366, 143566389.70704,-150746641.49151,
     & 241000693.77406, 168120588.35469, 274747248.11216,
     &  43732810.59012,  34540454.89966, -45320611.71323,
     &  52520421.77142,-145560920.24779, 279932969.35588,
     &-104227384.70757, -93040498.47637, 229813807.54285,
     & 215840475.11782,-149546011.51232, 141573844.07477,
     & 129186327.86437, 189293730.83791, 102639583.58446,
     & 129980228.42593, 177293385.77143, -14786791.26030,
     & -58906772.99434, 127193782.23211,  46519256.78394,
     &-188480272.00263, -36920171.67585, 229426636.39893,
     &-187279642.02344, 188887001.42027,  -9579526.83438,
     & 195680082.06082,  37326901.09349,  41740264.95785,
     & 187686371.44108,  -4393805.59065,  51726521.20986,
     & 194479452.08163, 120400701.59156, 144767019.68623,
     &  89866881.13862, 135572679.08729, 125973593.97920,
     & 269946713.10387, -10780156.81357,-105426029.77828,
     &  84252887.29506,-106626659.75747,  38547089.34639,
     &   2399275.04990, 235812987.62184, 287519950.55799,
     & 263560361.88096,   4800535.00829, 218626921.31164,
     &  81466441.10124, -99833579.11692,   -387171.14392,
     & -95033044.10863,  30146649.30901, 314880153.67318,
     & 223427456.31993, 184899925.24725, 137586767.90176,
     &  86654147.25345, 321266504.89610, 234614342.55114,
     &  33339824.92047,  37346459.36720, -98226219.72009,
     & 178494015.75062,  58519601.85042, 322467134.87529,
     & 119587242.75628,  79473895.46898,  32933095.50283,
     & 237013617.60104,  93447227.89400, -61306048.04424,
     & 130774128.98749, 175707569.55680,-135959850.23121,
     & 136366579.64885,  76280719.85752, 282334229.31427,
     & 174913668.99524, 143973119.12467, 328853486.09821,
     &  74653802.18697, 288720580.53719, 175320398.41288,
     & -55713597.38288, 182500650.19735,  78660436.63370,
     & 271147343.08307,-198466528.25464, 223040285.17601,
     &  84659616.71270, 277533694.30598
     &/
      DATA (APBC(I,3,1),I=1,218) /
     &  89.970,-122.571, -32.601, 179.941,  -1.536, -68.058,-212.541,
     &-121.035,  57.370, -31.065, -91.506, -16.300,  88.434,  35.458,
     &  21.912, 158.029,-155.171, 269.911,-245.142,-124.107, -34.136,
     &-106.271, -17.836,  58.906, 147.340, -65.201,-302.511,-181.476,
     &-190.629,-211.005,  73.670, -29.529, 178.405,  -3.072,-119.499,
     & 125.428,-100.659,-153.636, 111.882,-138.871,  55.834,-243.606,
     & -93.042,-125.643,-214.077,  36.994,  24.769, 359.881, -63.665,
     &-196.241,  33.922, 247.999,  72.134,-228.841,-335.112, 148.876,
     &  86.899,-107.806, 237.310, -10.689,-392.482,  60.441,-271.447,
     &-156.707, 163.640,  51.758,-277.742,-144.483, -14.764, 268.375,
     &-280.599,-300.976, 215.398,-189.093,-136.117, -69.594, -48.901,
     &-187.772, -99.123, 126.964,-246.678,-197.777, -27.993, 201.853,
     &-152.100, -23.448, -87.113,-209.469,-367.713, 145.804, -66.737,
     &  26.305,-140.407,  20.376, -84.359,  19.158,-215.613,-117.963,
     &-137.335, 114.739,-223.230,-183.012, -35.672, -54.513,-304.047,
     &-313.200,-242.070, -62.129, -50.437,-104.735,-286.211, -97.802,
     &  79.282,  75.206, 449.851,  -4.608,-333.576, 238.846, 162.104,
     &-234.453, -46.146,-276.206,-133.259, 123.892,-227.306, 156.493,
     &-159.564, 226.087, 327.281, 103.516,  66.523,  -9.153,-186.236,
     &-482.452,-192.165,  92.828,-102.195, 176.869, -47.365, 150.412,
     &  38.529, -52.977,-261.442, 337.969,-113.418, -94.578,  23.233,
     &-361.417,   5.612,-318.812, 110.346, -13.229,-230.377, 253.611,
     & 141.728, -19.372, 358.345,-366.177, -85.894,-248.213, 305.369,
     &  61.977, 116.275, -70.813,-390.946, 216.934,-142.947,-336.648,
     & 246.463, 235.774, 291.823, -96.266,-249.535,  27.841,   2.857,
     & -38.212,  32.386,-287.747, -85.577,  -7.831,-221.694,  39.534,
     &-158.243,-279.064, 204.710,-258.688,  20.693, -88.649,-394.018,
     & -97.587,  85.363, -43.289,-150.564,-351.412, 128.500, -12.224,
     &-174.329,-299.440,-187.558,-311.664,-272.983, 165.176,-457.683,
     &-168.717,-171.472,  54.298, 169.252, -26.457,  43.824,-279.278,
     &  53.294,-206.929,-135.799,-131.724,-324.423,-189.308, 109.128,
     &  80.817
     &/
      DATA (APBC(I,4,1),I=1,218) /
     & 14.348,-10.684,  3.664, 28.695,  0.041, -0.567,-25.031,-10.724,
     & 18.011,  3.623,-14.307,  1.832, 14.388,  4.231, 13.780, 14.915,
     & -7.020, 43.043,-21.367,-10.643,  3.705,-12.516,  1.873, 17.971,
     & 32.359,  7.328,-39.379,-28.654,-11.251,-25.072, 16.179,  3.582,
     & 28.736,  0.082,-10.765, 18.579,  3.097, -7.061, 28.128, -8.852,
     & 18.052,-21.408,-14.266,-10.602,-24.990,  4.190, 21.675, 57.390,
     &  7.287,-26.863,  4.272, 29.262, 16.220,-23.199,-35.715, 32.318,
     & 14.429,-12.475, 46.706, 17.444,-53.726, 17.930,-43.002, -6.979,
     & 30.527,  2.399,-17.703,-24.464,  1.791, 43.083,-25.598,-39.419,
     & 32.926,-11.292, -1.134, -0.526,  5.496, -3.356,  3.056, 18.538,
     &-21.326,-26.822,  3.541, 42.475, -7.101,-13.739, -6.453,-25.113,
     &-32.051, 32.400,  7.369, 21.634, -8.811, 13.821,  1.265,  6.063,
     &-24.949,-10.806, -8.893, 36.023, -7.587,-28.613,  3.746,-10.116,
     &-39.338,-21.934,-21.449,  7.246,  5.537,-12.556,-41.211, 10.992,
     & 31.792, 16.139, 71.738,  0.123,-35.756, 46.666, 30.568,-38.811,
     & 13.213,-17.744,  6.761, 18.619,-23.240, 14.956,-14.874, 15.482,
     & 61.054,  4.798,  0.608, 17.403, -3.397,-68.074,-11.210, 22.243,
     &  3.138, 28.777,  5.455, 32.277,  4.149,-10.157,-19.535, 43.610,
     &-28.087,-14.225, 21.716,-57.349, 15.612,-37.547, 28.169,  1.750,
     &-23.158, 44.874, 16.747,  1.914, 57.431,-32.092,  1.306,-21.286,
     & 47.274, 17.889, 35.982, -8.284,-53.767, 32.885,-24.505,-35.674,
     & 29.303, 46.747, 56.823, 10.951,-29.221, 21.594,  7.895,-11.948,
     &  4.313,-41.170, -6.493, 25.339, -7.628, 19.884, -6.938,-25.639,
     & 50.370,-11.818,  6.022, -6.412,-53.685,  3.015, 14.470, 21.108,
     & -7.142,-33.883, 18.497, 17.485,-13.083,-39.460,-11.333,-21.975,
     &-42.961, 30.486,-46.398,  2.529, -5.188, 18.093, 46.139,  3.501,
     & 27.561,-17.663,  2.358, -9.419, -8.933,  6.720,-53.159, -3.315,
     & 20.411, 31.751
     &/
      DATA (APBC(I,5,1),I=1,218) /
     & -6.797,  5.028, -1.769,-13.594,  0.000,  0.232, 11.826,  5.028,
     & -8.566, -1.769,  6.797, -0.884, -6.797, -2.001, -6.566, -7.029,
     &  3.259,-20.392, 10.057,  5.028, -1.769,  5.913, -0.884, -8.566,
     &-15.363, -3.538, 18.623, 13.594,  5.260, 11.826, -7.682, -1.769,
     &-13.594,  0.000,  5.028, -8.798, -1.537,  3.259,-13.363,  4.144,
     & -8.566, 10.057,  6.797,  5.028, 11.826, -2.001,-10.335,-27.189,
     & -3.538, 12.710, -2.001,-13.826, -7.682, 10.941, 16.854,-15.363,
     & -6.797,  5.913,-22.161, -8.334, 25.420, -8.566, 20.392,  3.259,
     &-14.479, -1.116,  8.288, 11.594, -0.884,-20.392, 12.057, 18.623,
     &-15.595,  5.260,  0.463,  0.232, -2.653,  1.491, -1.537, -8.798,
     & 10.057, 12.710, -1.769,-20.160,  3.259,  6.566,  3.028, 11.826,
     & 15.085,-15.363, -3.538,-10.335,  4.144, -6.566, -0.653, -2.885,
     & 11.826,  5.028,  4.144,-17.132,  3.491, 13.594, -1.769,  4.797,
     & 18.623, 10.288, 10.057, -3.538, -2.653,  5.913, 19.507, -5.307,
     &-15.132, -7.682,-33.986,  0.000, 16.854,-22.161,-14.479, 18.391,
     & -6.334,  8.288, -3.306, -8.798, 10.941, -7.029,  7.029, -7.261,
     &-28.958, -2.232, -0.232, -8.334,  1.491, 32.217,  5.260,-10.567,
     & -1.537,-13.594, -2.653,-15.363, -2.001,  4.797,  9.172,-20.623,
     & 13.363,  6.797,-10.335, 27.189, -7.450, 17.738,-13.363, -0.884,
     & 10.941,-21.276, -7.913, -0.884,-27.189, 15.085, -0.653, 10.057,
     &-22.392, -8.566,-17.132,  3.912, 25.420,-15.595, 11.594, 16.854,
     &-13.826,-22.161,-26.957, -5.307, 13.826,-10.335, -3.769,  5.681,
     & -2.001, 19.507,  3.028,-12.104,  3.491, -9.451,  3.259, 12.057,
     &-23.929,  5.492, -2.885,  3.028, 25.420, -1.537, -6.797,-10.103,
     &  3.259, 15.969, -8.798, -8.334,  6.144, 18.623,  5.260, 10.288,
     & 20.392,-14.479, 21.882, -1.306,  2.375, -8.566,-21.929, -1.769,
     &-13.131,  8.288, -1.116,  4.376,  4.144, -3.306, 25.188,  1.491,
     & -9.682,-15.132
     &/
      DATA (APBC(I,1,2),I=1,188) /
     & 93.2720993,228.2355107, 41.6913121,142.4283091,194.0090963,
     &  7.4648977,328.9725077,  3.1989221,277.3917205,176.6547234,
     &144.8991999,232.5014863,103.9359191,139.9574183,196.4799872,
     &331.4433985,  9.9357885,129.2935985,243.1653061, 90.8012085,
     &279.8162980,315.8377971, 31.1223035,225.7646199, 39.2204212,
     &264.2570099,204.5781049,138.1623335, 18.1287175, 69.7095047,
     &215.1471134,294.7460934,315.8841104, 52.3551318,279.8626113,
     & 59.0456850,311.6181348,238.8993305, 97.5380749,191.5382055,
     &326.5016169,204.6729161,106.4068099,147.3700907, 54.7797093,
     &274.9208296,202.1072141, 28.6514127,354.3301871,  4.9940069,
     &166.0857149,234.9723771,  0.7280313,108.2018947,245.6361969,
     &339.5415163,153.0921289, 69.6146935, 20.5996083,333.9142894,
     & 80.2785133, 72.1803956,180.9206991,198.9508780,174.1838326,
     &305.3151019,180.8743857, 90.8475218, 12.4066793,273.1257448,
     &284.0822736, 20.5532950,101.4650283,297.2169842,339.6363275,
     &131.8593005,240.6944153,207.1438069,187.3185432,155.5167064,
     &256.1588921, 13.8627419,137.4865274,322.5746636,350.1105248,
     & 54.8260227,241.3702213,189.7431207,126.8227077,189.0673147,
     & 15.6578267,294.6512821,  2.5231161,163.6148241,313.3669063,
     &118.8657145, 86.5815462,318.3550013,343.9023031,230.0305955,
     &121.1954808,219.3667757,282.3335021,245.5898836,301.0491263,
     & 49.8842410,191.5845188, 61.5165758, 36.7495304,135.6914426,
     &170.4465018,108.8777007, 88.3303177,155.5630197,253.6880013,
     &223.2937291,100.0089658,313.4132196, 56.5747941,110.6727855,
     & 67.2386139,356.8958892,288.0555402,305.4099131,170.3516905,
     &253.8291259,149.8409815,114.5049276,215.2419247,337.0706254,
     &248.1070877, 77.8076225, 18.0339062,236.4284397, 35.4830904,
     &290.4801177,342.1072183,292.2752025, 23.0704991,266.8227119,
     &114.5997389, 82.7494041,202.2020253,149.1188622,309.1472440,
     & 74.6512864, 45.9109744,237.4432680,159.7826820,307.7859927,
     &129.3884097, 45.9572877,342.0124071, 33.5931943, 95.0671841,
     &261.7861190, 48.0891562,150.6212380,118.7245899, 93.3184126,
     &336.3851802,292.1803913,351.8592963,121.3366053,324.0307261,
     & 80.3733245,134.3301914,264.3518211,207.0489957,302.8442111,
     &209.6146978,227.5597047,159.6878707,299.6878750, 16.3336327,
     &148.8261532,324.7065321, 23.0241858,277.3454071,187.6112522,
     &346.3731939,181.0155103,201.4217688,183.3915899, 72.0855843,
     &322.2819546,298.5782355,253.7343146
     &/
      DATA (APBC(I,2,2),I=1,188) /
     &  48320201.75273,  96040088.51586,   -600314.98960,
     &  40733220.55062,  89653737.29295,  -6986666.21251,
     & 137373624.05608, 143759975.27900,  88453107.31375,
     &  47119571.77354,  37133315.52153, -54706552.97565,
     & 185093510.81921,  44333125.57971,  86053832.26385,
     & 133773719.02699, -10586571.24161, -92440183.48677,
     &  82066756.09084,  51920106.78183, 144960605.25819,
     &   4200220.01869,  92846912.90441,  99639993.54496,
     &   2999590.03950, -44720296.72364,  -3793490.60106,
     & 191479862.04213, 129786642.85397, 178707159.59630,
     & -97240718.49506, 130987272.83316, -55907182.95484,
     & 136172994.07689,  84853202.28466,  41933850.52981,
     &  94839458.53667, 232813397.58235,-102426439.73878,
     &  93253642.32204, 140973529.08518, 226427046.35943,
     & 181493605.79012,  33533410.49243, 192680492.02133,
     &  92053012.34285,   -193585.57196,  96446817.93350,
     &-140160070.24990,  -3386761.18342, 140566799.66754,
     & -58306458.00474, 147359880.30809,  34346869.32770,
     &  78466851.06174,  43926396.16208, 177506529.61710,
     & -51513377.36419, 126186737.82488, 130173813.99789,
     &  85259931.70229, 175107254.56720,-103627069.71798,
     &  82453927.23476,  50719476.80263,  37540044.93916,
     & -43519666.74444,  -8187296.19171, -14186476.27070,
     & 239199748.80526,  -5786036.23332, 186294140.79841,
     & 188693415.84831, 127387367.80407, 274146933.12256,
     & 134180448.44462,  85666661.11993, 222827141.33034,
     & 183892880.84002, 234014027.56154,  45127026.14127,
     & 280533284.34548,  47933030.60881,-150146326.50191,
     & -49520831.73193, 132573089.04779, 229213492.55325,
     & 240400378.78446, -88840278.45768,  96853547.35114,
     & 133386547.88306, -99233264.12732,    213143.84567,
     & 144166704.69663,   7800125.04779, 171120178.39419,
     & 142559345.29980, -59507087.98394, 123400291.63105,
     & -51106647.94655,  -2592860.62186,-187879957.01304,
     &  81253297.25556, 138574254.03528, 188286686.43067,
     & 139772899.10598,  33146239.34851,  38333945.50072,
     &   6599495.06859, 195079767.07123, 220040695.13651,
     & 177893700.76103,  55520011.81092, 173906624.58801,
     &  48726931.17037, 103239898.57405,-106026344.76788,
     & -52307277.92575,  45533755.55891,  30746964.29861,
     & 182307064.62539,  86460561.68149, 225226416.38024,
     & 267760581.89965, -10179841.82397, 218840065.15732,
     &  29933505.46334,  91646282.92521, 132979818.46543,
     &  47526301.19117,  74866946.03265,  88859836.73139,
     &-100433894.10652, 236413302.61144, 172320808.37338,
     & 281733914.32468, 270547028.09347, 134587177.86226,
     & 122586832.79578, 181900335.20776, 321866819.88570,
     &  81660026.67320, 230026951.38853, -53505922.99645,
     &  98439363.56576, 171507349.53811, -91239553.50758,
     & -61906363.03384,  83267386.07003,  33940139.91007,
     & 137780353.47372,-151346956.48111,  40326491.13298,
     &  89247007.87531, -98826534.70969, -41120391.69454,
     & 286919635.56840, 181106434.64620,   1007044.40723,
     & -11787201.22080, 126573908.96880, -95633359.09823,
     &-136560165.22081, 167520273.36509, 144573434.11427,
     & 315480468.66278, 130580543.41553, 185500240.23685,
     &  -7393395.63015,  41139949.96826, 219227236.30124,
     & -47506742.91746,-146953150.89046, 123787462.77498,
     & 276933379.31639, 328253171.10861, 288120265.54759,
     & 182694235.76931, 148560510.28729,-197866213.26505,
     & 119800386.60196, 126593467.24251,  78854022.20566,
     &-107226974.74707, -55113282.39328, 231612767.60315,
     & 191886591.45977, -11380471.80317
     &/
      DATA (APBC(I,3,2),I=1,188) /
     & -34.029,  55.941, 123.999,   1.429,-156.600, -88.542, -66.630,
     & 145.911,  91.399, 213.970,   2.964,-178.512,  23.341,  -0.107,
     &-155.064, -65.094, -87.006, -57.477,-121.142, -35.565,-102.088,
     &-125.535, -50.329,  54.405, 122.464,  32.493,  17.729, 235.882,
     & -31.172,-189.201, 192.058,-279.171,  69.487, 181.369,  92.935,
     &-246.570, 303.940, 113.311,-268.482,-158.136, -68.166, -99.230,
     &  24.876,   4.500, -12.117,  89.863,  16.193, -51.865,-147.447,
     & -90.077,  39.641,-176.976, 144.376,-211.113,-119.606, 107.699,
     &  58.798, -72.241, -29.636, -63.558, -14.872,-187.665, -20.483,
     &-153.528, 212.434,-104.842,-215.506, 159.457, -85.470, 325.852,
     &-336.541,-224.658,  21.805,-277.635,  -9.260,-172.900,-122.678,
     & -97.694, 271.339,-134.688,-140.300, 203.281,  -1.643,-358.453,
     & 282.028, 182.905, 114.847,  77.853, -59.013,-159.672, -32.708,
     &-162.212, -91.613,  38.105,-127.071,-153.743, 393.910,  71.023,
     &-243.713,-180.048,-230.270,-237.418,  94.471,-314.629, 129.611,
     & 179.833,  36.886,-245.034, 120.928, 234.346,-311.771,  26.412,
     & -37.101,  60.334,-141.836,  52.869,-266.946,  67.951,-248.106,
     &-209.577,-190.736,-262.871, 148.769,-221.801,-194.812, -63.773,
     &   6.036, 197.669,  75.099, 106.163,-118.071, -16.408,  85.787,
     & 111.775,-401.742, -44.718,  -7.724,-280.707, -28.100, -82.930,
     &  80.710, -13.336,-100.766,-426.511, 302.404,-186.129,-305.476,
     &-175.440,-369.141,-103.306,-174.436,-110.454, 109.235, -48.794,
     &-270.018,  30.958, 415.822,  57.263,-231.806, 160.993, -62.022,
     &-163.748,-148.983,-152.207, -69.701,-131.831,-171.364, -84.466,
     &  19.265,-106.378, -96.159,-181.584,-252.182,-276.099, 204.817,
     & 293.251, 167.823,-223.123,-103.623,-448.423,-242.177,-137.443,
     &-151.993, -18.948, -70.706, 361.310, 128.075,  53.187
     &/
      DATA (APBC(I,4,2),I=1,188) /
     & -0.284, 14.064, 14.631,  3.948,-10.967,-10.400,  3.380, 28.411,
     & 18.295, 28.979,  3.907,-24.748, 17.728,  3.988,-11.008,  3.339,
     &-10.441,-14.023, -6.736, -0.243, -0.851,-14.590,  1.548, 14.105,
     & 14.672,  0.324,  2.116, 42.759,  7.611, -7.303, 15.198,-21.651,
     &  4.515, 32.643, 18.254,-25.315, 43.326, 32.075,-39.095,-10.926,
     &  3.421,  7.044, 17.687,  3.866, 13.497, 18.336,  2.156,  1.589,
     &-28.371,-10.359, 15.896,-24.788, 28.452,-21.084, -6.777, 16.463,
     & 21.959,-12.232,  7.571,  3.299,  5.779, -7.344, -9.833,-11.049,
     & 29.019, -8.568,-28.938, 18.862,-10.482, 57.106,-39.662,-11.534,
     & 17.769,-21.692, 21.392, -9.135, -6.695,  7.003, 46.990,  2.813,
     &-12.799, 46.423,  4.029,-53.443, 29.546, 32.602, 32.034, 27.844,
     &-13.982,-10.886,  7.652,-26.579,-10.318, 15.937,-14.549, -3.072,
     & 57.674,  4.474,-17.420,-24.707,-27.147,-42.718, 18.213,-25.882,
     & 30.243, 32.683,  8.179,-25.356, 14.713, 42.800,-17.987, 17.646,
     & -0.202, 21.918,-12.758, 14.146,-39.136,  4.556,-25.274,-21.124,
     & -7.263,-23.483, 36.306, -3.639,-22.916, 11.275,  3.825, 30.811,
     & 20.127, 16.504, -6.818,  5.820,  2.683, 32.116,-32.334, 17.161,
     & 21.351,-21.610,  7.530,  5.212, 35.739,  5.739,  7.085,-54.010,
     & 43.367, -7.385,-43.285,-24.829,-35.998, -8.609, -9.094,-24.180,
     & 16.422,  1.508,-39.054,  0.365, 71.454, 22.000,-27.106, 18.821,
     &  3.258,-26.539,-28.330, -3.113,  3.462, 10.708, -9.176,  5.253,
     &  2.075, -8.527,  6.962,-24.666,-40.927,-21.733, 46.382, 60.770,
     & 42.192,-11.575, -0.810,-67.790,-17.461, -4.904,-11.090, -9.874,
     &-12.273, 61.338, 30.284,  6.347
     &/
      DATA (APBC(I,5,2),I=1,188) /
     &  0.116, -6.681, -6.913, -1.885,  5.144,  4.913, -1.653,-13.479,
     & -8.682,-13.710, -1.885, 11.710, -8.450, -1.885,  5.144, -1.653,
     &  4.913,  6.681,  3.144,  0.116,  0.348,  6.913, -0.769, -6.681,
     & -6.913, -0.116, -1.000,-20.276, -3.654,  3.375, -7.145, 10.173,
     & -2.116,-15.479, -8.682, 11.941,-20.507,-15.248, 18.507,  5.144,
     & -1.653, -3.422, -8.450, -1.885, -6.450, -8.682, -1.000, -0.769,
     & 13.479,  4.913, -7.566, 11.710,-13.479,  9.941,  3.144, -7.797,
     &-10.451,  5.797, -3.654, -1.653, -2.769,  3.375,  4.681,  5.144,
     &-13.710,  4.028, 13.710, -8.914,  4.913,-27.073, 18.739,  5.376,
     & -8.450, 10.173,-10.219,  4.260,  3.144, -3.422,-22.276, -1.421,
     &  6.029,-22.045, -1.885, 25.304,-13.942,-15.479,-15.248,-13.247,
     &  6.681,  5.144, -3.654, 12.594,  4.913, -7.566,  6.913,  1.375,
     &-27.305, -2.116,  8.172, 11.710, 12.826, 20.276, -8.682, 12.173,
     &-14.363,-15.479, -3.885, 11.941, -6.913,-20.276,  8.404, -8.450,
     &  0.116,-10.451,  6.029, -6.681, 18.507, -2.116, 11.941,  9.941,
     &  3.375, 11.057,-17.248,  1.606, 10.825, -5.423, -1.885,-14.595,
     & -9.566, -7.797,  3.144, -2.769, -1.232,-15.248, 15.201, -8.219,
     &-10.219, 10.173, -3.654, -2.538,-17.016, -2.769, -3.422, 25.536,
     &-20.507,  3.375, 20.507, 11.710, 16.970,  4.028,  4.260, 11.478,
     & -7.797, -0.769, 18.507, -0.116,-33.870,-10.451, 12.826, -8.914,
     & -1.653, 12.594, 13.479,  1.375, -1.653, -5.191,  4.260, -2.538,
     & -1.000,  4.028, -3.422, 11.710, 19.391, 10.173,-22.045,-28.842,
     &-20.044,  5.376,  0.348, 32.101,  8.172,  2.259,  5.144,  4.681,
     &  5.797,-29.074,-14.363, -3.001
     &/
      DATA (APBC(I,1,3),I=1,154) /
     &134.9634114,100.7369970,235.7004084,269.9268228,325.7735856,
     &238.1712992, 10.6638198,103.2078878,222.5656978,297.8502042,
     &132.4925206,308.4192127,357.5291092,336.4374054,233.2295176,
     & 98.2661062, 44.8902341,201.4739940,295.3793134,190.8101743,
     & 13.1347106,111.4008168,145.6272312, 49.1562098,328.2444765,
     &240.6421900,274.1927984,162.8867928, 87.6022864, 72.8136156,
     &267.4559319,105.6787787, 83.3826241,184.1196211,338.9082962,
     & 38.5872012,186.5441986,  8.1929290, 95.7952154,220.0948070,
     &203.9448849, 27.9233814,113.8717076,246.3642282,173.5506126,
     &130.0216297,179.8536455,355.0582184, 70.3427248,263.6237898,
     &160.4159020,148.0981220,111.3060056, 55.8467629,152.3177843,
     &280.5906425, 15.6056014, 51.6271006,287.2811957,333.9665146,
     & 66.5105827,284.8566182,300.3210950,193.2810651,139.2293870,
     & 77.1744024,312.6388751,243.1130809,207.7770270, 42.4193433,
     &330.7153673, 49.1098964, 25.4524906,276.6636892,149.8932068,
     &212.1378138,319.0830325,341.3791871, 41.0580920,305.9483219,
     &108.9299260,199.0031032, 36.1163104,143.1563403,186.5905120,
     &248.8351190,347.0064140,170.9849105,302.2109911,188.3392834,
     &184.0733078,176.0215034,108.1496695,230.7586268,323.3026948,
     & 21.3276396, 85.1313956, 46.6853189,116.3425984,165.3576836,
     & 75.2845064,320.8318040,206.4157757,171.0797218,321.5076100,
     &252.9599701,347.1012252, 14.9297954, 79.6452933,308.5140240,
     &246.2694169,205.3061361,314.8170569,283.0615334,287.3275090,
     &181.6487303,266.0946807,214.6087046,264.9850411,274.1464851,
     &128.6603785,280.8833515,271.7219076,150.5690128,139.3241982,
     & 55.5540539, 68.9814735,336.3425942,217.6239162,261.1528990,
     &289.7520865,292.9084226,243.8933374,108.8351147, 80.9117333,
     & 62.2446070,154.7886751,302.7919858,291.5471713,  4.2659756,
     & 18.0764922, 54.0979914,152.3640976,177.6754637,196.5322124,
     &349.4309915,304.6818819, 64.0396919,342.7404383, 58.3176537,
     &177.3827547,352.5873276, 23.7985304, 17.3543729
     &/
      DATA (APBC(I,2,3),I=1,154) /
     &  47719886.76313,  41333535.54022,  89053422.30335,
     &  95439773.52627,  -6386351.22292,  85453517.27426,
     & 136773309.06648,  37733630.51112, -44119981.73404,
     &  44526711.15168,  51319791.79223, -48920516.74233,
     &   3599905.02909, 130386957.84357,  92653327.33244,
     &  44933440.56931, 143159660.28940,  82667071.08043,
     &  48126616.18077, -54106237.98605, 133173404.03739,
     & 178106844.60670, 184493195.82962,  -7586981.20211,
     &  -9986256.25201,  81853612.24516, -55306867.96524,
     &  -3193175.61146, -91839868.49717,  92246597.91481,
     &  99039678.55536,  34133725.48203,  -1200629.97919,
     &  40132905.56102, 126787052.81447,  85860246.69189,
     &  96640403.50546, 140373214.09558,  48533345.59841,
     & -40520076.70494,  79067166.05134, -50913062.37459,
     & 174506939.57761, 225826731.36983, 133580133.45503,
     &  54919696.82132, 190879547.05253,   7199810.05819,
     &  95846502.94390,  38140359.92876,    406729.41764,
     & 180893290.80052, -52113692.35379,-101826124.74918,
     &  90254052.28254, 232213082.59275, 129573499.00829,
     & -11186886.23121, 137973939.04568, 133986862.87266,
     &  34947184.31730,  81466441.10124,  40926806.12258,
     & -57706143.01514,-103026754.72838, 171720493.38378,
     &-139559755.26031,  78253707.21607, 139966484.67794,
     & 146759565.31849, -13586161.28111,  52520421.77142,
     & -47313157.34550, -58906772.99434,  33746554.33811,
     & 219440380.14692,  87852792.32416, 123187147.78538,
     &  82260341.66280, -45320611.71323, 181706749.63579,
     &  86266976.10953,  89460151.72099, 188093100.85871,
     &  36533000.53193, 222226826.34074,  36939729.94956,
     & -93040498.47637, 124000606.62065, -50506332.95696,
     & 100240308.53456, 129980228.42593,  30533820.45293,
     &  96253232.36154,  -2786446.19382, 273546618.13297,
     & -88239963.46808,  -3987076.17302, 170907034.54851,
     &  -6793080.64055,  88646692.88571,    813458.83527,
     &  75467261.02224, 137180038.48412, 144360290.26859,
     & -98632949.13773, 267160266.91005, -13973332.42503,
     & 168120588.35469, 181300020.21816,  -4393805.59065,
     & 143566389.70704, 238599433.81567, 228613177.56366,
     &  77866536.07214,  43732810.59012,  34540454.89966,
     & 215840475.11782, 102639583.58446,   4800535.00829,
     &  -9579526.83438,-149546011.51232, -51706962.93615,
     & 177293385.77143, 127193782.23211, 279932969.35588,
     &  31347279.28821, -99833579.11692, -36920171.67585,
     &  41740264.95785, 134374034.01658,  51726521.20986,
     & 229426636.39893, -48513787.32469,   2399275.04990,
     & 185693825.80881,  86654147.25345,  37326901.09349,
     & -12772702.44583,-150746641.49151, 125973593.97920,
     & -14786791.26030,  30146649.30901,-187279642.02344,
     &  89866881.13862,  93447227.89400, 120400701.59156,
     &  38547089.34639, 187686371.44108,-105426029.77828,
     & 194479452.08163,  10799715.08728, 269946713.10387,
     &  42534165.51941
     &/
      DATA (APBC(I,3,3),I=1,154) /
     &  89.970,-122.571, -32.601, 179.941,-212.541, -31.065,  57.370,
     &-121.035, -91.506, -16.300,  88.434, 158.029,  -1.536,-155.171,
     & -34.136,-124.107, 269.911,-245.142, -17.836,-302.511,  58.906,
     & -65.201, 147.340,  35.458,-211.005, -29.529, -54.513,-106.271,
     &-181.476,  73.670, 178.405,-119.499, 247.999, 125.428,-153.636,
     &-138.871, -68.058,  55.834,-125.643, -93.042,-243.606,-196.241,
     & -63.665,  24.769, -48.901,  86.899, 359.881,  -3.072,  72.134,
     &-228.841,-107.806, 148.876,  51.758,-392.482,-280.599, 237.310,
     &  60.441,  36.994,-190.629,-156.707,-335.112,   2.857, -14.764,
     &-300.976,-144.483,-277.742,-271.447, -27.993, 163.640, 268.375,
     &-209.469,-159.564,-197.777, -52.977, -87.113,-187.772, 215.398,
     &-152.100,-137.335, 156.493, -66.737,-246.678,-140.407, 145.804,
     & 126.964,  26.305,  19.158,  66.523,-367.713,-304.047, -69.594,
     & -47.365,-117.963, -35.672,-214.077, 114.739,-183.012,  33.922,
     & -62.129,-104.735,  75.206,-215.613,-242.070, -50.437,  21.912,
     &-286.211, -97.802,-177.083,-276.206,  41.069, 141.728, 162.104,
     & 449.851, 238.846,   4.393, 123.892,-227.306,-186.236, 176.869,
     &-249.535,-318.812,-482.452, -56.048, 150.412,-261.442, 327.281,
     &-333.576, -38.212, -94.578,-230.377,-189.093, -19.372,  23.233,
     &  50.222, 246.463,-100.659,-279.064, -13.229,-425.082,-234.453,
     &  61.977,  38.529, -85.577,-361.417,-248.213,-174.329,-366.177,
     &-336.648, 253.611,-390.946, 358.345,  -4.608, 116.275,-370.570
     &/
      DATA (APBC(I,4,3),I=1,154) /
     & 14.348,-10.684,  3.664, 28.695,-25.031,  3.623, 18.011,-10.724,
     &-14.307,  1.832, 14.388, 14.915,  0.041, -7.020,  3.705,-10.643,
     & 43.043,-21.367,  1.873,-39.379, 17.971,  7.328, 32.359,  4.231,
     &-25.072,  3.582,-10.116,-12.516,-28.654, 16.179, 28.736,-10.765,
     & 29.262, 18.579, -7.061, -8.852, -0.567, 18.052,-10.602,-14.266,
     &-21.408,-26.863,  7.287, 21.675,  5.496, 14.429, 57.390,  0.082,
     & 16.220,-23.199,-12.475, 32.318,  2.399,-53.726,-25.598, 46.706,
     & 17.930,  4.190,-11.251, -6.979,-35.715,  7.895,  1.791,-39.419,
     &-24.464,-17.703,-43.002,  3.541, 30.527, 43.083,-25.113,-14.874,
     &-26.822,-10.157, -6.453, -3.356, 32.926, -7.101, -8.893, 14.956,
     &  7.369,-21.326, -8.811, 32.400, 18.538, 21.634,  6.063,  0.608,
     &-32.051,-39.338, -0.526,  5.455,-10.806,  3.746,-24.990, 36.023,
     &-28.613,  4.272,  7.246,-12.556, 16.139,-24.949,-21.449,  5.537,
     & 13.780,-41.211, 10.992,-20.800,-17.744, 19.843, 16.747, 30.568,
     & 71.738, 46.666,  7.854, 18.619,-23.240, -3.397, 28.777,-29.221,
     &-37.547,-68.074,-10.076, 32.277,-19.535, 61.054,-35.756,-11.948,
     &-14.225,-23.158,-11.292,  1.914, 21.716,  2.440, 29.303,  3.097,
     &-25.639,  1.750,-50.062,-38.811, 17.889,  4.149, -6.493,-57.349,
     &-21.286,-13.083,-32.092,-35.674, 44.874,-53.767, 57.431,  0.123,
     & 35.982,-39.946
     &/
      DATA (APBC(I,5,3),I=1,154) /
     & -6.797,  5.028, -1.769,-13.594, 11.826, -1.769, -8.566,  5.028,
     &  6.797, -0.884, -6.797, -7.029,  0.000,  3.259, -1.769,  5.028,
     &-20.392, 10.057, -0.884, 18.623, -8.566, -3.538,-15.363, -2.001,
     & 11.826, -1.769,  4.797,  5.913, 13.594, -7.682,-13.594,  5.028,
     &-13.826, -8.798,  3.259,  4.144,  0.232, -8.566,  5.028,  6.797,
     & 10.057, 12.710, -3.538,-10.335, -2.653, -6.797,-27.189,  0.000,
     & -7.682, 10.941,  5.913,-15.363, -1.116, 25.420, 12.057,-22.161,
     & -8.566, -2.001,  5.260,  3.259, 16.854, -3.769, -0.884, 18.623,
     & 11.594,  8.288, 20.392, -1.769,-14.479,-20.392, 11.826,  7.029,
     & 12.710,  4.797,  3.028,  1.491,-15.595,  3.259,  4.144, -7.029,
     & -3.538, 10.057,  4.144,-15.363, -8.798,-10.335, -2.885, -0.232,
     & 15.085, 18.623,  0.232, -2.653,  5.028, -1.769, 11.826,-17.132,
     & 13.594, -2.001, -3.538,  5.913, -7.682, 11.826, 10.057, -2.653,
     & -6.566, 19.507, -5.307,  9.825,  8.288, -9.451, -7.913,-14.479,
     &-33.986,-22.161, -3.769, -8.798, 10.941,  1.491,-13.594, 13.826,
     & 17.738, 32.217,  4.797,-15.363,  9.172,-28.958, 16.854,  5.681,
     &  6.797, 10.941,  5.260, -0.884,-10.335, -1.116,-13.826, -1.537,
     & 12.057, -0.884, 23.651, 18.391, -8.566, -2.001,  3.028, 27.189,
     & 10.057,  6.144, 15.085, 16.854,-21.276, 25.420,-27.189,  0.000,
     &-17.132, 18.854
     &/
      DATA (PER(I,1),I=1,423) /
     & .00395801, .00196196,-.00031752, .00025032,-.00022821, .00021892,
     & .00020536,-.00017881, .00017744, .00015650, .00013703, .00013650,
     & .00012370, .00010017,-.00009543, .00009015, .00008376,-.00008038,
     & .00007856, .00006810,-.00006292, .00005866, .00005401,-.00005127,
     & .00005071, .00004864, .00004745, .00004745, .00004642, .00004583,
     & .00004567, .00004563, .00004549, .00004528, .00004469, .00004364,
     &-.00004264, .00003985, .00003881, .00003878, .00003776, .00003731,
     &-.00003645,-.00003534, .00003483, .00003054, .00002959, .00002914,
     & .00002885,-.00002756, .00002678,-.00002644, .00002549, .00002503,
     & .00002501,-.00002475, .00002398,-.00002336, .00002299,-.00002288,
     &-.00002130, .00002000,-.00001906, .00001896, .00001896,-.00001864,
     & .00001825, .00001809, .00001793, .00001779,-.00001769, .00001756,
     &-.00001735, .00001719,-.00001715,-.00001709,-.00001675,-.00001652,
     & .00001648, .00001640, .00001599, .00001565,-.00001539, .00001487,
     & .00001465, .00001464,-.00001435, .00001419, .00001409, .00001399,
     & .00001395, .00001378, .00001318, .00001296, .00001295,-.00001285,
     & .00001281, .00001269,-.00001244,-.00001206,-.00001189,-.00001189,
     & .00001171, .00001170, .00001124, .00001122, .00001115, .00001096,
     & .00001083,-.00001077,-.00001077,-.00001076,-.00001069, .00001066,
     & .00001050,-.00001044, .00001019,-.00001011, .00000987, .00000986,
     &-.00000969, .00000965, .00000959, .00000945,-.00000927, .00000921,
     & .00000919,-.00000918, .00000911, .00000905,-.00000901,-.00000899,
     & .00000887, .00000882, .00000864, .00000864, .00000859,-.00000842,
     &-.00000820,-.00000812, .00000809, .00000802, .00000791,-.00000781,
     &-.00000781,-.00000725, .00000719, .00000706, .00000698, .00000698,
     &-.00000672,-.00000665, .00000649, .00000643, .00000639, .00000639,
     & .00000638, .00000630,-.00000629,-.00000611,-.00000603,-.00000602,
     &-.00000588, .00000562, .00000558,-.00000558, .00000555, .00000541,
     & .00000533,-.00000528,-.00000520,-.00000511, .00000505,-.00000504,
     &-.00000503,-.00000502, .00000492, .00000476,-.00000475,-.00000475,
     &-.00000472, .00000471, .00000467, .00000465,-.00000457, .00000441,
     & .00000440,-.00000430,-.00000427, .00000417, .00000416,-.00000414,
     & .00000413,-.00000408, .00000405, .00000404,-.00000404, .00000400,
     & .00000398, .00000398, .00000396, .00000396, .00000395, .00000392,
     &-.00000391,-.00000389,-.00000374, .00000365, .00000364, .00000361,
     &-.00000359,-.00000358, .00000357,-.00000347, .00000343,-.00000341,
     &-.00000338, .00000336,-.00000334,-.00000334,-.00000333,-.00000329,
     & .00000323, .00000323, .00000317,-.00000316, .00000313,-.00000313,
     & .00000311, .00000311, .00000305, .00000305, .00000304,-.00000304,
     &-.00000303,-.00000303, .00000301,-.00000297, .00000297, .00000292,
     &-.00000288, .00000284,-.00000283,-.00000283,   .046578,  -.014345,
     &  -.011495,   .010310,   .007656,  -.007062,   .001977,   .001702,
     &  -.001254,  -.001124,   .001041,  -.001030,  -.001014,   .000677,
     &  -.000601,   .000534,   .000401,  -.000392,  -.000368,   .000359,
     &   .000353,  -.000305,   .000298,   .000293,   .000233,   .000204,
     &  -.000191,  -.000175,   .000163,  -.000150,  -.000130,  -.000105,
     &   .000101,   .000098,  -.000089,  -.000088,  -.000083,  -.000083,
     &  -.000082,   .000081,  -.000081,  -.000081,  -.000078,  -.000075,
     &  -.000071,  -.000069,   .000068,   .000065,   .000056,   .000056,
     &  -.000052,   .000047,   .000047,   .000046,   .000044,   .000044,
     &   .000044,  -.000043,   .000043,  -.000041,   .000040,  -.000040,
     &   .000039,   .000038,   .000036,   .000036,   .000036,   .000035,
     &   .000034,  -.000033,   .000033,   .000030,   .000030,   .000030,
     &   .000030,  -.000029,   .000027,   .000027,  -.000027,   .000026,
     &   .000026,   .000025,  -.000025,  -.000024,  -.000022,   .000022,
     &  -.000022,  -.000021,  -.000021,   .000021,   .000020,   .000020,
     &  -.000020,   .000020,  -.000019,  -.000018,   .000018,   .000018,
     &   .000017,   .000016,   .000016,   .000016,  -.000016,   .000016,
     &   .000015,   .000015,  -.000015,  -.000015,   .000015,  -.000014,
     &  -.000014,  -.000014,   .000014,   .000014,   .000014,   .000014,
     &   .000014,  -.000014,  -.000014,  -.000013,  -.000013,   .000013,
     &   .000012,   .000012,   .000011,  -.000011,   .000011,  -.000011,
     &   .000011,   .000011,  -.000010,   .000010,   .000010,  -.000010,
     &  -.000010,   .000010,   .000010,   .000010,   .000009,   .000009,
     &   .000009,   .000009,   .000009,  -.000009,  -.000009,   .000009,
     &   .000009,   .000009,   .000009,  -.000009,   .000009,   .000009,
     &  -.000009,   .000008,    .01353,   -.00417,   -.00333,    .00300,
     &    .00222,    .00058,    .00050,   -.00036,   -.00033,   -.00031,
     &   -.00031,    .00031,    .00019,   -.00017,    .00017,    .00011,
     &    .00011,   -.00008,    .00008,   -.00006,   -.00006,   -.00006,
     &    .00006,    .00006,    .00006
     &/
      DATA (PER(I,2),I=1,140) /
     &-.00223474, .00041950, .00017510, .00017504, .00012663,-.00011548,
     & .00009062, .00008293,-.00002319, .00002234,-.00002154, .00002037,
     & .00002013, .00001935, .00001874, .00001851,-.00001451,-.00001408,
     &-.00001379,-.00001343,-.00001288, .00001171, .00001105,-.00001079,
     &-.00001031, .00000967,-.00000859, .00000849, .00000801,-.00000795,
     &-.00000760, .00000692, .00000692,-.00000668,-.00000655, .00000652,
     & .00000652, .00000626, .00000609, .00000606, .00000605, .00000559,
     &-.00000558, .00000554, .00000533, .00000485, .00000457,-.00000455,
     & .00000418, .00000391, .00000391, .00000390,-.00000388,-.00000386,
     & .00000379,-.00000375,-.00000356,-.00000342, .00000338,-.00000336,
     & .00000335,-.00000308,-.00000283, .00000279,  -.002064,   .000845,
     &  -.000619,  -.000555,  -.000519,   .000471,   .000451,   .000394,
     &   .000372,   .000362,   .000355,   .000338,  -.000313,  -.000312,
     &  -.000152,  -.000123,   .000095,   .000092,   .000088,   .000082,
     &  -.000079,   .000057,  -.000056,  -.000056,   .000056,   .000055,
     &  -.000054,  -.000046,   .000045,  -.000044,  -.000041,  -.000038,
     &  -.000035,  -.000034,  -.000029,  -.000024,   .000022,   .000021,
     &   .000019,  -.000018,   .000018,   .000018,   .000017,   .000017,
     &   .000016,   .000016,   .000016,  -.000015,   .000015,   .000015,
     &   .000013,   .000012,   .000011,  -.000011,  -.000011,  -.000011,
     &  -.000011,   .000010,   .000010,  -.000010,  -.000009,   .000009,
     &  -.000009,   .000009,   -.00061,    .00025,   -.00017,   -.00017,
     &   -.00014,    .00014,    .00014,    .00011,    .00011,    .00011,
     &    .00011,   -.00006
     &/
      DATA (PER(I,3),I=1,201) /
     &    1.0587,    0.7278,   -0.6826,    0.5983,   -0.4565,    0.4528,
     &   -0.4101,    0.2050,    0.2047,   -0.2037,    0.1664,   -0.1578,
     &    0.1578,    0.1575,    0.1445,   -0.1381,    0.1348,   -0.1267,
     &    0.1267,   -0.1236,   -0.1205,    0.1200,    0.1162,   -0.1126,
     &    0.1125,   -0.1123,    0.1122,   -0.1069,   -0.1050,   -0.1050,
     &   -0.1006,    0.0993,    0.0955,   -0.0851,    0.0795,   -0.0773,
     &    0.0705,   -0.0631,    0.0631,    0.0621,   -0.0609,   -0.0608,
     &   -0.0601,   -0.0590,    0.0586,    0.0577,    0.0572,   -0.0570,
     &   -0.0551,   -0.0534,    0.0525,    0.0516,   -0.0504,   -0.0492,
     &    0.0492,    0.0488,    0.0461,    0.0456,    0.0440,   -0.0437,
     &    0.0435,    0.0432,   -0.0428,   -0.0428,   -0.0427,    0.0411,
     &    0.0397,    0.0397,   -0.0388,    0.0386,    0.0376,   -0.0374,
     &    0.0374,    0.0373,   -0.0372,    0.0372,   -0.0358,    0.0357,
     &   -0.0354,    0.0349,    0.0349,   -0.0345,    0.0343,    0.0335,
     &    0.0328,   -0.0313,   -0.0312,   -0.0312,    0.0310,   -0.0305,
     &   -0.0301,    0.0298,   -0.0287,    0.0286,    0.0285,   -0.0284,
     &   -0.0283,    0.0281,   -0.0278,   -0.0276,    0.0275,    0.0270,
     &    0.0267,   -0.0261,    0.0259,   -0.0249,    0.0247,   -0.0246,
     &    0.0234,   -0.0221,    0.0220,    0.0214,   -0.0211,   -0.0201,
     &    051.40,    038.25,    032.65,   -026.40,   -012.30,   -007.75,
     &   -006.07,    004.97,    004.19,    003.22,   -002.53,    002.49,
     &    001.76,   -001.45,   -001.36,   -001.30,    001.23,   -001.19,
     &    001.07,    000.99,   -000.66,   -000.63,   -000.59,   -000.54,
     &    000.48,    000.39,    000.36,   -000.36,    000.33,    000.31,
     &   -000.25,   -000.24,    000.24,    000.23,   -000.23,   -000.21,
     &    000.21,   -000.18,    000.18,   -000.17,   -000.17,   -000.15,
     &    000.14,    000.13,   -000.13,   -000.13,    000.13,   -000.13,
     &   -000.13,   -000.12,    000.12,   -000.11,    000.11,    000.11,
     &   -000.09,   -000.08,   -000.08,   -000.08,   -000.07,    000.07,
     &   -000.07,    000.07,    000.07,    000.06,   -000.06,    000.06,
     &   -000.06,   -000.06,      14.9,      11.1,       9.5,      -7.7,
     &      -3.6,      -2.3,      -1.8,       1.4,       1.2,       0.9,
     &      -0.7,       0.7,       0.5,      -0.4,      -0.4,       0.3,
     &      -0.3,       0.3,      -0.2
     &/
      DATA (APER(I,1,1),I=1,423) /
     &119.7524,125.0455,233.0867,107.4411, 81.5232,344.7896,254.7188,
     &345.2585, 67.3439,276.7408,260.0092,350.0824,208.6855,311.5895,
     &152.5142, 67.7377,163.2312,220.1798, 73.6904, 98.0899,205.5247,
     &327.1213,209.8312,132.6660,357.2510, 55.0668,331.4784,241.4051,
     & 19.0127,192.2174,244.0516,332.7695,166.0821,355.4532, 62.6015,
     &220.4891,306.5588,292.3874,209.3049,  7.8292,263.7613,287.6929,
     &340.7607,216.4919,109.6971,202.1901,260.8658,317.9851,217.3033,
     &205.7945,  0.7459,333.0947,159.3389,343.8472,232.4432, 32.3540,
     &321.0478,257.4887, 28.1371, 66.8002, 16.1068,210.3553,  8.0621,
     &299.7687, 29.8392,  4.6743,249.3451,352.2098,225.7820,198.0425,
     &179.1666,287.9400,355.1425,233.3895, 85.2157, 46.7210, 16.2933,
     &241.0476,100.8137,108.1981,293.4239, 28.4618,286.0924,209.8262,
     &131.2257,268.5523,108.3144,167.4312,298.1469,176.6259, 29.6822,
     & 24.3078, 75.8891,289.7534,313.9430,326.1242,332.9457,237.0206,
     &264.7626,243.6398,242.2020,308.1364, 98.2408, 74.6193,194.3722,
     &102.9860,184.9200,280.2841, 50.8219, 68.2574,107.0457,338.1832,
     &308.4809, 86.5529,197.8017,148.3767,178.9306,250.0891, 38.7138,
     &172.2981,247.7974,102.0911, 74.3154, 34.9726,267.6026,322.4130,
     &153.7856, 47.5953,215.1190,345.1009,152.6384,136.7609,329.7828,
     &343.6647,302.2493, 51.4327,141.5781,120.1832,237.7231,112.1146,
     &190.1237,108.2246,256.3206,306.2968,293.2084,127.5416,108.3337,
     & 54.8679,269.2193,305.4979,331.4909, 82.6978,229.6991,302.0190,
     &192.1289,131.2943,176.4029,319.7186,129.1018,317.2284, 28.2471,
     &292.7999,229.8628,187.4625,265.0368,162.7825,109.0887,130.4185,
     &288.7530,130.2916,201.5485,232.3856, 74.2115,  7.4393, 40.4796,
     &176.6101,292.2040, 22.0617,358.0099,156.5359, 15.8504,344.4315,
     &107.1891,240.1422, 15.2599, 76.7419,235.8003,210.5793,150.6765,
     & 11.6614,157.2343,298.5012,146.4690, 65.9504,264.2128, 57.4162,
     &317.7457,140.3136,222.2885,187.6050, 93.8066,265.8063,246.7109,
     & 10.4835,277.6611, 76.2913,104.8851,311.2549,184.0244,214.5674,
     &182.1301,311.3820,263.3480,284.2064,135.7094,333.8327, 19.3837,
     &310.3369,239.8963,148.1926,116.5731,156.8717, 16.3707,196.5165,
     &241.5814,177.8587,228.7494,115.0271,110.7851,152.8097,345.2793,
     & 52.2577,285.8675, 44.2281,289.2042,314.1579, 84.8200,292.0729,
     &151.9110,105.9171,108.7936, 61.0203,171.5956,346.5619, 357.529,
     & 103.208, 238.171, 222.566, 132.493,  27.775,  98.266, 233.230,
     & 295.379, 240.642, 355.058, 105.679,  13.135,  87.602, 328.244,
     & 267.456,   4.098, 252.800, 162.969, 220.095,  95.795, 338.908,
     & 235.700, 183.729, 100.737,   8.193, 203.945, 323.303, 130.022,
     &  51.627, 113.872,  15.606,  46.685,  80.028,  63.057,  70.343,
     & 125.045, 287.032, 148.098, 254.014, 152.061, 263.490, 128.524,
     & 160.416, 243.113, 319.858, 257.953, 167.245,  47.818, 317.745,
     & 108.150, 312.639, 284.319,  82.844, 333.967, 162.159, 122.967,
     & 341.379, 134.963, 330.715, 247.088, 213.092, 300.321,  42.419,
     &  32.981, 123.055,  10.664, 320.832, 160.404, 193.281,   7.248,
     &  74.973,  59.126, 289.752, 307.724, 184.073,  85.131,  64.715,
     & 117.837, 230.759, 186.591, 199.003, 297.932,  25.452, 206.416,
     & 228.080, 301.381,  36.021, 116.343, 352.587, 108.930, 143.156,
     & 248.835, 231.465,  36.116, 319.037, 138.579,   8.600, 306.673,
     & 287.969,  41.058, 321.163,  44.565,  17.745,   9.166,  99.182,
     & 184.894,  94.821,  64.700, 146.402, 171.225,  22.598, 332.651,
     & 214.319, 201.231,  45.575, 217.293, 166.528,  32.740, 325.703,
     & 188.339, 326.794,  12.627, 253.402, 336.437, 336.935, 217.624,
     & 171.080,  22.925,  93.089, 261.243, 335.121, 269.927,  17.111,
     &  38.439, 303.404, 268.330, 240.825, 165.358, 280.672, 180.064,
     & 264.985, 316.645,  54.098, 150.569, 195.620, 354.297,  82.788,
     & 210.356, 325.774,  43.697, 276.828, 298.459,  75.285,   357.5,
     &   103.2,   238.2,   222.6,   132.5,    98.3,   233.2,   295.4,
     &   240.6,    13.1,   105.7,   355.1,    87.6,   328.2,   267.5,
     &    95.8,   220.1,   338.9,   235.7,   203.9,   323.3,    51.6,
     &     8.2,   100.7,   130.0
     &/
      DATA (APER(I,2,1),I=1,423) /
     &     13184.89,   -193413.62,  47926428.98,     -2018.62,
     &   2251844.28, -47706701.88,  47733071.65,  48089068.39,
     &   3296446.72,     -1882.94,  47526473.14, -47913300.38,
     &  47622938.41,  96446989.89,    903751.28,   -228122.58,
     &   4503688.56,   -193553.32,    -96948.35,    206542.21,
     &     15067.83, -38037088.82,   3371814.70,   6592893.44,
     & -41126993.33,   3155595.56, -47721905.38,  47717868.14,
     & -41320350.65, -85756975.59, -89040237.42,   2992956.15,
     &     -4075.76,  89066607.19, -36829846.98,  41346720.43,
     & -45468042.48, -44423440.05,  41331516.92, -41335554.16,
     &  45837224.10, -84549733.74, -39081691.26,  49971731.05,
     & -40964353.92,  51016333.48,    103412.82,     28252.72,
     &    -37580.05, -86801578.02,  88860008.68, -41430483.89,
     &   -456245.16,  89051403.68, -89055440.92, -34740642.10,
     &    303490.57, -82460528.87,   -444341.72,  50340912.67,
     &  47644726.66,    369181.62,  95646315.74,  47715811.00,
     & -47723962.53,  47823157.87, -89246835.92,  47682306.71,
     &  41140121.92,  47491764.18,     34569.27, -47948009.34,
     &  47526333.45, -40429784.26, -47913440.08,  96446850.19,
     & -46816135.48,    -75160.10,  41333535.54, -37961720.84,
     & -41030044.97, -43216198.20,  48623638.04, -95426588.64,
     &  41637026.11,     72302.92,   6289402.87,  44629982.26,
     &  52223575.33,  48727103.12,  95452958.41, -41526949.16,
     &   7393567.58,   3143692.12, -38177939.98,   9007377.13,
     & -85681607.60, -38340579.39,  -1348093.00,   6755532.85,
     &  47849042.37,    -90140.50, -88149671.02, -44348072.06,
     & -47416396.20,  48023377.33,   1457784.77, -44564291.20,
     &   3477725.91, -47704818.93, -41318467.71,  47734954.59,
     &  41348603.37, 144166876.65, -44726930.61,  52592756.95,
     & -85897826.74,   -386827.24,  93557110.87,  41105412.96,
     &     88344.99, -86060466.15,  42237286.82,  95246359.91,
     &  54312780.20,  47620919.79, -88749931.74,  11259221.41,
     & -95633187.14,  51091701.47,     11903.44,   -431156.84,
     & -41561658.12,  95342825.17,  92349869.02,  47718003.82,
     & -47721769.71,  95808955.15,  46740975.38,    -91670.43,
     &  50875482.32,  50712842.91,  89356912.87,  96653588.39,
     & -96627218.62,     89049.29,   1807502.56,    109937.25,
     &   -355996.74,  88825299.72, -89038354.47,  89068490.13,
     &    103271.11,   2689465.58, -89281544.88,  40889193.82,
     &    459409.55,  48992819.67,  13511065.69,  91305266.59,
     &  89957173.58,  51222875.69,  54844601.23,    -98966.98,
     &   1229662.19,  48077164.95,-136760124.18, 136786493.95,
     & -41777877.26,    122211.38,  48288987.35, -82764019.43,
     &  44326491.69, -35044132.67,    265856.24,     -5537.05,
     &  47263641.60, -48176131.92,  41333574.06, -41333497.02,
     &   3599937.29,   3595861.52,    129155.61,   -684367.74,
     & -82157038.30,   6896384.00,  89053422.30,  15762909.98,
     & -34437151.54, -82297889.46,  47275545.04, -96833817.12,
     & -34578002.69,     50764.94,   5851781.57,-133476862.35,
     &   5057722.06, -41408695.64, -88846880.09, -38189843.42,
     &    -49483.49,  88609080.58, -48164228.49,   2915569.54,
     &  41329459.78, -41337611.30, -80949796.45,  44705350.24,
     &  47319447.84,  48229919.54,  43585379.82,  57096445.52,
     &  40877290.38,     65832.77, 136579895.45,  89259964.52,
     &  46778555.43, -37855809.63, -33229909.69,  47898525.86,
     & -41371115.59,   -800534.45,  95437754.91, -95441792.15,
     & -85440300.13,  85466669.90,  47670403.28,     25263.03,
     &  -3601955.91,-132269620.50,   1001539.61, -85909730.18,
     &   3355514.53, -47685317.50,   3597918.66,  47754456.03,
     & -39875750.77,  18014754.26, -89497764.03,   1685907.35,
     & 136979851.28, -41789780.70, -93187929.24,    -61975.21,
     &    3599905.0,   37733630.5,   85453517.3,  -44119981.7,
     &   51319791.8,      13184.9,   44933440.6,   92653327.3,
     &   48126616.2,   81853612.2,    7199810.1,   34133725.5,
     &  133173404.0,  -91839868.5,   -9986256.3,   99039678.6,
     &      -1882.9,  -47706701.9,   47733071.6,  -40520076.7,
     &   48533345.6,  126787052.8,   89053422.3,      -2018.6,
     &   41333535.5,  140373214.1,   79067166.1,   -2786446.2,
     &   54919696.8,  -11186886.2,  174506939.6,  129573499.0,
     &   -3987076.2,     903751.3,      15067.8,   95846502.9,
     &    -193413.6,  -41320350.7,  180893290.8,      -4075.8,
     &  -89040237.4,   89066607.2,   41346720.4,     406729.4,
     &   78253707.2,    -193553.3,   47622938.4,    -228122.6,
     &  -47721905.4,   47717868.1,   30533820.5, -139559755.3,
     &   41331516.9,  -41335554.2,  133986862.9,    3155595.6,
     &     -96948.4,  123187147.8,   47719886.8,  -13586161.3,
     &    -456245.2,      89049.3,   40926806.1,  146759565.3,
     &   47715811.0,  -47723962.5,  136773309.1,     813458.8,
     &      88345.0,  -57706143.0,     103412.8,    2992956.2,
     &   89051403.7,  134374034.0,  -89055440.9,  100240308.5,
     &  -88239963.5,  182093920.8,  -95426588.6,   96253232.4,
     &   36533000.5,   86266976.1,   95452958.4,  -47313157.3,
     &   75467261.0,  -47721769.7,      28252.7, -140760385.2,
     &  170907034.5,   10799715.1,  181706749.6,  188093100.9,
     &  222226826.3,     -90140.5,   89460151.7,  147960195.3,
     &   47718003.8,     303490.6,  -46816135.5,   47491764.2,
     &   82260341.7,     -37580.1,      -9917.7,  -47948009.3,
     &   47734954.6,  -47704818.9,  -47913440.1,   47526333.4,
     &   47620919.8,   96446850.2,    -355996.7,  -41430483.9,
     &  -40429784.3,   96653588.4,  -96627218.6,   47644726.7,
     &   48623638.0,   41348603.4,    -444341.7,  -41318467.7,
     &  -50506333.0,    -684367.7,      72302.9,     -75160.1,
     &  130386957.8,   47849042.4,  -36920171.7,  137180038.5,
     &  -44564291.2,   47682306.7,    3595861.5,  -38340579.4,
     &   95439773.5, -136760124.2,  136786494.0,  -85897826.7,
     &   41105413.0,  -41030045.0,   -6793080.6,     -98967.0,
     &   42237286.8,  102639583.6,     317171.9,  -14786791.3,
     &  177293385.8,   41329459.8,  -41337611.3,   41637026.1,
     &  -88149671.0,   -6386351.2,  -38177940.0,    1457784.8,
     &   89068490.1,   88646692.9,     3599910.,    37733630.,
     &    85453520.,   -44119980.,    51319790.,    44933440.,
     &    92653330.,    48126620.,    81853610.,   133173400.,
     &    34133730.,     7199810.,   -91839870.,    -9986260.,
     &    99039680.,    48533350.,   -40520080.,   126787050.,
     &    89053420.,    79067170.,    -2786450.,   -11186890.,
     &   140373210.,    41333540.,    54919700.
     &/
      DATA (APER(I,1,2),I=1,140) /
     &218.3174,314.9967,213.0248, 26.4804, 83.3540,353.2808, 31.7733,
     &342.6170,319.0544,343.3612,178.4856,117.5804, 88.4122,251.5173,
     &347.9895,  1.8346,139.8144,326.3604,250.1212, 77.7485, 94.0178,
     & 27.0252,256.8101,272.4669,133.7660,148.1767,251.9923,285.4666,
     &239.9516, 78.5308, 43.1678,183.3520,  9.9390,128.2441,108.5203,
     &250.5689,325.7099, 20.9585,274.6895,337.3239,262.1806,301.9728,
     &299.0703,305.4557,115.4239,308.3905,207.6536,232.0839, 54.1859,
     &208.9975,285.7420,340.1461,275.6916, 76.9830,313.7613,124.6414,
     & 62.5822,350.7216,150.7798,212.7119, 88.7251,161.5677,158.2395,
     &267.4739, 144.899, 139.957, 196.480, 331.443,   9.936, 129.294,
     &  90.801, 315.838, 225.765,  52.758,  39.220, 264.257, 294.447,
     & 121.106, 147.370, 279.863, 218.317, 191.538, 326.502, 142.428,
     & 106.407, 274.921,  28.651, 202.107, 354.330,   4.994, 333.914,
     & 234.972,   0.728, 198.951, 245.636,  12.407, 159.534, 256.123,
     &  20.600,  72.180, 174.184, 180.874, 137.487, 278.166,  96.899,
     & 270.354, 188.093, 101.465, 189.067, 105.132, 126.823, 297.217,
     &   2.523, 328.973, 313.367, 240.694,  62.211, 177.429, 207.144,
     & 245.347, 170.204, 194.009, 156.110, 282.334,  54.826, 303.156,
     & 241.370,  36.750,   144.9,   140.0,   331.4,   196.5,     9.9,
     &    90.8,   129.3,   225.8,    39.2,   264.3,   315.8,   147.4
     &/
      DATA (APER(I,2,2),I=1,140) /
     &  48126788.13,  48126648.44,  48333386.64, -48307016.87,
     &    406901.37,  95846674.90, -48513615.37, -40926634.17,
     &  89460323.67,  47933374.52,    406761.67,   6793252.59,
     &  95846535.20, -96026903.63,  96053273.40,  48392504.68,
     &   -393772.78,  96246630.73,  47519667.30, -40926773.87,
     & 137180210.44,  47488753.40, -96233502.13,  48354771.02,
     &  48586057.99,  48430139.00,   -231133.37, -37436773.83,
     &  49934150.99,  96409270.14,  50378492.72, -48322084.70,
     &  48318318.81, 143566561.66,  49740597.68,  40731201.93,
     & -40735239.17, -36229531.99,  47326113.99, -40720035.66,
     &  40746405.44,  95943140.16, -38481376.27,  45236909.11,
     &   -697263.34, -47312985.39, -88646520.93,  47882225.68,
     &  89460183.98,  44029667.27, -89640552.41, -37326729.14,
     &  48122572.67,  45430462.43,  89666922.18,  52630337.00,
     &  48248859.82, -34140327.11,-137360439.17,   6793112.90,
     & 137386808.94,  48141716.27,  47682306.71,  40539806.93,
     &   37133315.5,   44333125.6,   86053832.3,  133773719.0,
     &  -10586571.2,  -92440183.5,   51920106.8,    4200220.0,
     &   99639993.5,   48126648.4,    2999590.0,  -44720296.7,
     &  -48307016.9,   48333386.6,   33533410.5,   84853202.3,
     &   48126788.1,   93253642.3,  140973529.1,   40733220.6,
     &  181493605.8,   92053012.3,   96446817.9,    -193585.6,
     & -140160070.2,   -3386761.2,  130173814.0,  -58306458.0,
     &  147359880.3,   82453927.2,   78466851.1,  -14186476.3,
     &  -96026903.6,   96053273.4,  126186737.8,  175107254.6,
     &   50719476.8,  -43519666.7,   47933030.6,     406761.7,
     &   48318318.8,  -48322084.7,   95846535.2,  188693415.8,
     &   96853547.4,   48392504.7,  -88840278.5,  127387367.8,
     &     213143.8,  137373624.1,    7800125.0,   85666661.1,
     &  -48570990.2,  -40926773.9,  222827141.3,  -40720035.7,
     &   40746405.4,   89653737.3,   49934151.0,   81253297.3,
     &  132573089.0,   47519667.3,  229213492.6,    6599495.1,
     &    37133320.,    44333130.,   133773720.,    86053830.,
     &   -10586570.,    51920110.,   -92440180.,    99639990.,
     &     2999590.,   -44720300.,     4200220.,    33533410.
     &/
      DATA (APER(I,1,3),I=1,201) /
     &233.0866,344.7895,254.7190,345.2589,260.0092,350.0824,208.6847,
     &192.2132,244.0516,355.4532,287.6902,241.4058,331.4791,327.1237,
     &357.2452,306.5599, 19.0126,220.4892,292.3791,205.7982,263.7606,
     &216.4928, 62.6005,209.3053,  7.8297,343.8467,232.4426,  0.7459,
     &202.1456,257.4688,340.7609,109.6820,249.3451,176.6260, 66.7826,
     &333.0802, 16.1051,299.8407, 29.9119,  4.6741, 98.1213, 32.3536,
     &352.2127,198.0307,287.9045,355.1425,332.9419, 85.2157, 16.3088,
     &225.7820, 98.2942,286.0818,100.8011,298.1330, 28.4550,233.4132,
     &293.4551,178.9132,108.2005,167.4024,  8.0560,102.0889,131.1841,
     & 67.3412, 38.6974,153.9518,242.2038,209.8262,302.2798, 24.3078,
     &148.3721,102.8999, 81.5574, 74.6382, 29.6822,194.3603, 68.2525,
     &338.1715,256.2067,313.9481,280.3017,210.3094,237.0396,197.8798,
     &267.5876,107.1223,305.5552,345.1736,308.5586,322.4131,331.4188,
     & 82.6856, 51.4328,192.1168,141.5781,172.3154, 74.3152,125.0446,
     &190.1819,108.1767,317.2230, 28.2595,237.7031,163.2605,329.7457,
     & 34.9726,215.1190,343.9612, 73.7487,232.3556,229.8589,292.9869,
     &319.7423, 15.3412, 238.171, 103.208, 222.566, 132.493, 357.529,
     & 233.230,  98.266, 240.642, 295.379,  13.135, 328.244, 105.679,
     &  87.602, 267.456, 237.517, 252.800, 162.968,  95.795, 220.095,
     & 338.908,   8.193, 100.737, 130.022, 355.058, 203.945, 113.872,
     & 263.476, 152.075,  15.606, 243.113, 134.963, 287.062,  70.343,
     & 128.524, 257.953, 160.416, 148.098, 317.715,  47.788, 330.715,
     &  51.627, 333.967, 341.379, 307.724,  59.126, 284.325,  82.849,
     & 300.321, 193.281,  32.361, 122.434,  10.664, 108.150, 312.639,
     &  42.419,  25.452,  49.110, 276.664, 230.759, 228.081, 117.737,
     &  85.131, 297.821, 116.343,  41.058, 305.948, 108.930, 199.003,
     &   238.2,   103.2,   222.6,   132.5,   357.5,   233.2,    98.3,
     &   240.6,   295.4,    13.1,   328.2,   105.7,    87.6,   235.7,
     &   267.5,   338.9,    95.8,   220.1,     8.2
     &/
      DATA (APER(I,2,3),I=1,201) /
     &  47926428.98, -47706701.88,  47733071.65,  48089068.39,
     &  47526473.14, -47913300.38,  47622938.41, -85756975.59,
     & -89040237.42,  89066607.19, -84549733.74,  47717868.14,
     & -47721905.38, -38037088.82, -41126993.33, -45468042.48,
     & -41320350.65,  41346720.43, -44423440.05, -86801578.02,
     &  45837224.10,  49971731.05, -36829846.98,  41331516.92,
     & -41335554.16,  89051403.68, -89055440.92,  88860008.68,
     &  51016333.48, -82460528.87, -39081691.26, -40964353.92,
     & -89246835.92,  48727103.12,  50340912.67, -41430483.89,
     &  47644726.66,  47715811.00, -47723962.53,  47823157.87,
     &    206542.21, -34740642.10,  47682306.71,  47491764.18,
     & -47948009.34,  47526333.45, -85681607.60, -47913440.08,
     & -46816135.48,  41140121.92, -88149671.02,  48623638.04,
     &  41333535.54,  52223575.33, -43216198.20, -40429784.26,
     & -41030044.97, -85897826.74, -37961720.84,  44629982.26,
     &  95646315.74, -86060466.15,  41637026.11,   3296446.72,
     &  93557110.87, -88749931.74,  47849042.37, -95426588.64,
     &  92349869.02, -41526949.16,  52592756.95,  48023377.33,
     &   2251844.28, -44348072.06,  95452958.41, -47416396.20,
     & -47704818.93,  47734954.59,  89356912.87, -38177939.98,
     & -44564291.20,    369181.62, -38340579.39, -44726930.61,
     &  54312780.20, -41318467.71,  88825299.72,  51091701.47,
     &  41348603.37,  47620919.79, -89038354.47,  89068490.13,
     &  47718003.82, -89281544.88, -47721769.71,  41105412.96,
     &  42237286.82,   -193413.62,  50875482.32,  50712842.91,
     &  91305266.59,  89957173.58,  46740975.38,   4503688.56,
     & -41561658.12,  95246359.91, -95633187.14,  95342825.17,
     &    -96948.35, -82764019.43,  54844601.23,  51222875.69,
     &  48992819.67, -82157038.30,   85453517.3,   37733630.5,
     &  -44119981.7,   51319791.8,    3599905.0,   92653327.3,
     &   44933440.6,   81853612.2,   48126616.2,  133173404.0,
     &   -9986256.3,   34133725.5,  -91839868.5,   99039678.6,
     &   89053422.3,  -47706701.9,   47733071.6,   48533345.6,
     &  -40520076.7,  126787052.8,  140373214.1,   41333535.5,
     &   54919696.8,    7199810.1,   79067166.1,  174506939.6,
     &   89066607.2,  -89040237.4,  129573499.0,   78253707.2,
     &   47719886.8,  -41320350.7,   95846502.9,   41346720.4,
     &   47622938.4,     406729.4,  180893290.8,   47717868.1,
     &  -47721905.4,  -13586161.3,  -11186886.2,  133986862.9,
     &  123187147.8,  -89055440.9,   89051403.7,   41331516.9,
     &  -41335554.2,   40926806.1,  -57706143.0,   47715811.0,
     &  -47723962.5,  136773309.1,   30533820.5, -139559755.3,
     &  146759565.3,  -47313157.3,   52520421.8,  -58906773.0,
     &   96253232.4,  -47721769.7,  -95426588.6,  -88239963.5,
     &   95452958.4,  170907034.5,   82260341.7,  -45320611.7,
     &  181706749.6,   86266976.1,    85453520.,    37733630.,
     &   -44119980.,    51319790.,     3599910.,    92653330.,
     &    44933440.,    81853610.,    48126620.,   133173400.,
     &    -9986260.,    34133730.,   -91839870.,    89053420.,
     &    99039680.,   126787050.,    48533350.,   -40520080.,
     &   140373210.
     &/
C
C
C     TIME ARGUMENT OF SERIES USED HERE IS DECAMILLENIA
      D = T*0.1D0

      DO 1 K=1,3
         PV(K)=0.D0
         PV(K+3)=0.D0
         DO 2 I=1,IC(K)
            PHI=APBC(I,5,K)
            DO 3 J=4,1,-1
               PHI=PHI*D+APBC(I,J,K)
 3          CONTINUE
            PHI=(PHI+C2S(K))*D2R
            PV(K)=PV(K)+PBC(I,K)*SIN(PHI)
            DPHI=4.D0*APBC(I,5,K)
            DO 4 J=4,2,-1
               DPHI=DPHI*D+DBLE(J-1)*APBC(I,J,K)
 4          CONTINUE
            PV(K+3)=PV(K+3)+PBC(I,K)*DPHI*COS(PHI)
 2       CONTINUE
C
         CT=0.D0
         DCT=0.D0
         DO 5 IT=3,1,-1
            CC=0.D0
            DCC=0.D0
            DO 6 I=IP(IT+1,K),IP(IT,K)+1,-1
               PHI=(C2S(K)+APER(I,1,K)+APER(I,2,K)*D)*D2R
               CC=CC+PER(I,K)*SIN(PHI)
               DCC=DCC+PER(I,K)*APER(I,2,K)*COS(PHI)
 6          CONTINUE
            CT=CT*D+CC
            DCT=DCT*D+DCC
 5       CONTINUE
         PV(K)=PV(K)+CT
         PV(K+3)=PV(K+3)+DCT
 1    CONTINUE
C
      PHI=AL(5)
      DO 7 J=4,1,-1
         PHI=PHI*D+AL(J)
 7    CONTINUE
      PV(1)=PV(1)+PHI
      PV(1)=MOD(PV(1),360.D0)
      IF (PV(1).LT.0) PV(1)=PV(1)+360.D0
      PV(1)=PV(1)*D2R
      PV(2)=PV(2)*D2R
      PV(3)=PV(3)+385000.57D0
C
      PHI=4.D0*AL(5)
      DO 8 J=4,2,-1
         PHI=PHI*D+DBLE(J-1)*AL(J)
 8    CONTINUE
      PV(4)=(PV(4)*D2R+PHI)*(D2R/DM2D)
      PV(5)=PV(5)*D2R*(D2R/DM2D)
      PV(6)=PV(6)*(D2R/DM2D)
C
      RETURN
      END
