|
|
C
|
|
|
C COEFFICIENTS GENERATED USING THE IGRF 1995 MODEL
|
|
|
C
|
|
|
C
|
|
|
C .. Local Scalars ..
|
|
|
BLOCK DATA CGM_SPH_HARM_COEFFICIENTS
|
|
|
C
|
|
|
C COEFFICIENTS GENERATED USING THE IGRF 1995 MODEL
|
|
|
C
|
|
|
C
|
|
|
C .. Local Scalars ..
|
|
|
INTEGER J
|
|
|
C ..
|
|
|
C .. Common blocks ..
|
|
|
COMMON /SPH_HARM_MODEL/D_COEF
|
|
|
DOUBLE PRECISION D_COEF(121,3,5,2)
|
|
|
C ..
|
|
|
C .. Data statements ..
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
C
|
|
|
DATA (D_COEF(J,1,1,1),J=1,62)/2.4697470D-02,-9.1721027D-01,
|
|
|
* -1.8735541D-01,-3.2032601D-01,-1.3855012D-03,8.7405766D-03,
|
|
|
* 5.0728576D-02,-9.8612765D-03,8.0569331D-04,1.5041753D-05,
|
|
|
* 1.4572150D-05,1.0412107D-02,-1.2812606D-02,-3.0949070D-03,
|
|
|
* 2.5055882D-03,-2.6265074D-05,1.0246360D-05,1.4150587D-04,
|
|
|
* -4.1650556D-04,1.9145050D-03,-7.6461539D-03,7.5228458D-04,
|
|
|
* -4.7660200D-05,-2.2628766D-04,1.4040677D-05,6.8686655D-07,
|
|
|
* -1.0507068D-05,2.1714195D-05,2.9275316D-04,1.8688733D-04,
|
|
|
* 4.9367070D-03,1.6302285D-03,5.7504070D-05,2.9784898D-05,
|
|
|
* 1.2250216D-06,-1.4950361D-06,-1.2834841D-08,-3.6318506D-08,
|
|
|
* 2.6171359D-06,4.4787542D-06,-8.5189964D-05,4.2389063D-04,
|
|
|
* -5.9093930D-05,2.1634600D-04,-1.2025884D-04,-4.0944545D-07,
|
|
|
* -2.6333100D-07,-1.1791924D-07,2.2955674D-08,1.7428396D-09,
|
|
|
* -9.4369167D-10,-1.4206548D-07,6.3818701D-07,7.0785001D-06,
|
|
|
* -5.8197955D-05,-5.3070246D-05,1.0231170D-03,-3.3312639D-04,
|
|
|
* -7.2434029D-06,6.0363145D-06,6.3217213D-07,-2.8207800D-08/
|
|
|
DATA (D_COEF(J,1,1,1),J=63,121)/-1.3781277D-08,-2.5495783D-09,
|
|
|
* 8.6032606D-11,-8.3629165D-10,3.5175067D-09,-2.0247830D-08,
|
|
|
* -9.2330330D-08,3.1314668D-06,7.1012246D-06,-1.1209591D-04,
|
|
|
* -1.2615985D-03,-1.7949217D-04,1.1611905D-05,1.3948015D-06,
|
|
|
* 4.9101907D-08,-3.0532408D-08,-2.8130026D-09,-2.1355330D-10,
|
|
|
* -1.9950695D-11,-2.8832380D-12,-5.8769929D-12,-2.6064409D-11,
|
|
|
* 1.4975247D-09,1.0802465D-08,-1.5655518D-07,-1.2018131D-06,
|
|
|
* 1.3624527D-05,8.2859390D-05,-1.5525216D-04,1.8967656D-05,
|
|
|
* 1.4698926D-05,3.2372973D-07,-1.0434281D-07,-4.1762949D-09,
|
|
|
* -3.7775255D-10,9.2350732D-11,-3.7997686D-12,-8.4889706D-13,
|
|
|
* 9.8426626D-14,-2.4455115D-13,-6.9211323D-12,-8.4352064D-12,
|
|
|
* -6.2580492D-12,6.8126920D-09,3.1491895D-08,-7.1743162D-07,
|
|
|
* -6.3341238D-06,4.8585084D-05,-4.6053176D-04,1.5293615D-04,
|
|
|
* 2.1913132D-06,-6.8202989D-07,-3.9302017D-08,1.0043068D-09,
|
|
|
* 3.8891284D-10,6.0577677D-11,1.9841249D-12,-1.3826517D-12,
|
|
|
* -1.0450991D-13/
|
|
|
DATA (D_COEF(J,2,1,1),J=1,62)/1.3152184D-02,3.0976646D-01,
|
|
|
* 2.4142485D-03,-9.4995482D-01,3.5512222D-03,-7.2828138D-03,
|
|
|
* 2.9398607D-02,-4.0194020D-02,-2.7475890D-03,-5.1541161D-04,
|
|
|
* 1.8767510D-03,-1.1963398D-03,-4.2625216D-02,-7.9286441D-04,
|
|
|
* 4.3944340D-03,5.0629833D-04,-8.8132282D-06,-2.4143241D-04,
|
|
|
* -6.4265221D-04,-1.6029713D-04,9.8916341D-03,3.9065623D-03,
|
|
|
* -1.3496587D-03,1.3282952D-04,-4.1807707D-05,2.3489510D-06,
|
|
|
* -7.7410545D-06,2.9585107D-06,-1.4096687D-04,3.0125265D-05,
|
|
|
* 6.3146157D-03,-6.6500378D-04,-1.1156307D-04,3.5690849D-05,
|
|
|
* -1.5620928D-05,7.7121582D-07,-1.8599970D-07,8.4299504D-07,
|
|
|
* -1.9504042D-07,7.6901300D-07,-8.4485718D-05,1.3579027D-04,
|
|
|
* 2.5844085D-03,1.1286340D-03,-1.4738398D-04,-5.7520882D-06,
|
|
|
* 6.5227166D-06,1.2021844D-06,4.9108672D-08,2.5351471D-09,
|
|
|
* -1.1234306D-08,-1.5393287D-07,2.2653216D-07,2.8963273D-06,
|
|
|
* -1.6338882D-05,-1.3261576D-04,2.0187017D-03,-7.4064747D-05,
|
|
|
* -9.0659558D-05,2.2055829D-06,1.1981298D-06,-6.9172507D-08/
|
|
|
DATA (D_COEF(J,2,1,1),J=63,121)/-7.4360024D-09,-2.5207900D-09,
|
|
|
* 5.3174731D-11,6.5119720D-10,1.0054142D-08,-2.1603173D-08,
|
|
|
* -1.6920632D-07,1.0387403D-06,5.7944839D-06,-4.3049281D-05,
|
|
|
* -3.9834076D-04,-5.4419248D-04,1.0294023D-05,7.8506486D-06,
|
|
|
* 1.5113286D-07,-8.2423926D-08,-6.0088418D-09,-2.4846066D-10,
|
|
|
* 2.2840317D-10,-3.1149789D-12,-2.7208638D-11,-1.6773071D-11,
|
|
|
* 1.8875512D-09,8.2252811D-09,-7.1419040D-08,-1.5461961D-06,
|
|
|
* 3.4456479D-06,8.5410186D-05,-2.6932180D-03,2.0533388D-05,
|
|
|
* 4.4375048D-05,4.6136838D-07,-3.3263452D-07,-1.2341186D-08,
|
|
|
* 1.7566468D-09,3.3957484D-10,1.6662129D-11,-5.8497675D-12,
|
|
|
* 2.1279909D-13,4.5181548D-13,-9.8772134D-12,-9.4731532D-11,
|
|
|
* 4.6824607D-11,7.8992256D-09,6.5540172D-08,-2.8505137D-07,
|
|
|
* -1.0612379D-05,2.4648752D-05,-3.8532127D-04,4.0382145D-04,
|
|
|
* 7.4952494D-06,-2.8035983D-06,-9.2111973D-08,8.5369790D-09,
|
|
|
* 1.0359840D-09,2.7548739D-11,-1.0397692D-11,-1.7360982D-12,
|
|
|
* -5.6357448D-16/
|
|
|
DATA (D_COEF(J,3,1,1),J=1,62)/-2.7950590D-02,-1.6171151D-01,
|
|
|
* 9.8660916D-01,1.3334361D-02,4.9127641D-04,2.1772902D-02,
|
|
|
* 4.9838213D-02,1.5654076D-02,-2.3927083D-02,9.8438120D-04,
|
|
|
* -1.9182340D-03,-2.3134013D-03,-7.1326685D-03,-1.7815213D-02,
|
|
|
* -2.9141943D-03,2.5273155D-03,-2.0801161D-04,1.6199919D-04,
|
|
|
* -2.0372021D-05,-1.4247915D-03,1.9238413D-03,-1.9329668D-03,
|
|
|
* -7.9717788D-04,2.5322148D-05,-5.8751483D-07,-1.8146341D-06,
|
|
|
* -1.5780777D-05,2.0485667D-05,5.4799668D-04,5.6749467D-04,
|
|
|
* -9.0673830D-03,-2.5170243D-03,4.3934280D-04,4.5413383D-05,
|
|
|
* -3.1618772D-06,-7.8725466D-06,2.9270018D-07,3.4659382D-07,
|
|
|
* -6.0131046D-07,-4.7225024D-05,3.5706125D-05,4.4396993D-04,
|
|
|
* -1.4011679D-02,2.8924040D-03,4.6273192D-04,-5.3622878D-05,
|
|
|
* -9.2125377D-06,4.1073397D-07,8.3003656D-07,-1.7720646D-08,
|
|
|
* -5.7026889D-08,2.3189613D-07,3.0426471D-06,-4.4145938D-06,
|
|
|
* -1.1084286D-04,8.5747501D-05,3.7048208D-03,2.7529894D-03,
|
|
|
* -1.2786241D-04,-3.3490200D-05,2.1994121D-07,3.9377965D-07/
|
|
|
DATA (D_COEF(J,3,1,1),J=63,121)/3.4876441D-08,-2.2374953D-09,
|
|
|
* 1.8131587D-10,1.9119713D-10,-1.5174303D-08,-7.3653549D-08,
|
|
|
* 4.2083927D-07,7.2442799D-06,-3.1546908D-05,-2.8019454D-04,
|
|
|
* 8.8222684D-03,-4.6452266D-04,-2.1223133D-04,1.4438466D-06,
|
|
|
* 2.0117827D-06,1.1153745D-07,-1.2628818D-08,-3.8686346D-09,
|
|
|
* -2.5776726D-10,-1.4224097D-12,9.9118673D-11,4.0269055D-10,
|
|
|
* 3.9192288D-10,-4.0365410D-08,-3.5294730D-07,1.8351016D-06,
|
|
|
* 2.8992465D-05,8.5233911D-05,-2.8541756D-03,-1.3360986D-03,
|
|
|
* -1.2216865D-06,1.0657513D-05,3.4182477D-07,-5.0577032D-08,
|
|
|
* -7.4887823D-09,-2.7312885D-10,1.3001494D-10,2.7917403D-11,
|
|
|
* -1.3340139D-12,-5.7043651D-12,-1.4334869D-12,2.0114206D-10,
|
|
|
* 1.6558909D-09,5.5626954D-09,-6.0328725D-08,-1.5977065D-06,
|
|
|
* 5.1817749D-06,6.9025873D-05,-4.3004682D-03,-1.1461090D-04,
|
|
|
* 6.5260475D-05,1.6596712D-06,-3.4532768D-07,-2.8900011D-08,
|
|
|
* -1.3485265D-10,2.9418790D-10,3.0649750D-11,2.5085211D-13,
|
|
|
* -9.1904080D-13/
|
|
|
DATA (D_COEF(J,1,2,1),J=1,62)/-2.8838833D-02,-3.3897302D-02,
|
|
|
* 1.0875539D-02,9.4063339D-03,3.3481965D-03,-9.4307456D-03,
|
|
|
* -6.4371229D-02,5.7465704D-03,2.8465164D-03,-9.6116130D-05,
|
|
|
* 9.6174284D-05,-2.1951260D-02,2.0332930D-02,1.0005042D-02,
|
|
|
* -5.4745650D-03,1.7743584D-04,-4.8414594D-05,-2.4851639D-04,
|
|
|
* -8.7636177D-06,-1.0094999D-02,1.4900537D-02,-3.7868561D-04,
|
|
|
* 9.5676510D-04,8.1339191D-04,-2.8386829D-05,9.5305742D-07,
|
|
|
* 2.6104793D-05,-1.8974716D-05,-8.1947642D-04,-1.4156073D-03,
|
|
|
* -1.4296812D-02,-4.1972440D-03,-6.9218006D-04,-1.7743895D-04,
|
|
|
* -4.3235309D-06,7.8537554D-06,-2.4511395D-07,1.4669940D-06,
|
|
|
* -9.1861699D-06,1.0399914D-05,4.0698381D-05,-3.1336631D-03,
|
|
|
* -1.4769312D-03,-2.1919797D-03,5.2523017D-04,1.1581102D-05,
|
|
|
* 4.0016284D-06,5.0319806D-07,1.7241944D-07,-4.0781707D-09,
|
|
|
* -4.2997229D-08,3.0224337D-07,-2.7049753D-06,-1.1666679D-05,
|
|
|
* 3.4083849D-04,-3.3942474D-04,-1.0306217D-02,1.8903227D-04,
|
|
|
* -8.4878425D-05,-8.3594004D-06,-5.6853303D-07,5.5438536D-08/
|
|
|
DATA (D_COEF(J,1,2,1),J=63,121)/5.3014815D-08,-3.8734703D-09,
|
|
|
* -1.6202629D-11,1.0925576D-08,9.0373292D-09,-1.1491895D-07,
|
|
|
* -1.8598219D-06,-1.3998955D-05,3.9217620D-05,3.7152931D-04,
|
|
|
* 1.2047109D-03,9.9831676D-04,8.7217731D-05,7.9150204D-06,
|
|
|
* -5.7861624D-07,-6.6767799D-08,-1.2331997D-08,1.8649603D-09,
|
|
|
* 1.5826602D-09,-3.6744457D-11,-1.4470677D-10,-1.8575073D-11,
|
|
|
* 8.4093797D-09,8.1917810D-08,-5.2116781D-08,-4.4971809D-06,
|
|
|
* -1.2962147D-05,-7.5072204D-06,-4.3504543D-03,8.1720605D-04,
|
|
|
* -3.4461453D-05,-5.7017679D-06,-4.5724231D-07,-3.1446460D-08,
|
|
|
* 8.5732604D-09,1.7193842D-09,2.8032096D-10,-2.5206895D-11,
|
|
|
* 2.2649893D-12,5.5589242D-12,-2.4232645D-11,-1.1084271D-09,
|
|
|
* -4.4774681D-09,6.0170235D-08,6.6214747D-07,-1.5917985D-06,
|
|
|
* -5.8283285D-05,-1.8476334D-04,5.5964337D-03,2.4620896D-04,
|
|
|
* -6.1537520D-05,-8.3054968D-06,-2.7510942D-07,5.3906878D-08,
|
|
|
* 7.1672662D-09,-3.5653522D-10,-1.3470161D-10,2.5069644D-12,
|
|
|
* 1.1160267D-12/
|
|
|
DATA (D_COEF(J,2,2,1),J=1,62)/-2.2438610D-03,2.2439444D-02,
|
|
|
* 3.5743228D-04,-2.1022960D-02,-3.7084126D-03,1.2169311D-02,
|
|
|
* -6.3271963D-02,4.6771425D-02,1.2582424D-02,7.9357529D-04,
|
|
|
* -4.8302222D-03,2.2841126D-03,8.4947024D-02,1.0725687D-02,
|
|
|
* -9.1133361D-03,-2.4045649D-03,8.7514169D-05,8.3686993D-04,
|
|
|
* 6.6347651D-04,3.4829031D-03,-2.2840208D-02,-5.9517530D-03,
|
|
|
* 2.8990126D-03,-4.3833010D-04,1.4779370D-04,-1.4488773D-05,
|
|
|
* 3.7998378D-05,4.0277865D-05,3.9376798D-06,-1.9094867D-03,
|
|
|
* -1.1524322D-02,2.8588015D-03,1.5398659D-04,-1.0737764D-04,
|
|
|
* 6.2195793D-05,1.7860986D-06,9.9863129D-07,-4.9667457D-06,
|
|
|
* -4.7744506D-06,4.2185868D-05,4.0959434D-04,4.7576031D-04,
|
|
|
* -1.0147211D-02,-5.5864571D-03,4.7915490D-04,6.0817703D-05,
|
|
|
* -2.2801622D-05,-6.1649055D-06,-9.9319120D-07,-9.7468769D-09,
|
|
|
* 1.4582944D-07,1.0846406D-06,-1.5604203D-06,-2.0673048D-05,
|
|
|
* 1.5923884D-04,4.3116399D-04,-1.0280007D-02,-1.0734819D-03,
|
|
|
* 3.5059755D-04,1.3559651D-05,-2.9613785D-06,-2.9204350D-07/
|
|
|
DATA (D_COEF(J,2,2,1),J=63,121)/-3.4403764D-08,5.4347512D-08,
|
|
|
* -1.4089625D-09,-5.9057313D-09,-3.7064960D-08,5.7763468D-08,
|
|
|
* 8.8466744D-08,-4.4015581D-06,-3.4533931D-05,4.1179600D-04,
|
|
|
* -4.3390042D-03,1.6241803D-03,1.3895490D-04,-2.6186508D-05,
|
|
|
* -2.9228860D-06,1.7373376D-07,7.8591149D-08,7.5110223D-09,
|
|
|
* -3.0601814D-09,7.8421553D-11,1.4184195D-10,-1.4188908D-09,
|
|
|
* -7.2499939D-09,4.3227814D-09,1.9888769D-07,1.4773919D-08,
|
|
|
* 2.1345110D-05,-2.7957397D-04,4.2994126D-03,1.3033660D-03,
|
|
|
* 3.8028966D-05,-1.0122396D-05,-3.9329632D-07,1.2237870D-07,
|
|
|
* 6.4026713D-09,-2.5778750D-09,-4.7714349D-10,3.2527940D-11,
|
|
|
* -2.5094646D-12,8.8312692D-12,1.1482655D-10,3.2911408D-10,
|
|
|
* -5.6136917D-09,-4.8890297D-09,2.0071590D-07,-2.6576883D-07,
|
|
|
* -3.3527708D-05,2.0212519D-04,7.0847948D-03,7.7400138D-04,
|
|
|
* -1.1315507D-04,-6.3615186D-06,4.6895269D-07,7.3981868D-08,
|
|
|
* -5.1880059D-09,-8.2655285D-10,3.6773942D-11,2.1132066D-11,
|
|
|
* 3.1843450D-12/
|
|
|
DATA (D_COEF(J,3,2,1),J=1,62)/3.3078802D-02,-1.9880307D-02,
|
|
|
* -3.1749680D-02,-1.2624674D-01,-3.6197060D-03,-2.8138510D-02,
|
|
|
* -7.6097740D-02,1.9534896D-02,1.7735291D-02,-8.9762257D-04,
|
|
|
* 3.9773386D-03,1.0216803D-05,9.5720625D-02,4.1807330D-02,
|
|
|
* -4.0266677D-03,-6.3844813D-03,6.5100318D-04,7.6662613D-05,
|
|
|
* 1.4726357D-03,-1.0565365D-03,1.7008048D-02,-3.2966055D-02,
|
|
|
* 5.1780813D-04,1.2095319D-03,1.4137242D-04,-1.0788476D-05,
|
|
|
* -2.1929649D-05,-2.2919608D-04,6.3131356D-05,5.1090372D-03,
|
|
|
* -9.7550416D-02,-1.1590749D-02,4.0925205D-03,5.2072028D-04,
|
|
|
* -9.6455490D-05,6.6313932D-06,1.3094084D-06,7.0449338D-06,
|
|
|
* -2.8799686D-06,-1.7618123D-04,-7.0229473D-04,3.8251479D-03,
|
|
|
* -4.0420849D-02,2.2420455D-02,2.5560607D-03,-2.2835947D-04,
|
|
|
* -4.3082655D-05,-1.2490540D-06,-2.7208403D-06,-8.0899804D-08,
|
|
|
* -1.6774286D-07,2.4930722D-06,1.7493967D-05,-3.4219718D-06,
|
|
|
* -1.0126439D-03,-4.9963673D-03,8.7652320D-02,1.9113511D-02,
|
|
|
* -2.1950686D-03,-3.4401699D-04,9.8175937D-06,3.2739474D-06/
|
|
|
DATA (D_COEF(J,3,2,1),J=63,121)/3.6591617D-07,-4.5400418D-09,
|
|
|
* 8.9499745D-09,1.8336738D-09,-2.8358112D-07,-1.4479311D-06,
|
|
|
* 5.4681039D-06,1.5830759D-04,1.8114807D-04,-4.1365471D-03,
|
|
|
* 1.0863254D-01,-1.6784101D-02,-2.5916563D-03,1.0655824D-04,
|
|
|
* 2.4093202D-05,7.7327345D-07,-8.7772320D-08,-3.2194391D-08,
|
|
|
* -3.2627397D-09,-1.2198300D-10,5.3415698D-10,1.7472795D-08,
|
|
|
* 4.3651412D-08,-9.6261577D-07,-9.8470606D-06,1.6820559D-05,
|
|
|
* 7.9866383D-04,2.9074122D-03,-5.3015354D-02,-2.3230956D-02,
|
|
|
* 7.5720192D-04,2.0769579D-04,2.9858246D-06,-8.6803606D-07,
|
|
|
* -1.2310556D-07,-3.8842736D-09,1.5780319D-09,5.3453468D-11,
|
|
|
* 1.5418155D-11,-3.0050882D-11,-8.5918916D-10,1.7712389D-09,
|
|
|
* 7.3147541D-08,3.2570993D-07,-2.7827106D-06,-8.2339328D-05,
|
|
|
* 4.2429117D-05,3.9162378D-03,-1.3054799D-01,5.2817797D-03,
|
|
|
* 1.9637088D-03,5.3468473D-06,-1.0601641D-05,-6.2500747D-07,
|
|
|
* 2.8248446D-09,7.5375654D-09,6.4100442D-10,-4.2784740D-11,
|
|
|
* -1.5396192D-12/
|
|
|
DATA (D_COEF(J,1,3,1),J=1,62)/2.5556389D-02,5.6044527D-02,
|
|
|
* -2.4448043D-02,1.5509647D-03,-8.4195261D-03,9.8806005D-03,
|
|
|
* 9.3898125D-02,8.7780246D-03,-1.1870860D-02,6.8371747D-04,
|
|
|
* -7.3217220D-04,2.8053841D-02,-1.7364604D-02,-2.3612721D-02,
|
|
|
* 7.3097593D-03,-7.5813685D-04,1.6757828D-05,4.5167483D-04,
|
|
|
* 5.9975116D-04,2.0931273D-02,-3.2116670D-02,-4.6518452D-03,
|
|
|
* -2.3480269D-03,-1.5603363D-03,-1.1253733D-05,-2.9659177D-06,
|
|
|
* -5.0026247D-05,-2.3794866D-05,1.5232461D-03,3.0079657D-03,
|
|
|
* 2.5220758D-02,6.6426380D-03,2.4795994D-03,5.1787208D-04,
|
|
|
* 1.4866942D-05,-2.0263521D-05,9.7698801D-07,-4.9088035D-06,
|
|
|
* 1.9105837D-05,-5.4529118D-05,2.9002287D-04,8.1791626D-03,
|
|
|
* -3.5257412D-03,6.5971075D-03,-1.3657452D-03,-2.5090486D-05,
|
|
|
* -9.7977043D-06,-1.8567225D-06,-1.2139014D-06,1.0973303D-08,
|
|
|
* 2.2642259D-07,-1.1241185D-07,2.6895060D-06,-1.0468272D-05,
|
|
|
* -6.9452111D-04,1.7996463D-03,2.4809786D-02,1.9711764D-03,
|
|
|
* 5.5444596D-04,-5.6118203D-06,-4.1111266D-06,-2.6121372D-07/
|
|
|
DATA (D_COEF(J,1,3,1),J=63,121)/-7.3655578D-08,5.9601045D-08,
|
|
|
* -1.4597623D-09,-4.5406603D-08,-6.7017360D-08,1.0133382D-06,
|
|
|
* 8.1179198D-06,1.3173174D-05,-3.5867541D-04,5.7425269D-04,
|
|
|
* -3.2934992D-03,-1.0819288D-03,-3.3781474D-04,-6.6077419D-05,
|
|
|
* -1.1568680D-06,5.5343852D-07,1.3514156D-07,-3.8180637D-09,
|
|
|
* -8.7515558D-09,3.0233828D-10,7.2272669D-10,-1.7831386D-09,
|
|
|
* -6.2115141D-08,-4.1724348D-07,3.1522323D-06,2.9364490D-05,
|
|
|
* -2.0561888D-04,-1.4787487D-03,2.8862085D-02,-3.3498042D-03,
|
|
|
* -1.3179403D-04,1.6103210D-05,3.3732592D-06,2.8906938D-07,
|
|
|
* -2.7266401D-08,-1.0267750D-08,-1.6103834D-09,1.8826459D-10,
|
|
|
* -1.7740612D-11,-1.9207829D-11,3.1202353D-10,5.5145095D-09,
|
|
|
* 1.0684151D-08,-4.0231637D-07,-2.5666987D-06,2.9610871D-05,
|
|
|
* 3.0874649D-04,2.6859966D-05,-2.4009857D-02,-4.1079799D-03,
|
|
|
* 1.1776921D-04,5.0528967D-05,3.0209475D-06,-1.9816694D-07,
|
|
|
* -4.3620486D-08,3.0248878D-10,6.1686499D-10,1.8600639D-11,
|
|
|
* -2.5041935D-12/
|
|
|
DATA (D_COEF(J,2,3,1),J=1,62)/-3.3894028D-02,-3.4419433D-02,
|
|
|
* -1.7122679D-02,1.1155820D-01,-1.8717766D-03,-1.7893339D-02,
|
|
|
* 1.4343031D-01,-3.5893490D-02,-3.8550835D-02,4.3429662D-04,
|
|
|
* 7.3980466D-03,-1.7676922D-03,-9.5379094D-02,-4.4034076D-02,
|
|
|
* 1.0236153D-02,6.8098271D-03,-3.9418553D-04,-1.5429276D-03,
|
|
|
* -1.9916802D-04,-7.7107069D-03,1.1849868D-02,-1.4885864D-03,
|
|
|
* -3.4824131D-03,1.3044255D-03,-3.4089288D-04,5.0707313D-05,
|
|
|
* -9.4991409D-05,-1.6670824D-04,7.2168006D-04,5.6177811D-03,
|
|
|
* -2.3391000D-03,-2.4492749D-03,5.5899041D-04,1.1412334D-04,
|
|
|
* -1.4843341D-04,-1.2983944D-05,-2.6280231D-06,1.3086646D-05,
|
|
|
* 2.1638795D-05,-1.6732100D-04,-1.3251685D-03,-2.7448775D-03,
|
|
|
* 2.7419940D-02,1.6054534D-02,-1.1182461D-03,-1.9393727D-04,
|
|
|
* 4.4096201D-05,1.4466157D-05,4.2837018D-06,1.0858890D-08,
|
|
|
* -4.5099158D-07,-3.5379186D-06,7.0414734D-07,6.5843639D-05,
|
|
|
* -4.2003631D-04,5.1288487D-04,2.4154126D-02,3.1830672D-03,
|
|
|
* -4.6540880D-04,-4.9874249D-05,-9.1828546D-07,1.5536853D-06/
|
|
|
DATA (D_COEF(J,2,3,1),J=63,121)/2.9455004D-07,-2.1959964D-07,
|
|
|
* 6.1264502D-09,1.7757146D-08,5.5485130D-08,3.5452874D-07,
|
|
|
* 1.5430339D-06,-6.7051465D-06,-6.8451847D-05,-2.0876283D-04,
|
|
|
* 1.7255140D-02,1.2257188D-03,-5.1721438D-04,5.5251191D-06,
|
|
|
* 8.9873620D-06,2.5146489D-07,-2.6730744D-07,-3.1630726D-08,
|
|
|
* 1.1008700D-08,-2.8446135D-10,-2.8653828D-10,6.2934066D-09,
|
|
|
* -1.3217178D-08,-1.4699171D-07,2.1238083D-06,1.6874107D-05,
|
|
|
* -1.8756605D-04,1.2527415D-04,1.9447995D-02,-3.9526319D-03,
|
|
|
* -8.5988080D-04,2.2274607D-05,6.9668557D-06,-1.9025788D-07,
|
|
|
* -5.5836895D-08,5.7274409D-09,2.0751366D-09,-1.5916359D-11,
|
|
|
* 7.1703747D-12,-4.6683992D-11,-3.5225621D-10,2.9431214D-10,
|
|
|
* 2.3646759D-08,-2.1014407D-07,-1.4325770D-06,2.2015410D-05,
|
|
|
* 2.0162667D-04,-2.1740747D-03,-1.2796694D-02,-9.7385694D-03,
|
|
|
* 1.9692310D-04,7.0400874D-05,6.0863263D-07,-4.6500220D-07,
|
|
|
* -2.4583611D-09,3.4525615D-09,6.6029503D-11,-8.0576455D-11,
|
|
|
* -1.6597501D-11/
|
|
|
DATA (D_COEF(J,3,3,1),J=1,62)/-3.2942409D-02,1.5413676D-02,
|
|
|
* 1.4790550D-01,1.8543003D-01,1.3094507D-02,1.4377697D-02,
|
|
|
* 1.6466934D-01,-1.8191094D-01,-2.2171289D-02,-3.5232549D-04,
|
|
|
* 4.5666072D-03,6.1707119D-03,-4.5770547D-01,-1.4253500D-01,
|
|
|
* 4.2946105D-02,1.6818415D-02,-1.5888416D-03,-2.9545407D-03,
|
|
|
* -2.9605586D-03,2.9787370D-02,-2.6673182D-01,1.9120223D-01,
|
|
|
* 1.9215748D-02,-6.1508662D-03,-1.3181869D-03,1.3673826D-04,
|
|
|
* 3.7613231D-04,3.9163069D-05,-8.3966002D-03,-1.7683807D-02,
|
|
|
* 5.6301017D-01,1.4578322D-01,-2.3295524D-02,-4.3725955D-03,
|
|
|
* 3.7948677D-04,9.5138016D-05,-1.4792886D-05,-3.9964363D-05,
|
|
|
* 1.3151451D-04,1.5377348D-03,9.0733608D-05,-3.2355882D-02,
|
|
|
* 5.3792300D-01,-1.3174104D-01,-2.4034537D-02,1.3864989D-03,
|
|
|
* 3.9482071D-04,1.6248359D-05,7.9102177D-08,9.7887791D-07,
|
|
|
* 1.2633503D-06,-2.4273463D-05,-1.3229605D-04,4.1928739D-04,
|
|
|
* 7.3155747D-03,1.5140058D-02,-4.5664755D-01,-1.7423486D-01,
|
|
|
* 9.9305667D-03,2.5552091D-03,-3.2398758D-06,-2.2869921D-05/
|
|
|
DATA (D_COEF(J,3,3,1),J=63,121)/-3.0798934D-06,1.8889288D-07,
|
|
|
* -6.2464696D-08,2.7706252D-08,2.1050511D-06,6.8736563D-06,
|
|
|
* -6.5953546D-05,-8.9569833D-04,1.1746799D-03,2.8981079D-02,
|
|
|
* -8.1331161D-01,6.8325128D-02,1.8955738D-02,-2.7074705D-04,
|
|
|
* -1.6021671D-04,-9.2477439D-06,5.6460505D-07,2.5410381D-07,
|
|
|
* 1.5647392D-08,1.1601405D-09,-5.9408652D-09,-1.1327153D-07,
|
|
|
* -7.7026595D-08,7.5080111D-06,5.2554001D-05,-2.6836818D-04,
|
|
|
* -4.7425092D-03,-1.0767622D-02,1.9443470D-01,1.6321903D-01,
|
|
|
* -1.4692694D-03,-1.3397740D-03,-4.0843600D-05,4.8765496D-06,
|
|
|
* 8.4783402D-07,2.9267723D-08,-1.0427620D-08,-5.5658480D-10,
|
|
|
* -6.5137126D-11,2.8343523D-10,4.9665407D-09,-2.0871669D-08,
|
|
|
* -4.8390615D-07,-1.0551125D-06,2.6300561D-05,4.2452372D-04,
|
|
|
* -1.2292467D-03,-2.3498849D-02,8.2244380D-01,-2.3968798D-03,
|
|
|
* -1.2212204D-02,-2.1263711D-04,5.8980963D-05,4.7237216D-06,
|
|
|
* 3.7400428D-08,-4.4747292D-08,-3.9664787D-09,2.0579391D-10,
|
|
|
* 9.2936581D-12/
|
|
|
DATA (D_COEF(J,1,4,1),J=1,62)/-1.1525967D-02,-5.8061149D-02,
|
|
|
* 2.5891321D-02,-1.7896424D-02,1.0705273D-02,-7.5280104D-03,
|
|
|
* -1.0041405D-01,-1.9696760D-02,1.7259241D-02,-1.3156341D-03,
|
|
|
* 1.3689959D-03,-2.0431063D-02,6.4080720D-03,2.9879038D-02,
|
|
|
* -5.7188113D-03,1.1202810D-03,8.6038555D-05,-4.9174429D-04,
|
|
|
* -8.7193179D-04,-2.2122919D-02,3.8073098D-02,9.0139263D-03,
|
|
|
* 2.3941090D-03,1.5602924D-03,8.8359955D-05,-3.4157183D-07,
|
|
|
* 5.6125790D-05,6.3397448D-05,-1.4990971D-03,-3.4695060D-03,
|
|
|
* -2.5205994D-02,-6.6042691D-03,-3.5026846D-03,-6.4478717D-04,
|
|
|
* -2.1250741D-05,2.3662963D-05,-1.2602254D-06,6.6531994D-06,
|
|
|
* -2.2199663D-05,8.2372980D-05,-5.6707450D-04,-9.3111991D-03,
|
|
|
* 7.7182979D-03,-7.6392879D-03,1.7951850D-03,1.4905303D-05,
|
|
|
* 8.0139641D-06,2.8071919D-06,2.2144715D-06,-2.7216717D-08,
|
|
|
* -3.3877811D-07,-2.5077522D-07,5.4811633D-07,3.5282303D-05,
|
|
|
* 6.2214549D-04,-2.7933053D-03,-2.5978955D-02,-3.7670385D-03,
|
|
|
* -1.0026341D-03,1.7842469D-05,8.1730668D-06,4.6445305D-07/
|
|
|
DATA (D_COEF(J,1,4,1),J=63,121)/5.3736706D-08,-1.1360391D-07,
|
|
|
* 3.2979572D-09,6.4988960D-08,1.0231666D-07,-1.7556770D-06,
|
|
|
* -1.1742073D-05,9.1509898D-06,6.1436307D-04,-2.0869814D-03,
|
|
|
* 6.8280058D-03,-1.2362104D-04,3.9538866D-04,1.1675128D-04,
|
|
|
* 4.9948980D-06,-8.3878772D-07,-2.5270929D-07,2.4187790D-09,
|
|
|
* 1.4022893D-08,-5.5066280D-10,-1.0115808D-09,4.6832907D-09,
|
|
|
* 1.0452409D-07,6.0834763D-07,-6.1540066D-06,-4.5358343D-05,
|
|
|
* 4.8120439D-04,2.9976181D-03,-4.9406818D-02,4.4354348D-03,
|
|
|
* 3.4774101D-04,-1.5587630D-05,-5.7136598D-06,-5.4296118D-07,
|
|
|
* 3.1972795D-08,1.7120066D-08,2.6463302D-09,-3.1636967D-10,
|
|
|
* 3.2199298D-11,2.6123312D-11,-6.1067272D-10,-8.5298909D-09,
|
|
|
* -9.2541041D-09,6.6723169D-07,3.1774366D-06,-5.8564345D-05,
|
|
|
* -4.7647493D-04,5.0858173D-04,3.5667367D-02,8.0749475D-03,
|
|
|
* -6.0151760D-05,-8.2996493D-05,-5.8106013D-06,2.5043151D-07,
|
|
|
* 7.3224409D-08,2.6879497D-10,-9.3183181D-10,-4.5287182D-11,
|
|
|
* 1.8597295D-12/
|
|
|
DATA (D_COEF(J,2,4,1),J=1,62)/6.1593592D-02,3.2115250D-02,
|
|
|
* 3.1139361D-02,-1.7674942D-01,8.0535828D-03,1.6568897D-02,
|
|
|
* -1.8272860D-01,9.1893088D-03,5.3353480D-02,-2.0017042D-03,
|
|
|
* -6.2050598D-03,-1.9532579D-04,5.5162784D-02,6.7581156D-02,
|
|
|
* -5.2777006D-03,-9.0975933D-03,6.1113740D-04,1.4780886D-03,
|
|
|
* -4.8953600D-04,8.2386345D-03,1.7981520D-02,1.2765047D-02,
|
|
|
* 1.6133299D-03,-1.7989535D-03,4.2235236D-04,-7.4028320D-05,
|
|
|
* 1.1202669D-04,2.4255676D-04,-1.2271357D-03,-6.7209097D-03,
|
|
|
* 2.5842737D-02,-2.2929535D-03,-1.4162709D-03,2.1301699D-05,
|
|
|
* 1.7559915D-04,2.0309855D-05,3.2062434D-06,-1.5520501D-05,
|
|
|
* -3.2795409D-05,2.3627658D-04,1.8144766D-03,4.8063434D-03,
|
|
|
* -3.8213533D-02,-2.0628052D-02,1.4821275D-03,2.5218150D-04,
|
|
|
* -4.7084404D-05,-1.5862027D-05,-6.4208501D-06,5.2825432D-09,
|
|
|
* 5.4613774D-07,4.8183859D-06,3.0466966D-06,-9.0827433D-05,
|
|
|
* 4.7810671D-04,-2.1763122D-03,-2.7478718D-02,-3.0040124D-03,
|
|
|
* 2.1336588D-04,5.1792790D-05,7.8527534D-06,-2.2035985D-06/
|
|
|
DATA (D_COEF(J,2,4,1),J=63,121)/-5.2406206D-07,3.1355002D-07,
|
|
|
* -9.5407958D-09,-2.2666716D-08,-3.7436544D-08,-9.5227839D-07,
|
|
|
* -2.8962210D-06,2.8265925D-05,1.8942300D-04,-6.7710436D-04,
|
|
|
* -2.1837408D-02,-5.8083221D-03,6.3517557D-04,4.6902629D-05,
|
|
|
* -1.0461981D-05,-8.2289908D-07,3.5406919D-07,4.8148946D-08,
|
|
|
* -1.4759670D-08,3.9063987D-10,2.4749221D-10,-8.8603099D-09,
|
|
|
* 4.9046778D-08,2.6385941D-07,-5.2613540D-06,-3.1243552D-05,
|
|
|
* 3.5057512D-04,3.0260631D-04,-4.8298792D-02,4.1938999D-03,
|
|
|
* 1.6545496D-03,-1.4987749D-05,-1.3162577D-05,4.2911991D-08,
|
|
|
* 9.4798033D-08,-4.6707527D-09,-3.1323994D-09,-8.5247767D-11,
|
|
|
* -7.1325489D-12,7.5771347D-11,4.1683486D-10,-1.5151907D-09,
|
|
|
* -3.4215663D-08,4.6094163D-07,2.2048227D-06,-4.8454802D-05,
|
|
|
* -3.1382911D-04,4.1639751D-03,5.7408306D-03,1.8113098D-02,
|
|
|
* -8.2218601D-05,-1.2859718D-04,-2.6636415D-06,7.6574539D-07,
|
|
|
* 1.9958414D-08,-4.9888974D-09,-2.4810153D-10,1.1409746D-10,
|
|
|
* 2.7405483D-11/
|
|
|
DATA (D_COEF(J,3,4,1),J=1,62)/3.2169554D-02,-3.2971681D-03,
|
|
|
* -2.4036346D-01,-2.0023452D-01,-1.4891074D-02,1.4275922D-02,
|
|
|
* -2.4268164D-01,3.1466803D-01,3.8261567D-02,5.8602924D-04,
|
|
|
* -1.6992362D-02,-1.0015104D-02,7.3407539D-01,2.3146234D-01,
|
|
|
* -7.4781212D-02,-2.3833310D-02,2.0921791D-03,5.7247042D-03,
|
|
|
* 1.2619725D-03,-5.8734324D-02,5.4244019D-01,-3.1626067D-01,
|
|
|
* -4.2654045D-02,9.7831834D-03,2.5688525D-03,-2.6785094D-04,
|
|
|
* -7.0417264D-04,6.5860304D-04,1.6608932D-02,2.3498451D-02,
|
|
|
* -9.2404667D-01,-2.8148896D-01,3.7659062D-02,7.9630090D-03,
|
|
|
* -5.3235060D-04,-2.1484193D-04,2.8005095D-05,6.3726808D-05,
|
|
|
* -2.8297564D-04,-2.6871483D-03,2.1627976D-03,5.7787092D-02,
|
|
|
* -1.0371951D+00,2.1484609D-01,4.4589607D-02,-2.2164357D-03,
|
|
|
* -7.2368500D-04,-3.2643286D-05,6.8620344D-06,-1.8737398D-06,
|
|
|
* -2.0126072D-06,4.5503920D-05,2.2402294D-04,-9.3236497D-04,
|
|
|
* -1.2486659D-02,-1.9808379D-02,7.2250424D-01,3.2017725D-01,
|
|
|
* -1.4797006D-02,-4.5095481D-03,-2.3699686D-05,3.9745875D-05/
|
|
|
DATA (D_COEF(J,3,4,1),J=63,121)/5.6185790D-06,-4.7690590D-07,
|
|
|
* 1.1016898D-07,-7.1282476D-08,-3.7218641D-06,-9.9774196D-06,
|
|
|
* 1.2736446D-04,1.4440555D-03,-3.1527383D-03,-4.9710283D-02,
|
|
|
* 1.4464534D+00,-9.7979320D-02,-3.3606598D-02,2.6424070D-04,
|
|
|
* 2.7647664D-04,1.7530501D-05,-9.9135215D-07,-4.5021137D-07,
|
|
|
* -1.6584357D-08,-2.3220608D-09,1.1449009D-08,1.9481230D-07,
|
|
|
* 3.6072708D-09,-1.3483761D-05,-8.1798186D-05,5.4127538D-04,
|
|
|
* 7.7191467D-03,1.5853984D-02,-2.5634584D-01,-2.8620396D-01,
|
|
|
* 9.0286393D-04,2.2956237D-03,8.0017148D-05,-8.0229257D-06,
|
|
|
* -1.4645626D-06,-4.7757524D-08,1.7782982D-08,6.8865990D-10,
|
|
|
* 1.0290108D-10,-5.1396046D-10,-8.2453095D-09,4.0539259D-08,
|
|
|
* 8.2919927D-07,1.1377892D-06,-4.8527947D-05,-6.6604027D-04,
|
|
|
* 2.5506074D-03,3.8663807D-02,-1.4081710D+00,-1.0756822D-02,
|
|
|
* 2.0879035D-02,4.4791654D-04,-9.7406526D-05,-8.3032665D-06,
|
|
|
* -8.4911815D-08,7.3909164D-08,6.4146321D-09,-3.2720136D-10,
|
|
|
* -6.9633108D-12/
|
|
|
DATA (D_COEF(J,1,5,1),J=1,62)/1.0749222D-03,2.4408844D-02,
|
|
|
* -1.0148572D-02,1.1787984D-02,-4.8141508D-03,2.5832113D-03,
|
|
|
* 4.3559145D-02,1.0257419D-02,-8.3379398D-03,7.3026797D-04,
|
|
|
* -7.4562425D-04,6.1424186D-03,-3.9658195D-04,-1.3789491D-02,
|
|
|
* 1.8500022D-03,-5.2406483D-04,-6.7767349D-05,2.1195876D-04,
|
|
|
* 4.1493999D-04,9.0253296D-03,-1.6940811D-02,-4.6389204D-03,
|
|
|
* -8.6000670D-04,-6.0610844D-04,-5.8568064D-05,1.8676287D-06,
|
|
|
* -2.4189122D-05,-3.5479197D-05,5.6814153D-04,1.4964515D-03,
|
|
|
* 9.8792615D-03,2.7556418D-03,1.6520868D-03,2.7889258D-04,
|
|
|
* 9.7077614D-06,-9.9667406D-06,5.3528136D-07,-3.0690233D-06,
|
|
|
* 9.7394262D-06,-4.0559914D-05,2.9040402D-04,3.8200285D-03,
|
|
|
* -3.8993959D-03,3.1107808D-03,-8.4947374D-04,-3.6064286D-08,
|
|
|
* -1.8080844D-06,-1.3818000D-06,-1.1635658D-06,1.7903440D-08,
|
|
|
* 1.6148924D-07,2.0404838D-07,-1.1941227D-06,-1.8795080D-05,
|
|
|
* -2.0222720D-04,1.3806148D-03,9.9558585D-03,1.9185938D-03,
|
|
|
* 5.3137865D-04,-9.1285363D-06,-4.1659213D-06,-2.3353822D-07/
|
|
|
DATA (D_COEF(J,1,5,1),J=63,121)/-1.8159419D-08,6.1290971D-08,
|
|
|
* -1.8848347D-09,-3.0220213D-08,-4.8598750D-08,8.8443036D-07,
|
|
|
* 5.5274063D-06,-1.1623856D-05,-3.0985646D-04,1.3070143D-03,
|
|
|
* -4.0326535D-03,4.5049457D-04,-1.5416427D-04,-6.0611549D-05,
|
|
|
* -3.3568313D-06,3.8116697D-07,1.3438146D-07,-5.0050156D-10,
|
|
|
* -6.9831655D-09,2.9356102D-10,4.4630330D-10,-2.9937422D-09,
|
|
|
* -5.2397771D-08,-2.8043239D-07,3.2513962D-06,2.1803651D-05,
|
|
|
* -2.7650848D-04,-1.6327686D-03,2.5348918D-02,-1.9226494D-03,
|
|
|
* -2.0170982D-04,4.8865491D-06,2.9119373D-06,2.9567719D-07,
|
|
|
* -1.2404465D-08,-8.6268251D-09,-1.3336758D-09,1.5911441D-10,
|
|
|
* -1.7095253D-11,-1.1564697D-11,3.3383793D-10,4.1598999D-09,
|
|
|
* 2.8426496D-09,-3.3339393D-07,-1.2885972D-06,3.1810989D-05,
|
|
|
* 2.3237360D-04,-4.0257903D-04,-1.6890056D-02,-4.3973211D-03,
|
|
|
* -3.4447120D-06,4.1677534D-05,3.1371008D-06,-1.0850377D-07,
|
|
|
* -3.7200531D-08,-3.1132023D-10,4.4880066D-10,2.6199368D-11,
|
|
|
* -1.8082453D-13/
|
|
|
DATA (D_COEF(J,2,5,1),J=1,62)/-3.1759501D-02,-1.2381757D-02,
|
|
|
* -1.6056075D-02,8.8012009D-02,-4.6853773D-03,-6.3347888D-03,
|
|
|
* 8.4302273D-02,2.6430375D-03,-2.5288345D-02,1.1939683D-03,
|
|
|
* 2.0935809D-03,6.1785588D-04,-1.1776258D-02,-3.3538937D-02,
|
|
|
* 7.1543889D-04,4.2557603D-03,-2.9912184D-04,-5.5072543D-04,
|
|
|
* 3.7486321D-04,-3.2894142D-03,-1.5978086D-02,-8.2068355D-03,
|
|
|
* -2.4718148D-05,8.5081927D-04,-1.9455052D-04,3.5774682D-05,
|
|
|
* -4.7723503D-05,-1.1530377D-04,6.0788569D-04,2.8422631D-03,
|
|
|
* -1.7201952D-02,2.5645456D-03,8.1608688D-04,-5.9338771D-05,
|
|
|
* -7.6139364D-05,-9.6502761D-06,-1.4007896D-06,6.5814736D-06,
|
|
|
* 1.5888614D-05,-1.1109612D-04,-8.4961370D-04,-2.5454719D-03,
|
|
|
* 1.8566347D-02,9.3670771D-03,-7.1561337D-04,-1.1327685D-04,
|
|
|
* 1.9789045D-05,6.4753450D-06,3.1010282D-06,-8.3178224D-09,
|
|
|
* -2.2905679D-07,-2.2204754D-06,-2.4380587D-06,4.3175232D-05,
|
|
|
* -1.9324099D-04,1.3997814D-03,1.1700811D-02,9.0116343D-04,
|
|
|
* -4.0709125D-06,-1.7208144D-05,-5.1646621D-06,9.9978988D-07/
|
|
|
DATA (D_COEF(J,2,5,1),J=63,121)/2.6965297D-07,-1.4635649D-07,
|
|
|
* 4.7672245D-09,1.0264493D-08,9.0966042D-09,5.6613340D-07,
|
|
|
* 1.4799408D-06,-1.8542527D-05,-1.0537546D-04,5.5589033D-04,
|
|
|
* 9.2607364D-03,3.6524010D-03,-2.6385578D-04,-3.5114778D-05,
|
|
|
* 4.2328603D-06,4.8585622D-07,-1.5940010D-07,-2.3692943D-08,
|
|
|
* 6.5776776D-09,-1.8203433D-10,-8.0503197D-11,4.0237881D-09,
|
|
|
* -3.0780696D-08,-1.3355248D-07,3.0744258D-06,1.5946184D-05,
|
|
|
* -1.8592848D-04,-2.4853151D-04,2.7575777D-02,-1.5358772D-03,
|
|
|
* -8.8366513D-04,2.2019169D-06,6.9855946D-06,4.3935357D-08,
|
|
|
* -4.7472765D-08,1.2398158D-09,1.5311803D-09,7.5461478D-11,
|
|
|
* 2.3659520D-12,-3.8055614D-11,-1.6804972D-10,1.0132926D-09,
|
|
|
* 1.6186140D-08,-2.5729126D-07,-1.0312345D-06,2.7451645D-05,
|
|
|
* 1.5409121D-04,-2.2617590D-03,7.9453202D-04,-9.5899718D-03,
|
|
|
* -1.6208554D-05,6.7648122D-05,1.7067747D-06,-3.8528402D-07,
|
|
|
* -1.3757657D-08,2.3431204D-09,1.5767579D-10,-5.3793693D-11,
|
|
|
* -1.4072024D-11/
|
|
|
DATA (D_COEF(J,3,5,1),J=1,62)/-1.5497128D-02,-9.2698844D-04,
|
|
|
* 1.2236840D-01,8.9984642D-02,5.7669090D-03,-1.3701944D-02,
|
|
|
* 1.2481943D-01,-1.6200330D-01,-2.2315802D-02,-1.2300593D-04,
|
|
|
* 1.0396094D-02,4.7380283D-03,-3.7029198D-01,-1.2017520D-01,
|
|
|
* 3.8393473D-02,1.1614771D-02,-9.7631900D-04,-3.0445252D-03,
|
|
|
* 2.5076310D-04,3.1783170D-02,-3.0064794D-01,1.6081072D-01,
|
|
|
* 2.4158129D-02,-4.8927480D-03,-1.4060857D-03,1.4473617D-04,
|
|
|
* 3.7038197D-04,-4.9937813D-04,-8.9265245D-03,-1.0700745D-02,
|
|
|
* 4.6812389D-01,1.5242455D-01,-1.8894962D-02,-4.2136011D-03,
|
|
|
* 2.4973581D-04,1.2143103D-04,-1.4890497D-05,-3.1344388D-05,
|
|
|
* 1.5784894D-04,1.3823093D-03,-1.6387977D-03,-3.0216384D-02,
|
|
|
* 5.6069074D-01,-1.0830552D-01,-2.3802200D-02,1.1056136D-03,
|
|
|
* 3.8380029D-04,1.7793100D-05,-5.0966131D-06,9.9970466D-07,
|
|
|
* 9.6563361D-07,-2.4182816D-05,-1.1343560D-04,5.2744761D-04,
|
|
|
* 6.3866755D-03,9.0906747D-03,-3.5967459D-01,-1.7009170D-01,
|
|
|
* 7.1433805D-03,2.3563172D-03,1.8380941D-05,-2.0652069D-05/
|
|
|
DATA (D_COEF(J,3,5,1),J=63,121)/-2.9679934D-06,2.9474371D-07,
|
|
|
* -5.7435677D-08,4.3625656D-08,1.9315513D-06,4.6304905D-06,
|
|
|
* -6.8319237D-05,-7.2047413D-04,1.8694390D-03,2.5535678D-02,
|
|
|
* -7.5928857D-01,4.6434502D-02,1.7630871D-02,-9.4568685D-05,
|
|
|
* -1.4336377D-04,-9.3392169D-06,5.2850655D-07,2.3402110D-07,
|
|
|
* 4.7469585D-09,1.2805382D-09,-6.1989105D-09,-9.9915189D-08,
|
|
|
* 3.2906983D-08,7.0488186D-06,3.9916894D-05,-2.9530797D-04,
|
|
|
* -3.8675843D-03,-7.8029805D-03,1.1523392D-01,1.4937596D-01,
|
|
|
* -1.1975319D-04,-1.1865857D-03,-4.3340808D-05,4.0901371D-06,
|
|
|
* 7.5426928D-07,2.3088922D-08,-9.0656299D-09,-2.2107990D-10,
|
|
|
* -5.1376312D-11,2.6753207D-10,4.1713718D-09,-2.2024895D-08,
|
|
|
* -4.2431734D-07,-4.0913228D-07,2.5486701D-05,3.2860876D-04,
|
|
|
* -1.3977158D-03,-1.9496823D-02,7.2812521D-01,8.7412255D-03,
|
|
|
* -1.0799182D-02,-2.4817217D-04,4.9684498D-05,4.3024254D-06,
|
|
|
* 4.5894622D-08,-3.7229448D-08,-3.1603126D-09,1.6305854D-10,
|
|
|
* -8.9018247D-13/
|
|
|
DATA (D_COEF(J,1,1,2),J=1,62)/-2.1123786D-02,9.3875736D-01,
|
|
|
* 5.6700758D-02,-3.0529888D-01,-1.6681638D-04,-3.6119718D-02,
|
|
|
* -4.1712950D-02,6.8217981D-03,-1.3574294D-03,-1.3289914D-04,
|
|
|
* 4.3456049D-03,-2.2838885D-03,4.6017553D-02,3.1699107D-03,
|
|
|
* 3.3108187D-03,-3.4635140D-05,-3.0786957D-05,-2.8114306D-04,
|
|
|
* -1.2911216D-03,7.6571042D-03,-1.5711295D-02,-3.3857385D-03,
|
|
|
* -1.2893562D-03,-2.3380937D-04,-9.1212310D-07,2.8266977D-06,
|
|
|
* 1.3386305D-05,-4.4554520D-05,-2.6564070D-04,-3.4823891D-03,
|
|
|
* -8.7698521D-03,5.8642118D-04,-1.7197763D-04,1.2091952D-04,
|
|
|
* 6.0866215D-06,2.7024773D-07,-1.8009023D-07,-9.5029562D-07,
|
|
|
* -1.9368881D-06,1.5942234D-05,6.0510578D-05,1.6913910D-03,
|
|
|
* 4.4422565D-03,-1.5421852D-04,7.0523877D-07,-1.0022149D-05,
|
|
|
* -2.8382119D-06,-1.6507276D-06,-3.4938205D-08,1.3605102D-08,
|
|
|
* 3.4120213D-09,1.3040283D-07,-1.1451734D-06,-9.3113374D-06,
|
|
|
* -4.7279804D-05,-4.0106214D-04,-2.4704705D-03,9.0997587D-05,
|
|
|
* -6.9869891D-05,1.3553695D-05,7.1466914D-08,2.8909677D-07/
|
|
|
DATA (D_COEF(J,1,1,2),J=63,121)/3.2769749D-08,7.5979668D-09,
|
|
|
* -2.8850953D-10,-1.0616842D-09,4.0781685D-09,-8.3689009D-09,
|
|
|
* 1.3417734D-06,-7.0816969D-07,7.9431352D-05,-3.8254453D-05,
|
|
|
* 5.5373180D-03,-2.1712431D-06,1.0489477D-04,1.7208144D-06,
|
|
|
* 1.1676673D-07,-2.6521979D-09,-1.3604294D-08,-1.2459649D-09,
|
|
|
* -3.4882949D-10,7.6013476D-12,3.8361494D-11,4.0602084D-12,
|
|
|
* -1.9966996D-09,-2.0414268D-08,-3.7510359D-07,1.7652119D-06,
|
|
|
* -2.4194699D-05,6.6563848D-04,-1.2818079D-03,-2.2972198D-04,
|
|
|
* -1.9800386D-05,-5.2459774D-06,6.7120925D-08,-2.9438492D-08,
|
|
|
* 3.9529953D-09,2.4814412D-10,7.5836288D-11,1.3122559D-11,
|
|
|
* -2.0278736D-13,-7.5915379D-13,-6.5514508D-12,1.6056778D-10,
|
|
|
* 4.3958642D-10,1.4514028D-08,-6.0314628D-08,-9.7126807D-07,
|
|
|
* -1.6434849D-05,-3.1018873D-04,-1.2846542D-03,1.5040940D-04,
|
|
|
* -1.7352838D-05,3.2895929D-06,-7.1757255D-09,1.7830098D-08,
|
|
|
* -3.9384174D-10,-3.5117591D-11,-1.6212979D-11,-2.0062238D-12,
|
|
|
* -2.8866616D-13/
|
|
|
DATA (D_COEF(J,2,1,2),J=1,62)/1.3297167D-02,3.1845053D-01,
|
|
|
* -1.7553622D-01,9.4989332D-01,3.4502681D-03,1.1055734D-03,
|
|
|
* 3.6519461D-02,2.1480250D-02,1.6630289D-03,-2.9199938D-04,
|
|
|
* 7.3637188D-04,7.7907496D-03,-1.1373265D-02,6.1653558D-03,
|
|
|
* -8.8838063D-04,-5.9336181D-04,-9.6959334D-06,-3.8325370D-04,
|
|
|
* 1.7851589D-04,-1.0872796D-03,-1.0090266D-02,1.6075887D-03,
|
|
|
* -2.4253472D-04,6.0481004D-05,6.6317612D-05,2.2772143D-06,
|
|
|
* 3.3063501D-06,-3.2655506D-05,-2.9486113D-04,3.1628453D-04,
|
|
|
* 1.9305691D-03,1.0469674D-03,3.9767144D-04,-2.9782130D-05,
|
|
|
* 1.0252944D-05,-4.1985154D-06,-2.7911620D-07,-1.5949555D-07,
|
|
|
* -2.2724059D-06,6.6902559D-06,9.6304547D-05,-1.8271938D-04,
|
|
|
* -4.1156329D-03,2.0449994D-04,-1.3233327D-04,2.5951397D-06,
|
|
|
* -3.8996909D-06,-7.5743726D-07,7.7768410D-08,9.9445468D-09,
|
|
|
* 8.9157818D-09,-8.4900141D-08,6.2869875D-07,-1.3276487D-05,
|
|
|
* 7.4692998D-05,-1.8068119D-04,1.7126461D-03,3.1228956D-05,
|
|
|
* 6.2293901D-05,-8.0082402D-06,-8.5301133D-07,1.6950377D-08/
|
|
|
DATA (D_COEF(J,2,1,2),J=63,121)/-1.8919523D-08,3.3969462D-09,
|
|
|
* -1.0755474D-10,1.1260065D-09,3.0970103D-09,2.6734992D-08,
|
|
|
* -2.4092218D-07,1.7819595D-06,-1.5142201D-05,4.6980547D-04,
|
|
|
* -7.5047129D-04,-1.7860394D-04,-1.4928562D-06,-3.8723870D-06,
|
|
|
* 5.0187564D-07,-2.8491089D-08,2.7523905D-09,-1.0476276D-11,
|
|
|
* -1.4931237D-10,-1.6504624D-13,2.5556508D-11,1.6260602D-10,
|
|
|
* 2.2051457D-09,2.0640322D-08,-9.4572192D-08,2.5984007D-07,
|
|
|
* -1.7977666D-05,-1.7569125D-04,-1.3322101D-03,1.7770804D-04,
|
|
|
* -8.7178844D-06,2.2063491D-06,7.4617876D-08,3.9122927D-09,
|
|
|
* 3.9655853D-10,-7.1471833D-13,-2.9275431D-11,1.2740525D-11,
|
|
|
* -2.6488001D-14,-2.9369860D-12,4.9077618D-13,-1.1847570D-10,
|
|
|
* 1.4437818D-10,5.8217595D-09,5.3446702D-08,7.5862509D-07,
|
|
|
* 1.6504113D-05,-9.0999968D-05,8.3667472D-04,3.9311296D-05,
|
|
|
* 6.6455759D-06,5.1586041D-07,-8.3023661D-08,-1.0297674D-08,
|
|
|
* -5.0701275D-10,-9.3754364D-11,5.1755410D-12,1.3602648D-12,
|
|
|
* -1.9178108D-14/
|
|
|
DATA (D_COEF(J,3,1,2),J=1,62)/3.0523954D-02,6.2924511D-02,
|
|
|
* 9.6920514D-01,1.5038780D-01,-1.2879193D-02,3.1945701D-03,
|
|
|
* -2.8828921D-02,-1.6705025D-02,-2.1369482D-02,-9.7475501D-04,
|
|
|
* -2.4114156D-03,-1.4894328D-02,4.9668053D-03,1.1248971D-02,
|
|
|
* -8.3514882D-04,2.7176664D-03,1.1012565D-04,-6.7873972D-06,
|
|
|
* 2.9391661D-04,2.3766357D-03,5.7052769D-03,1.1968731D-04,
|
|
|
* -3.1316285D-04,2.2404443D-05,-1.9550420D-04,-3.2473538D-07,
|
|
|
* 9.2022773D-06,6.4910903D-06,1.0990317D-04,-8.1306785D-04,
|
|
|
* 4.9135134D-03,-1.3344215D-05,4.6656889D-05,-3.6547471D-05,
|
|
|
* -2.8445402D-06,3.9695631D-06,6.1051887D-07,-2.6466146D-07,
|
|
|
* 4.6860595D-06,2.9899196D-05,1.8361817D-04,3.3812188D-03,
|
|
|
* 6.6965120D-03,-7.9605284D-04,2.1648944D-04,-6.4208904D-05,
|
|
|
* 1.3841603D-06,-1.3019605D-06,-3.2880764D-07,-2.5891714D-09,
|
|
|
* -1.5384279D-08,-6.2582968D-08,-4.2877099D-06,-4.4191455D-07,
|
|
|
* -2.7734974D-04,5.1762688D-04,-1.3703922D-02,-1.0541634D-04,
|
|
|
* -2.7696351D-04,-8.0650530D-06,1.1844142D-06,-2.3412841D-08/
|
|
|
DATA (D_COEF(J,3,1,2),J=63,121)/9.7549696D-08,6.1174041D-09,
|
|
|
* -3.8441323D-10,1.6892029D-09,1.8068865D-09,1.2902910D-07,
|
|
|
* 3.4955559D-07,-8.7111164D-06,1.5466593D-05,-2.2544440D-03,
|
|
|
* 1.1481956D-03,9.8459571D-04,2.0472052D-05,2.5575743D-05,
|
|
|
* -3.4386956D-08,1.2808751D-07,-3.4439699D-09,-2.5569438D-09,
|
|
|
* -3.3376603D-10,-5.2799430D-12,-1.0205521D-10,-6.7074794D-10,
|
|
|
* -1.3558741D-09,-3.1697813D-08,9.6014570D-07,1.4380149D-06,
|
|
|
* 1.1379868D-04,5.9212683D-04,6.8205203D-03,-1.4547573D-04,
|
|
|
* 9.2886864D-05,-5.7315569D-06,-3.6534663D-07,-3.6328257D-08,
|
|
|
* -5.0606515D-09,3.1368531D-10,1.3568851D-10,2.0051735D-11,
|
|
|
* 1.0156607D-12,2.7028870D-12,2.9417783D-11,4.6282822D-11,
|
|
|
* -4.7131972D-10,-1.6568213D-08,-3.6134501D-07,2.4395094D-07,
|
|
|
* -4.1230276D-05,7.0971594D-04,-3.2560921D-03,-3.8532318D-04,
|
|
|
* -3.3999749D-05,-5.4398176D-06,1.1956723D-07,-6.5635348D-09,
|
|
|
* 2.7936652D-09,1.1896932D-10,4.0765497D-12,-3.7863546D-12,
|
|
|
* -7.9183872D-13/
|
|
|
DATA (D_COEF(J,1,2,2),J=1,62)/1.3307968D-02,-2.9763630D-03,
|
|
|
* -1.5021742D-03,-1.3525619D-02,1.3618071D-03,3.4675402D-02,
|
|
|
* 6.3987776D-02,-4.1192023D-03,5.8475811D-03,1.1015705D-03,
|
|
|
* -8.0888665D-03,1.4475439D-02,-7.9583212D-02,-8.9646650D-03,
|
|
|
* -5.4448497D-03,-9.1469370D-04,-1.3081604D-05,8.9595455D-04,
|
|
|
* 1.7485683D-03,-9.9212775D-03,3.5563408D-02,4.9666375D-03,
|
|
|
* 2.6628338D-03,6.8396646D-04,1.7167740D-05,-6.1218399D-06,
|
|
|
* -5.5175861D-05,1.0918537D-04,3.8447095D-06,9.2685102D-03,
|
|
|
* 1.3641273D-03,-9.4728209D-05,-7.9733658D-05,-2.5236509D-04,
|
|
|
* -1.8405518D-05,-2.6771342D-07,5.8474509D-07,4.7561467D-06,
|
|
|
* 1.7607476D-05,-9.0992261D-05,1.5153303D-04,-1.5031124D-02,
|
|
|
* 2.8913206D-03,4.2436837D-03,2.4351086D-04,2.0138802D-04,
|
|
|
* 8.9537826D-06,8.5533818D-06,2.2444195D-07,-6.9998286D-08,
|
|
|
* -6.5480793D-08,-1.3402108D-06,1.1786585D-05,3.9748090D-05,
|
|
|
* 8.9194506D-04,2.7903153D-03,4.1188978D-02,-3.6271433D-04,
|
|
|
* 8.5345557D-04,-8.4651362D-05,-4.0328908D-06,-1.3060192D-06/
|
|
|
DATA (D_COEF(J,1,2,2),J=63,121)/-2.2585355D-07,-2.6921877D-08,
|
|
|
* 2.2788647D-09,8.5194097D-09,3.1444749D-09,-1.0855815D-07,
|
|
|
* -4.6836033D-06,9.1200543D-06,-8.6371036D-05,6.8374475D-03,
|
|
|
* -5.1167038D-03,-3.2405694D-03,-2.4680622D-04,-5.3518115D-05,
|
|
|
* -1.0327178D-06,1.3822767D-07,5.3150896D-08,1.2910190D-08,
|
|
|
* 1.3614481D-09,-6.8192067D-11,-1.6586629D-10,-8.2559091D-10,
|
|
|
* 1.2234473D-08,2.1425637D-07,1.5873496D-06,1.5126684D-06,
|
|
|
* 2.7299623D-05,-5.9210090D-04,9.8187831D-04,-1.8804602D-04,
|
|
|
* 1.1500351D-04,2.2490367D-05,-1.0038950D-07,1.8483053D-07,
|
|
|
* -2.7836428D-08,-1.8486266D-09,-5.3412829D-10,-9.3555094D-11,
|
|
|
* 6.8005207D-13,-1.8248305D-12,1.4788128D-10,-1.3452039D-09,
|
|
|
* -2.6024624D-09,-8.1094737D-08,-6.1766220D-07,8.1925230D-06,
|
|
|
* -3.6533351D-05,2.9553975D-03,-1.1746617D-02,-1.0178931D-03,
|
|
|
* -1.3450412D-04,-2.0898929D-05,-8.2884799D-07,-1.2280158D-07,
|
|
|
* 4.7897060D-09,1.8657857D-10,1.6066660D-10,1.9048526D-11,
|
|
|
* 1.6435324D-12/
|
|
|
DATA (D_COEF(J,2,2,2),J=1,62)/-1.4924936D-02,1.2229111D-04,
|
|
|
* -2.3203733D-03,-4.2115087D-02,-5.9196238D-03,-7.6143401D-03,
|
|
|
* -4.2526509D-02,-2.2912065D-02,4.2111356D-04,1.0671317D-03,
|
|
|
* -6.8548518D-04,-1.5155897D-02,3.3822956D-02,-1.3733223D-02,
|
|
|
* 3.2996981D-03,1.2283108D-03,3.6520832D-05,1.0396579D-03,
|
|
|
* -3.5659110D-04,6.5356790D-03,2.4602739D-02,-1.1118313D-02,
|
|
|
* -8.5278189D-04,-6.0418659D-04,-2.5791463D-04,-1.2038361D-05,
|
|
|
* -2.9667659D-05,2.7132399D-05,2.9374936D-04,-2.2046686D-03,
|
|
|
* -2.4799409D-02,-6.3236306D-03,-1.3371054D-03,1.3439340D-04,
|
|
|
* -8.0609698D-06,1.8888835D-05,1.3939767D-06,3.5779685D-06,
|
|
|
* 4.4373773D-06,-1.1912795D-06,-4.6984883D-04,-4.1322447D-03,
|
|
|
* 1.4501020D-02,1.3052200D-03,2.0331324D-04,4.2741307D-05,
|
|
|
* 1.5851493D-05,2.5877644D-06,-1.5455439D-07,-4.8722692D-08,
|
|
|
* -1.4299698D-07,6.7787390D-07,1.3695877D-06,5.9428797D-05,
|
|
|
* 1.8364365D-04,2.8498795D-05,1.7831461D-02,-1.6890675D-03,
|
|
|
* 2.8304067D-05,4.8938721D-05,2.5804588D-06,2.0898876D-07/
|
|
|
DATA (D_COEF(J,2,2,2),J=63,121)/3.3650306D-08,-2.9408550D-08,
|
|
|
* -1.3649673D-11,-6.6591688D-09,-1.3322403D-09,-3.2725363D-07,
|
|
|
* 2.0934647D-06,1.0978647D-05,-1.9475941D-05,2.6217816D-03,
|
|
|
* 4.6226044D-03,-1.5274586D-03,1.2444673D-04,-3.0593794D-05,
|
|
|
* -1.5193890D-06,6.1333429D-09,-4.2822886D-08,5.5258188D-09,
|
|
|
* 9.3422958D-10,1.0332448D-11,1.8925299D-10,-2.5069734D-09,
|
|
|
* 1.8519410D-09,-2.9246713D-08,-2.9302222D-06,2.1259458D-05,
|
|
|
* -3.3017067D-04,4.8438940D-04,-2.0283389D-02,5.3950111D-04,
|
|
|
* -2.4847794D-04,-8.5224406D-07,1.6160197D-06,-6.9757386D-08,
|
|
|
* 3.0038466D-08,9.5715991D-10,1.4504971D-10,-7.5952621D-11,
|
|
|
* 1.9945398D-12,1.5882852D-11,6.9270728D-11,1.1788201D-09,
|
|
|
* -1.0934861D-08,1.8017461D-07,-7.7448963D-07,3.4017061D-06,
|
|
|
* 1.0127245D-04,-3.3405111D-03,-2.0723477D-03,1.7475667D-03,
|
|
|
* -2.3652994D-04,2.7524612D-05,-2.3467606D-06,4.6074771D-08,
|
|
|
* 2.0026865D-09,-1.4331725D-09,-2.2033749D-11,-1.4307614D-11,
|
|
|
* -7.1718168D-13/
|
|
|
DATA (D_COEF(J,3,2,2),J=1,62)/-3.5844064D-02,-1.0874960D-01,
|
|
|
* 6.0866681D-02,5.9397099D-02,7.5153921D-03,4.8478442D-02,
|
|
|
* 3.5289837D-02,5.7987689D-03,1.5540107D-02,2.7109691D-03,
|
|
|
* -2.2622820D-03,1.9706433D-02,-9.5106526D-02,-1.8604281D-02,
|
|
|
* -5.0695685D-03,-5.7945380D-03,-3.5216600D-04,-1.1277107D-04,
|
|
|
* 8.8487382D-04,-3.8030470D-02,1.1034973D-02,1.4514002D-02,
|
|
|
* 2.4285694D-03,8.4519629D-04,6.6714518D-04,2.0777298D-05,
|
|
|
* 4.3465484D-05,-9.9619403D-05,3.8278896D-03,5.4877997D-03,
|
|
|
* 1.0998551D-01,-2.5698477D-03,3.1121609D-03,1.3276252D-04,
|
|
|
* 1.3649904D-06,-6.3381992D-06,-3.4955716D-06,-2.0285560D-06,
|
|
|
* -4.1345851D-07,-1.0344825D-05,-3.9885446D-04,2.1763193D-02,
|
|
|
* -2.5417378D-02,-1.3400539D-02,-3.8362805D-04,-2.6082444D-04,
|
|
|
* -1.0441995D-05,5.1781755D-06,-5.2525812D-07,-5.7459536D-08,
|
|
|
* 2.8209791D-07,-2.1258385D-06,-9.4298797D-06,1.9884413D-05,
|
|
|
* -1.9810924D-03,1.0370320D-03,-1.1626518D-01,-3.3888162D-04,
|
|
|
* -1.1501462D-03,-4.2452456D-05,1.8929922D-06,-1.2630721D-06/
|
|
|
DATA (D_COEF(J,3,2,2),J=63,121)/-2.9338150D-07,4.2383862D-08,
|
|
|
* 8.0382638D-09,-1.6836698D-08,1.8226523D-08,3.6572603D-07,
|
|
|
* -1.0472156D-05,-9.7518330D-06,-7.3619436D-04,-2.0581225D-02,
|
|
|
* -4.1475487D-02,1.0010601D-02,-6.9157349D-04,1.5011979D-04,
|
|
|
* 4.6840772D-06,-5.7417087D-07,2.1349895D-07,-6.2194907D-09,
|
|
|
* 1.7480786D-09,2.4012845D-11,-3.3387761D-10,9.2091380D-09,
|
|
|
* -3.4191742D-08,6.7094717D-07,8.1115677D-06,1.7869507D-06,
|
|
|
* 1.6621318D-03,-3.9407774D-03,1.3922624D-01,1.4284664D-03,
|
|
|
* 1.2025422D-03,5.3140791D-05,-2.5538759D-06,3.0609161D-07,
|
|
|
* -3.5191567D-08,-6.8670593D-09,-6.4925059D-10,-1.1330932D-10,
|
|
|
* -1.3223065D-11,-1.4124367D-11,-4.4544885D-10,9.0824204D-10,
|
|
|
* -1.9614360D-08,-1.3809825D-07,1.5936243D-06,1.9440504D-05,
|
|
|
* 4.2756415D-04,1.6310581D-02,2.9823804D-02,-7.8110167D-03,
|
|
|
* 2.9237924D-04,-8.8747576D-05,-1.9939048D-06,-8.4156201D-09,
|
|
|
* -2.5821902D-08,1.8414002D-09,6.1840541D-11,5.8615479D-11,
|
|
|
* 5.0149178D-12/
|
|
|
DATA (D_COEF(J,1,3,2),J=1,62)/2.8180624D-02,9.4052007D-02,
|
|
|
* 2.1428899D-02,-6.4955111D-03,-1.8250944D-02,-4.3408928D-03,
|
|
|
* -1.4789121D-01,-1.2759497D-02,-2.4681248D-02,-3.1443773D-03,
|
|
|
* 4.7295512D-03,-6.0283489D-02,4.6270141D-02,2.5410818D-02,
|
|
|
* 2.4779237D-03,5.2785072D-03,3.9137305D-04,-1.9778865D-03,
|
|
|
* 6.2878600D-04,-1.4706745D-02,5.7902185D-03,6.1642600D-03,
|
|
|
* -1.2640171D-03,-2.2663860D-04,-1.3662131D-04,-7.1829591D-06,
|
|
|
* 1.8466304D-04,-6.2373323D-05,3.6291682D-03,-5.2260502D-03,
|
|
|
* 8.0357904D-02,-5.8046958D-03,2.8498414D-03,1.0352534D-04,
|
|
|
* 1.0860034D-05,-5.0435994D-06,-5.6566524D-07,-1.4752816D-05,
|
|
|
* -6.4327533D-05,2.2980767D-04,-1.1813980D-03,6.0012544D-02,
|
|
|
* -3.8878365D-02,-2.1497485D-02,-9.4157614D-04,-8.8237976D-04,
|
|
|
* -1.8453814D-05,-2.2016591D-05,-8.5817395D-07,1.4679187D-07,
|
|
|
* 3.8525049D-07,4.1618309D-06,-4.5951438D-05,-7.4676872D-05,
|
|
|
* -4.1024069D-03,-4.7428360D-03,-1.8495807D-01,-1.2816661D-03,
|
|
|
* -3.5726320D-03,2.0332475D-04,1.9431359D-05,2.6471407D-06/
|
|
|
DATA (D_COEF(J,1,3,2),J=63,121)/6.8157522D-07,3.4947894D-08,
|
|
|
* -5.6164182D-09,-2.7186385D-08,-4.4173845D-08,5.8191373D-07,
|
|
|
* 1.8535788D-06,-3.4092978D-05,-1.2479295D-03,-3.0621738D-02,
|
|
|
* -6.3416074D-02,1.4107164D-02,-5.6508932D-04,2.2869767D-04,
|
|
|
* 6.0816070D-06,-8.5474640D-07,-1.4546121D-08,-4.9582650D-08,
|
|
|
* -7.4782814D-10,2.0866609D-10,6.4525652D-11,4.9073549D-09,
|
|
|
* -3.8180084D-08,-7.3244011D-07,-3.6483829D-06,-2.3661456D-05,
|
|
|
* -2.5652378D-06,-6.2854929D-03,-1.2606744D-02,4.2984488D-03,
|
|
|
* -4.2307466D-04,-4.4806492D-05,1.8028187D-07,-5.2865201D-07,
|
|
|
* 9.4236909D-08,4.9292450D-09,1.7564893D-09,2.9322078D-10,
|
|
|
* 9.0607858D-13,4.4189408D-11,-6.8030399D-10,5.9767635D-09,
|
|
|
* 3.3929426D-09,2.5837086D-07,3.4616884D-06,-3.2514976D-05,
|
|
|
* 2.9024510D-04,-1.1747648D-02,7.6647869D-02,3.6509439D-03,
|
|
|
* 8.9326422D-04,6.8330431D-05,4.8346227D-06,4.3322698D-07,
|
|
|
* -2.4598315D-08,1.7687741D-10,-6.1033868D-10,-5.7067520D-11,
|
|
|
* -5.4928455D-12/
|
|
|
DATA (D_COEF(J,2,3,2),J=1,62)/7.8644389D-03,-1.2021994D-02,
|
|
|
* 1.9302721D-02,7.6472366D-02,1.6634038D-02,2.4627092D-02,
|
|
|
* 6.6175584D-02,1.6350781D-02,-4.0476386D-04,-2.8646527D-03,
|
|
|
* -2.5485265D-03,2.9797334D-02,-8.7363117D-02,9.1531307D-03,
|
|
|
* -8.4307057D-03,-2.8417014D-03,-2.9770110D-04,-1.7457038D-03,
|
|
|
* -1.6640365D-03,-2.7140794D-02,-6.7987618D-02,3.0831443D-02,
|
|
|
* 1.5590934D-03,1.8653672D-03,7.3814900D-04,5.6015747D-05,
|
|
|
* 1.0434872D-04,1.2554344D-04,1.5937886D-03,-1.9681453D-03,
|
|
|
* 1.1793944D-01,2.1878988D-02,3.4170267D-03,-8.0169459D-05,
|
|
|
* -3.9082561D-05,-3.8119546D-05,-3.2550091D-06,-1.3887897D-05,
|
|
|
* 2.0870201D-05,-2.2129162D-05,2.2424856D-03,2.4476522D-02,
|
|
|
* -4.1652881D-03,-1.2288189D-02,4.2191790D-04,-3.0909053D-04,
|
|
|
* -5.5944797D-05,-4.4790861D-06,-1.8102024D-06,3.9917688D-08,
|
|
|
* 5.7158751D-07,-3.6345238D-06,-1.7481404D-05,-1.4532852D-04,
|
|
|
* -2.1123939D-03,7.1376692D-03,-1.1968508D-01,2.0599110D-03,
|
|
|
* -1.1235273D-03,-2.0428557D-04,1.6532188D-06,-1.1380092D-06/
|
|
|
DATA (D_COEF(J,2,3,2),J=63,121)/1.4892468D-07,1.4518476D-07,
|
|
|
* 3.5854090D-09,2.1160634D-08,-5.0843848D-08,1.4639511D-06,
|
|
|
* -1.1109575D-05,-7.0535605D-05,-4.8988030D-05,-2.1287671D-02,
|
|
|
* -4.3238047D-02,9.6351326D-03,-8.3656272D-04,2.1773850D-04,
|
|
|
* 4.4321370D-06,3.7924119D-07,2.1900195D-07,-3.3145087D-08,
|
|
|
* -7.8815163D-10,4.5973216D-12,-1.3239025D-09,1.4562652D-08,
|
|
|
* -4.3304212D-08,1.5417322D-07,1.7037913D-05,-1.1224859D-04,
|
|
|
* 2.1252098D-03,-4.7639198D-03,1.4517208D-01,-3.7021018D-03,
|
|
|
* 1.2753672D-03,2.7770445D-06,-1.1778444D-05,4.3448932D-07,
|
|
|
* -1.6866159D-07,-5.3040920D-09,-2.5384906D-10,1.0003339D-10,
|
|
|
* -1.3466198D-11,-3.1215446D-11,-4.5247371D-10,-3.8074782D-09,
|
|
|
* 5.6470919D-08,-1.1088629D-06,4.6857299D-06,-4.8328384D-05,
|
|
|
* -5.5039748D-04,1.8001302D-02,1.1390046D-02,-1.2595608D-02,
|
|
|
* 1.2418891D-03,-1.5296096D-04,1.2767298D-05,8.9355563D-08,
|
|
|
* -1.9379268D-08,9.0943983D-09,-1.8510944D-10,4.8566050D-11,
|
|
|
* 4.0478406D-12/
|
|
|
DATA (D_COEF(J,3,3,2),J=1,62)/4.4415345D-02,1.6286263D-01,
|
|
|
* -1.8950204D-01,-9.3130436D-02,-6.5453005D-03,-1.9772496D-01,
|
|
|
* -5.4810386D-02,5.0177204D-02,-1.0879943D-02,-6.0157667D-03,
|
|
|
* 2.9089113D-02,-4.3622430D-02,4.2390921D-01,3.8618925D-02,
|
|
|
* 2.9763133D-02,1.2178763D-02,1.2196378D-03,8.6244337D-04,
|
|
|
* 2.7986333D-03,1.8308976D-01,4.2692034D-02,-8.1782875D-02,
|
|
|
* -1.6401953D-03,-5.2862735D-03,-1.5541900D-03,-1.4278720D-04,
|
|
|
* -3.4933478D-04,4.7009719D-04,-2.1834580D-02,2.3428751D-02,
|
|
|
* -6.6057434D-01,-1.2318982D-02,-1.7411821D-02,-1.4115795D-03,
|
|
|
* 9.7798488D-05,-4.0737016D-05,7.5990837D-06,2.0628873D-05,
|
|
|
* -1.3880842D-04,-3.4349355D-04,-4.1475980D-03,-1.6018113D-01,
|
|
|
* -8.2541548D-02,7.9783539D-02,-3.0526878D-03,2.2653947D-03,
|
|
|
* 8.1724716D-05,-1.1692885D-05,1.0484556D-05,6.5877444D-07,
|
|
|
* -1.4498571D-06,1.6699277D-05,1.0563515D-04,-1.3556858D-04,
|
|
|
* 1.3930241D-02,-4.3149161D-02,7.5658728D-01,2.2398207D-02,
|
|
|
* 9.8807621D-03,7.3124608D-04,-3.8625520D-05,9.3606239D-06/
|
|
|
DATA (D_COEF(J,3,3,2),J=63,121)/-2.6075325D-07,-2.9043183D-07,
|
|
|
* -4.0114115D-08,5.6773810D-08,-6.2945876D-08,-4.0496491D-06,
|
|
|
* 6.7982136D-05,1.8021483D-04,5.7085366D-03,1.3417907D-01,
|
|
|
* 3.3966598D-01,-6.3794852D-02,4.5419330D-03,-1.1086703D-03,
|
|
|
* -3.6426054D-05,1.5898052D-06,-1.3261535D-06,8.5759226D-08,
|
|
|
* -1.9404505D-08,-5.7214555D-10,3.4647057D-09,-5.6965446D-08,
|
|
|
* 1.9446344D-07,-3.9961062D-06,-5.6115087D-05,-2.6959990D-06,
|
|
|
* -1.0177323D-02,3.4518179D-02,-8.6206769D-01,-1.7563103D-02,
|
|
|
* -7.5590038D-03,-3.7141511D-04,2.1685695D-05,-1.7746389D-06,
|
|
|
* 3.1025980D-07,3.0440751D-08,1.6845363D-09,7.4060582D-10,
|
|
|
* 6.5707447D-11,7.4454151D-11,2.0131671D-09,-3.0395823D-09,
|
|
|
* 9.1155686D-08,1.0273739D-06,-8.3737122D-06,-1.1061112D-04,
|
|
|
* -2.4498516D-03,-9.2531573D-02,-1.8037384D-01,4.3939192D-02,
|
|
|
* -1.5782825D-03,5.2619158D-04,1.1661412D-05,1.6815786D-07,
|
|
|
* 1.2286002D-07,-1.1489470D-08,5.8979873D-10,-2.5997055D-10,
|
|
|
* 7.1476494D-12/
|
|
|
DATA (D_COEF(J,1,4,2),J=1,62)/-6.6392533D-02,-1.7423533D-01,
|
|
|
* -3.7183301D-02,3.2740048D-02,3.3520540D-02,-3.3011709D-02,
|
|
|
* 2.0175308D-01,2.8709372D-02,3.8730555D-02,4.0485853D-03,
|
|
|
* 3.9105116D-03,9.3457806D-02,3.1056832D-02,-3.5348065D-02,
|
|
|
* 3.3957307D-03,-8.6352759D-03,-7.4283167D-04,2.2626553D-03,
|
|
|
* -3.7278488D-03,4.5297205D-02,-7.2713109D-02,-2.0098102D-02,
|
|
|
* -1.9468951D-03,-9.2138970D-04,2.4141945D-04,2.7275385D-05,
|
|
|
* -2.7690801D-04,-8.3979057D-05,-7.3116948D-03,-6.0877633D-03,
|
|
|
* -1.5918763D-01,1.0384624D-02,-5.7037747D-03,1.9695927D-04,
|
|
|
* 1.9015341D-05,1.0411158D-05,-1.0367324D-07,2.0682037D-05,
|
|
|
* 9.1769442D-05,-2.6908598D-04,1.7943314D-03,-9.0055996D-02,
|
|
|
* 6.1423686D-02,3.4340270D-02,1.2140673D-03,1.3588618D-03,
|
|
|
* 2.3912167D-05,2.6494264D-05,1.3281639D-06,-1.3076374D-07,
|
|
|
* -6.6989509D-07,-5.0722349D-06,6.7846373D-05,6.6043972D-05,
|
|
|
* 6.3649759D-03,1.8668959D-03,2.8515875D-01,4.5941050D-03,
|
|
|
* 5.4252528D-03,-2.0156299D-04,-3.0411595D-05,-2.4637264D-06/
|
|
|
DATA (D_COEF(J,1,4,2),J=63,121)/-8.8621370D-07,-1.3644843D-08,
|
|
|
* 5.5993205D-09,3.8370044D-08,8.1171619D-08,-8.6851862D-07,
|
|
|
* 8.1831113D-06,5.0307636D-05,2.9018575D-03,4.5795740D-02,
|
|
|
* 1.4453833D-01,-2.0384826D-02,1.8113080D-03,-3.3311684D-04,
|
|
|
* -1.0471869D-05,1.4852987D-06,-1.2159498D-07,7.4956720D-08,
|
|
|
* -2.1631477D-09,-2.5963925D-10,3.8933154D-10,-8.3278523D-09,
|
|
|
* 5.3977579D-08,1.0253920D-06,4.6513152D-06,4.6960077D-05,
|
|
|
* 2.8020034D-05,1.4828741D-02,3.4837781D-02,-8.6781964D-03,
|
|
|
* 6.7778318D-04,3.8237797D-05,-2.7491892D-07,6.3885193D-07,
|
|
|
* -1.3528282D-07,-5.4298824D-09,-2.5976700D-09,-3.6949366D-10,
|
|
|
* -4.0240876D-12,-9.5147004D-11,1.0418927D-09,-9.8496112D-09,
|
|
|
* -1.2582002D-09,-3.7534250D-07,-5.6813278D-06,5.2081014D-05,
|
|
|
* -4.8611880D-04,1.8281885D-02,-1.3252378D-01,-5.6594585D-03,
|
|
|
* -1.5354976D-03,-9.9779494D-05,-8.3454275D-06,-6.7890369D-07,
|
|
|
* 4.0074470D-08,-9.2664705D-10,8.7682832D-10,7.2194406D-11,
|
|
|
* 8.4976589D-12/
|
|
|
DATA (D_COEF(J,2,4,2),J=1,62)/5.1325511D-03,2.7851278D-02,
|
|
|
* -3.2927363D-02,-8.8903246D-02,-2.5929995D-02,-3.6156290D-02,
|
|
|
* -8.7554212D-02,-3.3791885D-03,-2.5180855D-03,3.9228747D-03,
|
|
|
* 5.9241323D-03,-3.9083727D-02,1.2515543D-01,6.3460437D-03,
|
|
|
* 1.1113112D-02,4.0837217D-03,5.8487422D-04,1.6446610D-03,
|
|
|
* 4.7068102D-03,4.3204380D-02,9.3026879D-02,-4.0823994D-02,
|
|
|
* -7.8004226D-04,-2.5518530D-03,-1.0255286D-03,-9.4810137D-05,
|
|
|
* -1.5259784D-04,-2.7693118D-04,-3.7314581D-03,1.0946755D-02,
|
|
|
* -1.8264123D-01,-3.2246578D-02,-4.5328324D-03,-1.7796307D-04,
|
|
|
* 8.3236612D-05,3.5816291D-05,3.4153643D-06,2.0157325D-05,
|
|
|
* -5.8147991D-05,1.5887393D-05,-3.8696908D-03,-4.1837942D-02,
|
|
|
* -4.1693087D-02,2.2152603D-02,-1.3657988D-03,5.4506834D-04,
|
|
|
* 8.4732160D-05,4.1368292D-06,4.4905176D-06,5.9120155D-08,
|
|
|
* -8.4894619D-07,6.2858932D-06,3.3789000D-05,1.7704449D-04,
|
|
|
* 3.9323989D-03,-1.6028712D-02,2.2198607D-01,4.9146990D-04,
|
|
|
* 2.3102772D-03,3.3163192D-04,-8.3150941D-06,1.9370010D-06/
|
|
|
DATA (D_COEF(J,2,4,2),J=63,121)/-3.7114967D-07,-2.3414529D-07,
|
|
|
* -7.5916286D-09,-2.7204347D-08,1.2303864D-07,-2.2148712D-06,
|
|
|
* 1.9607703D-05,1.2055583D-04,3.0498763D-04,3.8107209D-02,
|
|
|
* 7.1470052D-02,-1.6793675D-02,1.5447379D-03,-3.8251880D-04,
|
|
|
* -6.5307671D-06,-7.9054631D-07,-3.6865932D-07,5.5196327D-08,
|
|
|
* -1.9029648D-09,-9.8072813D-11,2.0850155D-09,-2.5711809D-08,
|
|
|
* 8.2375342D-08,-3.3607647D-07,-2.8273460D-05,1.8128440D-04,
|
|
|
* -3.6285748D-03,1.0353574D-02,-2.3739538D-01,6.2170439D-03,
|
|
|
* -2.0403061D-03,-1.5765701D-05,2.0530018D-05,-8.1478432D-07,
|
|
|
* 2.7051450D-07,7.9177865D-09,1.1811882D-10,1.6015325D-11,
|
|
|
* 2.4591954D-11,2.4961119D-11,7.5301700D-10,4.6270868D-09,
|
|
|
* -9.4401454D-08,1.8458178D-06,-8.5060448D-06,9.4843488D-05,
|
|
|
* 7.8845526D-04,-2.9298760D-02,-4.3023453D-02,2.2020780D-02,
|
|
|
* -2.0586279D-03,2.4815496D-04,-2.0837409D-05,-3.1856041D-07,
|
|
|
* 4.0021000D-08,-1.5156212D-08,5.3508404D-10,-6.0705914D-11,
|
|
|
* -6.1252424D-12/
|
|
|
DATA (D_COEF(J,3,4,2),J=1,62)/-4.9303512D-02,-1.8130552D-01,
|
|
|
* 2.6351101D-01,1.0599512D-01,1.8863433D-02,2.9608422D-01,
|
|
|
* 1.0072875D-01,-9.9129085D-02,1.3382241D-02,7.1032467D-03,
|
|
|
* -5.1593956D-02,7.5787261D-02,-6.8637211D-01,-5.7159543D-02,
|
|
|
* -4.8519905D-02,-1.6290871D-02,-2.0238790D-03,-1.6992926D-03,
|
|
|
* -1.1116637D-02,-2.9674729D-01,-1.4239065D-01,1.3547420D-01,
|
|
|
* -3.5503071D-03,9.0804569D-03,1.9014896D-03,2.5793452D-04,
|
|
|
* 6.3112269D-04,-7.2180030D-04,3.6188917D-02,-7.1490109D-02,
|
|
|
* 1.0955953D+00,3.7084071D-02,2.9062253D-02,2.9622956D-03,
|
|
|
* -2.0242755D-04,1.0570996D-04,-6.7448004D-06,-3.7646901D-05,
|
|
|
* 3.1301791D-04,7.7887691D-04,1.0921339D-02,2.7907338D-01,
|
|
|
* 2.9405770D-01,-1.3307751D-01,7.9013095D-03,-4.0456535D-03,
|
|
|
* -1.5301016D-04,1.1766201D-05,-2.1266576D-05,-1.3299465D-06,
|
|
|
* 2.3050552D-06,-3.0904301D-05,-1.9648361D-04,2.4194709D-04,
|
|
|
* -2.3767990D-02,9.5317841D-02,-1.3234290D+00,-5.0038278D-02,
|
|
|
* -1.7632912D-02,-1.5361392D-03,7.1542210D-05,-1.7743353D-05/
|
|
|
DATA (D_COEF(J,3,4,2),J=63,121)/1.2239686D-06,4.2906551D-07,
|
|
|
* 6.1375062D-08,-7.2617215D-08,-5.0790479D-09,7.1176196D-06,
|
|
|
* -1.2457508D-04,-3.7665706D-04,-1.0903522D-02,-2.2663195D-01,
|
|
|
* -6.1153646D-01,1.0688704D-01,-8.2787133D-03,1.9119847D-03,
|
|
|
* 6.5782496D-05,-1.7528580D-06,2.3487463D-06,-1.6179327D-07,
|
|
|
* 4.5092141D-08,1.5481242D-09,-6.2006982D-09,1.0377528D-07,
|
|
|
* -2.9895208D-07,6.9895263D-06,9.6793897D-05,-7.9197854D-06,
|
|
|
* 1.6865804D-02,-6.8894016D-02,1.4122708D+00,3.6240666D-02,
|
|
|
* 1.2768796D-02,7.0309261D-04,-3.6735913D-05,3.3372538D-06,
|
|
|
* -5.5058896D-07,-4.3867776D-08,-1.9893680D-09,-1.3803032D-09,
|
|
|
* -1.0966642D-10,-1.2520018D-10,-3.0546769D-09,3.5000163D-09,
|
|
|
* -1.2131095D-07,-1.6816055D-06,1.6558830D-05,1.9570213D-04,
|
|
|
* 4.4622233D-03,1.5141791D-01,3.7817847D-01,-7.1127365D-02,
|
|
|
* 2.8901115D-03,-8.6694950D-04,-1.9386820D-05,-3.8356172D-07,
|
|
|
* -2.1077367D-07,1.8688351D-08,-1.7996712D-09,3.9320075D-10,
|
|
|
* -3.7265219D-11/
|
|
|
DATA (D_COEF(J,1,5,2),J=1,62)/3.6271494D-02,9.1214671D-02,
|
|
|
* 1.9480870D-02,-2.0095909D-02,-1.7422725D-02,2.2632588D-02,
|
|
|
* -9.7318104D-02,-1.5731480D-02,-1.9395878D-02,-1.8588729D-03,
|
|
|
* -4.0252629D-03,-4.6262382D-02,-3.1991399D-02,1.6846780D-02,
|
|
|
* -2.9649529D-03,4.3401297D-03,3.9406516D-04,-9.6145392D-04,
|
|
|
* 2.2760892D-03,-2.6669750D-02,4.5810905D-02,1.1759438D-02,
|
|
|
* 1.6427582D-03,7.2120786D-04,-1.2164617D-04,-1.6738091D-05,
|
|
|
* 1.3773046D-04,7.8864361D-05,3.9601715D-03,5.3425780D-03,
|
|
|
* 8.6980352D-02,-5.0419677D-03,3.1152987D-03,-1.5316754D-04,
|
|
|
* -1.7142786D-05,-5.6075520D-06,2.7146492D-07,-9.9007951D-06,
|
|
|
* -4.3333346D-05,1.1414528D-04,-8.1068263D-04,4.3949266D-02,
|
|
|
* -3.0410876D-02,-1.7131869D-02,-5.0788308D-04,-6.6920260D-04,
|
|
|
* -1.1826261D-05,-1.1556993D-05,-6.7751118D-07,4.0675139D-08,
|
|
|
* 3.4479553D-07,2.1156514D-06,-3.2651561D-05,-2.0852365D-05,
|
|
|
* -3.1289192D-03,5.7147676D-04,-1.3749012D-01,-3.0291358D-03,
|
|
|
* -2.6585677D-03,6.8847803D-05,1.5009399D-05,8.4082061D-07/
|
|
|
DATA (D_COEF(J,1,5,2),J=63,121)/3.9875127D-07,-2.0037845D-09,
|
|
|
* -1.9457598D-09,-1.8579157D-08,-4.3069568D-08,3.9929189D-07,
|
|
|
* -6.8120903D-06,-2.4557936D-05,-1.6671199D-03,-2.1893579D-02,
|
|
|
* -8.4696831D-02,9.4529867D-03,-1.1173236D-03,1.5628306D-04,
|
|
|
* 5.3299677D-06,-7.7448293D-07,9.7153155D-08,-3.7064842D-08,
|
|
|
* 1.8609732D-09,1.1036399D-10,-3.3208335D-10,4.2918455D-09,
|
|
|
* -2.6188772D-08,-4.8926182D-07,-2.2772398D-06,-2.6314249D-05,
|
|
|
* -4.5826095D-05,-8.5660366D-03,-2.0670904D-02,4.7875458D-03,
|
|
|
* -3.6439806D-04,-1.1717436D-05,1.4597888D-07,-2.6768765D-07,
|
|
|
* 6.4740076D-08,2.1101222D-09,1.3087686D-09,1.5843609D-10,
|
|
|
* 2.6988753D-12,5.4823787D-11,-5.0305610D-10,5.0944852D-09,
|
|
|
* 6.0808301D-11,1.8467431D-07,2.8631591D-06,-2.7156499D-05,
|
|
|
* 2.4173970D-04,-9.3348342D-03,6.5259826D-02,2.8979108D-03,
|
|
|
* 7.9379857D-04,4.9592147D-05,4.4015205D-06,3.5116533D-07,
|
|
|
* -1.9686383D-08,6.2218042D-10,-4.1606259D-10,-3.1950656D-11,
|
|
|
* -4.3419767D-12/
|
|
|
DATA (D_COEF(J,2,5,2),J=1,62)/-5.5945632D-03,-1.6048735D-02,
|
|
|
* 1.6730063D-02,4.0254753D-02,1.3293143D-02,1.7886066D-02,
|
|
|
* 4.4055559D-02,-1.6560502D-03,2.1079009D-03,-1.8743235D-03,
|
|
|
* -3.2538382D-03,1.8957314D-02,-6.2430841D-02,-7.2480740D-03,
|
|
|
* -5.2235749D-03,-2.0434054D-03,-3.2054337D-04,-6.3648663D-04,
|
|
|
* -2.8544978D-03,-2.1950761D-02,-4.4358427D-02,1.9065341D-02,
|
|
|
* -1.3016077D-05,1.2010322D-03,4.8980985D-04,4.9240409D-05,
|
|
|
* 7.4124231D-05,1.4875844D-04,2.1013013D-03,-7.4641886D-03,
|
|
|
* 8.9684655D-02,1.5726485D-02,2.1368715D-03,1.5906150D-04,
|
|
|
* -4.3770365D-05,-1.2636291D-05,-1.3063570D-06,-9.5505115D-06,
|
|
|
* 3.5324592D-05,2.6733066D-06,2.0399654D-03,2.1675069D-02,
|
|
|
* 3.3892678D-02,-1.1567008D-02,8.6066674D-04,-2.8470123D-04,
|
|
|
* -4.1587088D-05,-1.5740788D-06,-2.6258798D-06,-6.0016663D-08,
|
|
|
* 4.1138422D-07,-3.2689647D-06,-1.8396978D-05,-7.7394388D-05,
|
|
|
* -2.0831437D-03,9.2761096D-03,-1.2009686D-01,-1.2473420D-03,
|
|
|
* -1.2776129D-03,-1.7049900D-04,5.0140275D-06,-1.0246090D-06/
|
|
|
DATA (D_COEF(J,2,5,2),J=63,121)/2.1190475D-07,1.1581928D-07,
|
|
|
* 4.1546166D-09,1.1797630D-08,-7.6355187D-08,1.0605686D-06,
|
|
|
* -1.0480352D-05,-6.2722869D-05,-2.2845353D-04,-1.9990745D-02,
|
|
|
* -3.5703023D-02,8.8345306D-03,-8.4143908D-04,1.9941148D-04,
|
|
|
* 3.1984243D-06,4.3363327D-07,1.8919439D-07,-2.7811625D-08,
|
|
|
* 1.9419813D-09,8.4171739D-11,-9.9146317D-10,1.3608047D-08,
|
|
|
* -4.3927285D-08,1.9564809D-07,1.4257258D-05,-9.1431412D-05,
|
|
|
* 1.8617898D-03,-6.0801564D-03,1.1771745D-01,-3.1812469D-03,
|
|
|
* 1.0163092D-03,1.2353227D-05,-1.0582738D-05,4.4819621D-07,
|
|
|
* -1.3225237D-07,-3.5994584D-09,1.6869460D-11,-5.2603649D-11,
|
|
|
* -1.3118472D-11,-6.5522511D-12,-3.7675526D-10,-1.8493720D-09,
|
|
|
* 4.8911224D-08,-9.2802923D-07,4.5704390D-06,-5.1529682D-05,
|
|
|
* -3.5411673D-04,1.4711972D-02,3.0942874D-02,-1.1314965D-02,
|
|
|
* 1.0593056D-03,-1.2383176D-04,1.0546113D-05,2.0214107D-07,
|
|
|
* -2.2394457D-08,7.6355676D-09,-3.3486107D-10,2.5184766D-11,
|
|
|
* 2.7550670D-12/
|
|
|
DATA (D_COEF(J,3,5,2),J=1,62)/2.3407727D-02,8.2860691D-02,
|
|
|
* -1.2479949D-01,-4.9143599D-02,-1.3218164D-02,-1.4523771D-01,
|
|
|
* -6.2034512D-02,5.2611113D-02,-7.8603761D-03,-3.1233426D-03,
|
|
|
* 2.6735576D-02,-4.2892569D-02,3.5168585D-01,3.0133118D-02,
|
|
|
* 2.4564266D-02,7.8968565D-03,1.0682368D-03,9.6334716D-04,
|
|
|
* 7.4663105D-03,1.5068676D-01,9.0943158D-02,-6.8951421D-02,
|
|
|
* 3.3412184D-03,-4.7081181D-03,-8.4497192D-04,-1.3624603D-04,
|
|
|
* -3.3446163D-04,3.5932324D-04,-1.8391579D-02,4.5026578D-02,
|
|
|
* -5.5478267D-01,-2.3459908D-02,-1.4915613D-02,-1.6873606D-03,
|
|
|
* 1.0819174D-04,-6.2788787D-05,2.0002833D-06,1.9498212D-05,
|
|
|
* -1.8047046D-04,-4.5540119D-04,-6.6481236D-03,-1.4449998D-01,
|
|
|
* -1.9493430D-01,6.7672652D-02,-4.7696643D-03,2.1124614D-03,
|
|
|
* 8.1996867D-05,-4.1734504D-06,1.1672604D-05,7.3551119D-07,
|
|
|
* -1.1322855D-06,1.6492442D-05,1.0427850D-04,-1.3073719D-04,
|
|
|
* 1.2132161D-02,-5.5240739D-02,6.9233385D-01,2.9043566D-02,
|
|
|
* 9.2238810D-03,8.7008277D-04,-3.6253253D-05,9.6949650D-06/
|
|
|
DATA (D_COEF(J,3,5,2),J=63,121)/-7.6579804D-07,-1.8864829D-07,
|
|
|
* -2.9291231D-08,3.2993090D-08,4.5265531D-08,-3.5513984D-06,
|
|
|
* 6.7217907D-05,2.1538764D-04,5.9896857D-03,1.1555433D-01,
|
|
|
* 3.2250213D-01,-5.4103294D-02,4.4806492D-03,-9.7966996D-04,
|
|
|
* -3.4498817D-05,6.5250927D-07,-1.2354693D-06,8.4824213D-08,
|
|
|
* -2.7246364D-08,-9.9444110D-10,3.1551915D-09,-5.5491005D-08,
|
|
|
* 1.4040732D-07,-3.6465057D-06,-4.9779173D-05,9.4566950D-06,
|
|
|
* -8.4910779D-03,3.8620061D-02,-7.0424820D-01,-2.0513016D-02,
|
|
|
* -6.5269039D-03,-3.8535476D-04,1.8072455D-05,-1.8402979D-06,
|
|
|
* 2.8141627D-07,1.9819755D-08,8.5828741D-10,7.3198531D-10,
|
|
|
* 5.6126482D-11,6.6039931D-11,1.4599472D-09,-1.5063257D-09,
|
|
|
* 5.0789164D-08,8.0671219D-07,-9.4644694D-06,-1.0509945D-04,
|
|
|
* -2.4208531D-03,-7.5904648D-02,-2.2314338D-01,3.5390520D-02,
|
|
|
* -1.5957943D-03,4.3501817D-04,9.7363928D-06,2.2413749D-07,
|
|
|
* 1.0992330D-07,-9.1278671D-09,1.1596968D-09,-1.9071751D-10,
|
|
|
* 2.6985670D-11/
|
|
|
C ..
|
|
|
C
|
|
|
END
|
|
|
|
