fc TAPE 131-238-919 ABRAMOWITZ
|GAMMA FUNCTION
(24,6)
c1,+0.5	c2,+12.0	c3,+2.5066283	c4,+288.0	c5,+10.0	c7,+1.0	c9,+0.0	b1,+0.1	b2,+0.1
b3,+2.0	a1,icab1	isub3	icpd1	STOP	d1,icac9	itsb27	icac7	itsb9	a4,icab27	isuc5
icpa15	icab1	iadb27	itsb7	imrb9	itsb9	icab27	iadc7	itsb27	ispa4	a15,icab7	iadc1
itsb17	icab7	ispm1	imrb19	isub7	ispk1	idvb9	imrc3	itsb2	icac7	idvb7	itsb4	imrb4
idvc4	iadc7	itsb6	icab4	idvc2	iadb6	imrb2	iTOAp27.23841t	icab1	iTOAp27.23841c	iadb2
itsb1	ispa1
m1,
|||||||||||||||||||||||||
LSR FU 3 LN x
za1=+6
0,ita32r	1,OUT	2,ca33r	3,ex2042	4,su33r	5,sf35r
6,tst	7,cs35r	8,ad34r	9,slh15-za1	10,ts1t	11,IN
|||||||||||||||||||||||||
12,isu36r	13,its2t	14,imr40r	15,iad42r	16,imr2t	17,iad44r
18,imr2t	19,iad46r	20,imr2t	21,iad48r	22,imr2t	23,iad50r
|||||||||||||||||||||||||
24,imr2t	25,iad52r	26,imr2t	27,iad54r	28,imr2t	29,iext
30,imr38r	31,iadt	32,isp0	33,+1	34,+15	35,+0
|||||||||||||||||||||||||
MULTIPLE
36,+1.		38,+.6931471806		40,-.0064535442
42,+.0360884937		44,-.0953293897		46,+.1676540711
48,-.2407338084		50,+.3317990258		52,-.4998741238
54,+.9999964239
|||||||||||||||||||||||||
END OF SUBROUTINE
{61}k1,
LSR FU1 EXPONENTIAL SUBROUTINE
||||||||||
za1=b
0r,ita38r	OUT	cs2042	su39r	ts54r	cp7r	sp9r	cs39r	ts2042	IN
10r,its+za1	idv52r	iad40r	imr+za1	idv50r	iad40r	imr+za1	idv48r	iad40r	imr+za1
20r,imr46r	iad40r	imr+za1	idv44r	iad40r	imr+za1	imr42r	iad40r	imr+za1	iad40r
30r,isp33r	IN	imr+za1	its+za1	OUT	ao54r	cp31r	IN	isp	+2
40r,+1.		+.5		+3.		+.25		+5.	
50r,+6.		+7.		+0
||||||||||
END OF SUBROUTINE
{61}b27,+0.0	b7,+0.0	b9,+0.0	b17,+0.0	b4,+0.0	b6,+0.0	b19,+0.0
a4|icac5
isub27
i START AT a1
l