1 



2 

 3 

 4 

 5 

 6 

 7 

 B 

 9 

 10 

 11 

 12 

 13 

 14 

 15 

 16 

 17 

 18 

 19 

 20 

 21 

 22 

 23 

 24 

 25 

 26 

 27 

 28 

 29 

 30 

 31 

 32 

 33 

 34 

 35 

 36 

 37 

 38 

 39 

 40 

 41 

 42 

 43 

 44 

 45 

 46 

 47 

 48 

 49 

 50 

 51 

 52 

 53 

 54 

 55 

 56 



SUBROUTINE HA 

 COMMON /HAN/ 

 INTEGER FLPS, 

 DOUBLE PRECIS 

 COMMON /LIMIT 

 DOUBLE PRECIS 

 1 A.BO.B.CO.C 

 ST0RE3,ST0R 

 ST0R12,ST0R 

 CTP.FR.FI ,F 

 G1 I ,G2R,G2I 

 H21PR,H21PI 

 SPI,S2, T 

 EXPONT.ABK, 

 ZRT4I , 

 DIMENSION A(4 

 1 XPR(40), XPI 

 DATA (A(I) ,1 = 



-7.1792955 

 -2.5899334 

 -2.0151987 

 -5.2004593 

 -5.6605487 

 -3.0313758 

 -8.8908124 

 -1 .5454756 

 -1 .6917245 

 -1 .2234723 

 -6.0782542 

 -2.1423727 

 -5.5047132 

 -1 .0552603 

 -1 .5397716 

 -1 .7402042 

 -1 .5468779 



NKEL 

 H2R,H 

 FLQU 

 ION Z 

 / TLI 

 ION 

 ,DO,D 

 E4,ST 

 13, ST 

 PR, FP 

 ,HnR 

 ,H22P 

 HR,X, 

 ZRTM 

 Z32R 

 0),B( 

 (40), 

 1 ,36) 

 1 .550 

 55318 

 97589 

 99867 

 49754 

 52345 

 50066 

 51067 

 72901 

 86734 

 53654 

 80234 

 531 17 

 73139 

 49669 

 82180 

 28758 

 03396 



(ZR, ZI , IH) 



21 ,H1R,H1 I ,H2PR,H2P 



AD 



MLA2, TLIM, R 



M,EXPONT 



ZR,ZI,H2R,H2I ,H1R, 

 C4, D4,K,K1 

 ORES, STORES, ST0RE7, 

 0R14,ST0R15,ST0R16, 

 I , F1R,F1 I , 



,H1 1 I ,H12R,H12I ,H1 1 

 R,H22PI ,H21R,H21 I ,H 

 XR,XI ,XPR,XPI ,YR,YI 

 2R,ZRTM21 ,ZRTM4R,ZR 

 ,Z32I ,STP,ST0R17,ST 

 40) ,C(40) ,D(40) ,C4( 



C5(20), D5(20), ZM 



/ 

 7278615487157D-001 , 

 12830D-05, 5.438 

 51237D-09, 



I ,H1PR,H1PI,R 



H1I ,H2PR,H2PI ,H1PR,H1PI,A0, 

 ,K2,C0N4, STORE 1 ,ST0RE2, 

 ST0RE8, STORES, ST0R10,ST0R1 1 , 

 ST0R18,C1 ,C2,C3,CPR,CPI,CTHR, 

 F2R,F2I ,GR,GI ,GPR,GPI ,G1R, 

 PR, HI 1 PI ,H12PR,H1 2PI , 

 22R,H22I, PI ,SR,SI ,SPR, 



ZM,ZMS0,ZM1R,ZM1I, 

 TM4I ,ZRT2R,ZRT2I,ZRT2M,ZRT4R, 

 HR,C5,D5, FPI12 

 20) ,D4(20) ,ZMLA2(40) , 

 LA5(20) 



34545D-14, 



700470-20, 



328790-26, 



04588D-32, 



13441D-39, 



39313D-45, 



78018D-52, 



655730-59, 



25146D-67, 



290340-74, 



64415D-82, 



891260-89, 



07537D-97, 



30830D-105, 



46370D-1 13, 



5. 169092 87 182905237D-03, 

 86034 4937975560-0 7, 

 8 . 46383495944285089D-1 2 , 

 3.65072246352779973D-17, 

 5.97 7 5394824 76667 20D-23, 

 4. 49249900 9 7 97879990-29, 



76038086531 129261D-35, 



94096296589855249D-42 , 



39998488 857418350-49, 



77888301 3375085270-56, 



85191690 8 285910780-63, 



18901687 7980096140-70, 



567 05420 0994489410-78, 



895457936230126430-86, 



3174286512 73272 490-93, 



688346142741310720-101 , 



6891 9067 508938360-1 09 , 



338592855137126 780-1 17/ 



DATA (B( I ) ,1 = 1 ,36) / 

 * -5.6524893762022989D- 



1 -1.495367559841878020-05, 9. 



2 -3.994037285902451990-10, 1. 



3 -2.52780770480fD49350D-15, 4. 



4 -5.572768308656290780-21, 5. 



5 -5.34066309073303316D-27, 4. 



6 -2.57019658261 1954820-33, 1. 



7 -6.875088092327653980-40, 2, 



8 -1.102217825003022680-46, 3. 



9 -1 . 12255630004727929D-53, 3, 

 A -7.606879255893286000-61, 1. 

 B -3. 561563187213418130-68, 6. 

 C -1 . 188804503195485240-75, 1, 

 -2.904623697738803090-83, 4. 

 E -5. 313610785006693800-91 , 6. 

 F -7.421557145296762240-99, 7. 

 G -8.05038914195299455D-107, 7. 

 H -6.88468878345390325D-115, 5, 



002, 1 .345830803857690220-03, 

 5856894861 658R4 7Bn-nR. 

 167 84715 9620600 000-12, 

 213012841344155830-18, 

 99222398 7 802463 2 00-24, 

 009506824 874649520-30, 

 4231432351 1 1824370-36, 

 923081671908016150-4 3, 

 711171 127956305320-50, 

 06709371 5976172910-57, 

 72023501 9424080960-64, 

 776185668 214265850-72, 

 9292510600 381 13010-79, 

 06810041 7001 124 7 70-87, 

 487925256418429550-95, 

 96988525 0533464600-103, 

 66265861 59841 9431 D-1 1 1 , 

 84835948305632284D-1 1 9/ 



65 



