j GLN 



' GLN 



! GLN 



1 GLN 



GLN 



DATA GLN 



i GLN 



! SLN 



5 GLN 



t GLN 



5 GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



GLN 



DATA GLN 



(521/1. 



(54) /l. 

 (56) /I. 

 (58) /l. 

 (60) /l. 

 ( 6 1 ) / 1 . 

 (63) / 1 . 

 (65)/2. 

 (67)/2. 

 (691/2. 

 (7D/2. 

 (73)/2. 

 (75)/' 2. 

 (11) 12, 

 (79)/2. 

 (811/2. 

 (831/2, 

 (85) /2. 

 (87)/3, 

 (891/3. 

 (91) /3, 

 (931/3, 

 (951/3, 

 (971/3, 

 (991/3, 



4095 

 3311 

 3274 

 958 

 D338 

 6281 

 8661 

 1681 

 5322 

 9564 

 4390 

 9783 

 5729 

 2211 

 9216 

 6731 

 4742 

 3239 

 2209 

 1641 

 1526 

 1852 

 2611 

 3794 

 5390 



925845E+02/, 



282166E+02/, 



454484E+02/, 



484070E + 02/', 



28B614E+02/ 



734237E+02/, 



816729E+02/, 



994826E+02/, 



414946E+02/, 



418191E+02/, 



43565BE+02/, 



895618E+02/, 



140962E+02/, 



355500E+02/, 



497986E+02/, 



242B57E+02/, 



926876E+02/, 



500943E+02/, 



4B6470E+02/, 



935802E+02/, 



396202E+02/, 



877038E+02/, 



819792E+02/, 



070623E+02/, 



855194E+02/, 



GLN (531/1. 56360836303 1E+02/ 



GLN ( 55 1/1. 64320 1122632E+02/ 

 GLN ( 57 1/1. 72352797 1392E+02/ 

 GLN (59)/ 1.8045629 14 175E+02/ 



GLN (62) /'l. 

 GLN(64) 12. 

 GLN(66)/2. 

 GLN(68)/2. 

 GLN (70 1/2. 

 GLN(72) 12. 

 GLN(74) 12. 

 GLN(76)/2. 

 GLN(78)/2. 

 GLN (SO) 12. 

 GLN(82) /2. 

 GLN(84)/2. 

 GLN(86)/2. 

 GLN(8S)/3. 

 GLN(90) /3. 

 GLN(92)/3. 

 GLN(94)/3. 

 GLN(96)/3. 

 GLN(98)/3. 

 GLN (100) /3 



73904 

 00931 

 34253 

 73693 

 19054 

 70172 

 26884 

 89040 

 56494 

 29109 

 06757 

 89313 

 76660 

 68685 

 65282 

 66349 

 71788 

 81505 

 95411 

 91342 



72B78E+02/ 



63993E+02/ 



67525E+02/ 



41140E+02/ 



83237E+02/ 



34428E+02/ 



9 3 E + 2 / 



22097E+02/ 



097 19E+02/ 



76510E+02/ 



34404E+02/ 



32954E+02/ 



13508E+02/ 



67657E+02/ 



99499E+02/ 



91267E+02/ 



71969E+02/ 



88708E+02/. 



8040BE+02/ 



053696E+02/ 



5 NDX = X 



T=X-FLOAT(NDX) 

 IF(T.EQ.O.O) GO TO 51 

 DX=XLIM1-X 

 IF(DX.LT.O.O) GO TO 40 



RATIONAL CHEBYSHEV APPROXIMATION ON 2.LT.X.LT.3 FOR GAMMA (X) 



NXM=NDX-2 



PX = PCOE(D 



DO 10 1=2,9 

 10 PX = T*PX+PCOE ( I ) 



QX=QCDE(1) 



DO 15 1=2,4 

 15 QX=T*QX+QCOE(I) 



DGAM=PX/QX 



IF(NXM.GT.O) GO TO 22 



IF(NXH.EQ.O) GO TO 25 



BACKWARD RECURSION FOR 0.LT.X.LT.2 



DGAM=DGAM/(1.+T) 

 IF(NXM.EQ.-l) GO TO 25 

 DGAM=DGAM/T 

 GAMLN=ALOG(DGAM) 

 RETURN 



FORWARD RECURSION FOR 3.LT.X.LT.8 



Figure A3. (Sheet 24 of 25) 

 A28 



GLN66 



GLN67 



GLN68 



GLN69 



GLN70 



GLN71 



GLN72 



GLN73 



GLN74 



GLN75 



GLN76 



GLN77 



GLN78 



GLN79 



GLNeO 



GLN81 



GLN82 



GLN83 



GLN84 



GLN85 



GLN86 



GLN87 



GLN88 



GLN89 



GLN90 



GLN91 



GLN92 



GLN93 



GLN94 



GLN95 



GLN96 



GLN97 



GLN98 



GLN99 



GLN 100 



GLN101 



GLN 102 



GLN103 



GLN104 



GLN105 



GLN106 



GLN 107 



GLN108 



GLN109 



GLN110 



GLNlli 



GLN112 



GLN113 



GLN114 



GLN115 



GLN116 



GLN117 



GLN11B 



GLN119 



GLN i 20 



