114 

 115 

 116 

 117 

 118 

 119 

 120 

 121 

 122 

 123 

 124 

 125 

 126 

 127 

 128 

 129 

 130 

 131 

 132 

 133 

 134 

 135 

 136 

 137 

 138 

 139 

 140 

 141 

 142 

 143 

 144 

 145 

 146 

 147 

 148 

 149 

 150 

 151 

 152 

 153 

 154 

 155 

 156 

 157 

 158 

 159 

 160 

 161 

 162 

 163 

 164 

 165 

 166 

 167 

 168 

 169 

 170 



* -.358697 

 » -.bblUJb 



* -.808391 



* -.110075 



* -. 143815 



* -.182643 

 DATA(C5(I), I 



* -.802083 



* -.377863 



* -.677192 



* -.976843 



* -.127662 



* -.157646 



* -.187634 



* -.217624 



* -.247610 



* -.277209 

 DATA(D5{I), I 



* -.677083 



* -.371259 



* -.672159 



* -.972617 



* -.127290 



* -.157311 



* -.187326 



* -.217338 



* -.247340 



* -.275868 

 DATA (ZIVILA5( I 



* 22.6, 18.5, 

 DATA LA2, LA5 

 DATA (ZIV1LA2(I 



12.69443010-12 

 24.9271494D-2, 

 1475215D0, 1 



31 



46.602070200,8 

 51 .716363401 

 63.354974401 

 75.391716601 

 88.016339901 

 91 .057519302, 1 



DATA 

 DATA 

 DATA 

 DATA 



CI / 

 C2 / 

 C3 / 

 PI / 3 

 DATA FPI12 / 

 DATA C0N4 / 

 9.304367 

 6.782987 

 4.652183 

 6.782987 

 0.85366 

 ZMSO = ZR*ZR 

 RZR = ZR 

 TEMP = ZI 

 IF (TEMP .LT 

 IF (RZR .LE. 



AO = 

 BO = 

 CO = 

 DO = 

 K = 



03054434667370002, 



3b448057570000002, 



9802992951438D002, 



98935585749100003, 



82552263232700003, 



08105005668610003/ 

 1,19) / 



33333333333220000, 



53593898852400001, 



61704049238570001, 



36200979706920001, 



07438002797210002, 



30887783273850002, 



39420525811750002, 



96686030703260002, 



42850013399850002, 



79241646002400002/ 



= 1 ,19) / 



33333333333220000, 



03088615039470001 , 



26158079361730001, 



6955678393129D001 , 



75204990961410002, 



19656707000070002, 



6140557309258D002, 



74945489829100002, 



46352953744400002, 



62583 465528640002/ 



) , 1 = 1,17) / 1 .E9,715. , 



16.6, 14.7, 14. , 12.9, 1 

 /36, 17/ 



),I=1 ,40) / 



,4.73 482440-6,7.08037130 



1 .52673010-1 ,3.53247720- 



.7731 14100,2.5617 74900,3 



. 1490 97200,9.85141 1200, 1 

 1 .9540 30901 ,2 .303024601 ,2 

 3.7541 24601 ,4.080298001 ,4 

 5.9582285D1 ,6.453785801 ,7 

 8.694576601 ,9.259425501 ,9 



. 103982802,1 . 182016902/ 



.57735 02691896257600 / 



.66666 66666666666600 / 



.86602 54037844386400 / 



. 14159265358979324D0 / 



1 .3089969389957471800/ 

 .707106781186547524400/ 



169292294270-01 



251442758710-01 



584646147140-01 



25144275871D-01 



72188389515600 



+ZI*ZI 



. 45423931 7 1 1 94671 5330002 , 

 .6790 8 743957 298515690002, 

 .94894955810820384810002, 

 . 1S63823305425793323D003, 

 . 16241253560510208670003, 



22855 

 52746 

 82699 

 1 1267 

 14265 

 17263 

 20262 

 23262 

 26254 



450236 

 231607 

 549413 

 213747 

 358922 

 997303 

 943441 

 048426 

 300552 



96682 

 1 1059 

 40274 

 68006 

 46475 

 95179 

 40785 

 05378 

 69059 



4530001 , 

 8620001 , 

 0750001 , 

 8060002, 

 7740002, 

 6500002, 

 7240002, 

 8200002, 

 4930002, 



22029 

 52180 

 82241 

 11227 

 14230 

 17231 

 20233 

 23234 

 26222 



147982 

 102894 

 865333 

 766y67 

 176248 

 939820 

 302328 

 359923 

 528770 



06278 

 98877 

 52991 

 10b/8 

 921 13 

 27220 

 19351 

 94561 

 88035 



0150001 , 

 8220001 , 

 8370001 , 

 781 UUO:^ , 

 6010002, 

 7020002, 

 9550002, 

 375D002, 

 571D002, 



207. , 103. , 47. , 36.4, 27. 

 2.2, 11.5, 10.8, 9.2 / 



-4,9.63989320-3, 

 1 ,6.78352770-1 , 

 .995718100,5.215932700, 

 .2320405D1 ,1 .4917923D1 , 

 .644684401 ,2.929282001 , 



5. 



7, 



.578493301 

 .0701 377D1 

 .983446D1 , 



.0287133D1 , 

 .5978472D1 , 



0.) TEMP = -TEMP 

 0.) GO TO 51 



67 



