fc TAPE 22-10-2 WELLS
(24,6)
t=6k2
DA33|33|+1.	-1.	+0.	+.5	+57.295780	+.07453293	+3.1415927	+4.7123890	+1.5707963
51|p2,+0.	2p2,+0.	4p2,+0.	6p2,+0.	8p2,+0.	10p2,+0.	12p2,+1.0	14p2,+0.	67|16p2,+0.
z1,+0.	2z1,+0.	4z1,+0.	6z1,+0.	s1,+0.	2s1,+0.	4s1,+0.	6s1,+0.	s2,+0.	2s2,+0.	4s2,+0.	6s2,+0.	z2,+0.	2z2,+0.
4z2,+0.	6z2,+0.	8z2,+0.	120|spb1	121|spb3	122|spb5	b1,cab2	tdr7	spr1	b2,spd1	d1,IN	icr4
ica37	iexs1+c	itss2+c	ict2d1	icr5	ica37	itsz2+c	ict7d1
isp1024
OUT	cad4	cf467	d4,+34	b3,cab4	tdr7	spr1	b4,spd2
d2,IN	ica6s1	isu6s2	itsz1	ica4s2	isp1a1	imrz1	imr12p2	itsz1	iadz2	itsz2	d3,ica4s1	isu4s2	imr12p2
its2z1	iad2z2	its2z2	icaz1	imrz1	iad4z2	its4z2	ica2z1	
imr2z1	iad6z2	its6z2	icaz1	imr2z1	iad8z2	its8z2
icap5	iadc3	itsp5	isp1024	OUT	cad5
cf467	d5,+35	r1,IN	ics8p2	imr8p2	iad33	imr6p2	isu12p2	
idv12p2	idv8p2	imr35	ispa5	imr35	iad47	iad4p2	itss1
ispa1	itsz1	icap2	ispa1	its2z1	imr35	imrz1	ispa5	
imr35	iad49	its4s1	isp1a1	itsz1	ica4s1	ispa1
idvz1	itsz1	icap2	isp1a1	idv2z1	imrz1	ispa5	
imr35	iad49	icpr2	r3,itsz1	ispr4	r2,imr35	ispr3	r4,ica2p2
isu45	icpr5	ica2p2	isuz1	isp2r5	r5,ica2p2	iadz1	its6s1	r7,sp
a1,
LSR FU4a RAPID SIN-COS
0r,iad64r	imr66r	OUT	ca2042	su0	cp32r	su1	cp57r	su59r	cp11r
10r,sp0	ad61r	ts18r	cm2043	ts2043	cm2044	srh15	ad2043	+0	clh1
20r,ts18r	md63r	clh1	cp47r	sf2042	ts2043	slh15	ex2044	sd18r	cp52r
30r,cs2042	ts2042	IN	ita46r	its2t	imr2t	itst	imr68r	iad70r	imrt
40r,iad72r	imrt	iad74r	imrt	iad76r	imr2t	isp	sd62r	clh16	sd62r
50r,clh16	sp24r	cs2043	ts2043	cs2044	ts2044	sp30r	ca60r	sp12r	+28
60r,srh1	slh27	1.77777	0.77777	MULTIPLE	+1.570796327	+.636619772	+.0001514842
70r,-.0046737656	+.0796896793	-.6459637111	+1.570796318
END OF SUBROUTINE
a3,
LSR FU 2b (30-j,j) SQUARE ROOT
za1=2k2	za2=4k2
0r,ita26r	its+za1	OUT	ca2043	dm0	cp25r	ab0	cp0
ao2042	srh1	ts2042	sp12r	ta22r	IN	its+za2	ica+za1	idv+za2
iad+za2	OUT	ca2042	su1	ts2042	sp	sp12r	sp12r	IN
isp
END OF SUBROUTINE

a4,
LSR FU 7 ARC TAN
0r,ita33r	its4t	2r,itst	icp34r	iad54r	5r,icp32r
icat	iad38r	iext	isu38r	10r,idvt	itst	imrt	its2t
imr54r	15r,iad52r	imr2t	iad50r	imr2t	iad48r	20r,imr2t
iad46r	imr2t	iad44r	imr2t	25r,iad42r	imr2t	iad40r
imrt	iad56r	30r,iex4t	icp36r	ica4t	33r,isp0	34r,ics4t
35r,isp2r	36r,ics4t	37r,isp33r	38r,+1.	40r,+.9999993329
42r,-.3332985605	44r,+.1994653599	46r,-.1390853351	48r,+.0964200441
50r,-.0559098861	52r,+.0218612288	54r,-.004054058	56r,+.7853981634
END OF SUBROUTINE
a5,

LSR FU6 arc sin x
MULTIPLE
0,ita15r	itsb	ica18r	icx32r	icr6	5,imrb	iad20r+c	ict5r	its4t	ica16r	isub	isp36r
imr4t	iad34r	icx32r		15,isp		16,+1.		18,-.0022959648	+0.0111462294
-.0268999482		24,+.0488025043	-.0887556286	+.2145852647	-1.5707961728
32,+0	+0		34,+1.570796327
36,
0r,ita26r	its2t	OUT	ca2043	dm0	cp31r	ao2042	srh1
ts2042	ca29r		10r,ts2044	ex2043	cp0	IN	itst
ica2t	idvt	iadt	imr27r	iext		20r,isut	idvt
isu29r	icp25r	isp15r	icat	isp	0.40000	+0	0.77777
	30r,1.51000	IN	isp26r
||
+0	+0	
+15	b5,ca16p2	sf-2b5	ts16p2	cs-2b5	adb5-1	slr9	ts17p2
IN	icr5	b8,icaz2+c	idv16p2	itsz2+c	ictb8
b6,icsz2	imrz2	iad4z2	its4z2	ics2z2	imr2z2	iad6z2	its6z2	icsz2	imr2z2	iad8z2	its8z2
b7,ica4z2	isu6z2	itsk1	imrk1	its2k1	f1,ica8z2	idv39	
its4k1	imr4k1	its6k1	iad2k1	ispa3	iadk1	idv4k1
ispa4	f2,itsk1	isp1a1	its2k1	imr2k1	its4k1	icak1	
ispa1	its6k1	imr6k1	its8k1	imr6z2	its10k1	ica4k1	imr4z2
iad10k1	its10k1	ica2k1	imr6k1	idv39	imr8z2	iad10k1		
ispa3	f3,its12k1	ica4k1	imr6z2	its10k1	ica8k1
imr4z2	iad10k1	its10k1	ics2k1	imr6k1	idv39	imr8z2	
iad10k1	ispa3	f4,its10k1	ica2k1	imrz2
its4k1	ica6k1	imr2z2	iad4k1	its4k1	ica6k1	imrz2	
its8k1	ics2k1	imr2z2	iad8k1	its8k1	ica4k1	ispf5	ica8k1	ispf5
ica12k1	ispf5	ica10k1	ispf5	icak1	imr41	iTOA+n1.2345678cc	
iSTOP	f5,itaf6	imrk2	iTOA+n1.2345678ssss
f6,isp	k1,+0.	DITTO	14r|k2,+3440.	DITTO	20r|
c1,ita2c2	icpc2	isuc3	icp2c2	isp1024	isp2c2	c2,iadc3	icp1024	isp	c3,+1.
1024|itap4	OUT	cs2	MOAp123.x215c	0.34305	IN	iFOR	+5	+4	+38	icr4
e1,ica44+c	iMOA+n1.2345678f	icte1
icr11	p1,ica98+c	iMOA+n1.2345678f	ictp1	icr21	p3,ica200+c	iMOA+n1.2345678f	ictp3
OUT	0.34345	IN	icaz1	iMOA+n1.2345678f
ica2z1	iMOA+n1.2345678f	p4,isp	p5,+.
START AT 26
v