fc TAPE 10285-25-160 p3 SAFFREN
(24,6)	NOT PA
ui1=i1		|A(DA (Vector input))
ui2=i2		|A(DA(R))
ui3=i3		|A(ID)
ui4=i4		|A(Diag. crit.)
un1=n1		|A(N)
un2=n2		|A(L)
un3=n3		|A(E ctr.crit.)
un4=n4		|A(E ctr.initial)
up1=p1		|A( DA (log.der.))
up2=p2		|A(DA(coeff. matrix))
up3=p3		|(DA(H-E))
up4=p4		|A(DA(E+Trans.))
ut1=t1		|A(log.der)
ut2=t2		|A(coeff. matrix)
ut3=t3		|A(matrix cols.)
ut4=t4		|A(H-E)
ut5=t5		|A(E+Trans.)
ut6=t6		|A(vector input)
um1=m1		|A(b.l. log. der.)
um2=m2		|A(b.l. coeff.)
um3=m3		|A(ref. dis. row)
uk1=k1		|A(curr. order)
uk2=k2		|A(consec. sol. ind.)
uk3=k3		|A(diagonalization suppr.)
pr1=r1		|A(DIB)
pr2=pr1+5	|A(DOB)
pa1=s1		|A (Scope disp.)
pa2=pa1+20	|A (SCOPE SKIP)
pa3=pa1+40	|A (scope clear)
pa4=s2		|A(index and head)
pa5=pa1+137	|A(Scope reentry)
pa6=pa4+41
pa7=pa6+3
pa8=pa1+96	|A(scope exit store)
||||||||||
ud3=50
||||||||||
DA32|32|0r,
2r|i3,
1r|n1,
1r|i4,
1r|0r,
1r|0r,
1r|i1,
1r|0r,
1r|i2,
1r|k3,
1r|p1,
1r|p3,
1r|p2,
1r|p4,
51|
||||||||||
r1,
||||||||||
0r,ta21r	ca3r	sp7r	bi451+512	bo455+512	ta21r	ca4r	ts20r	td18r	ao21r
10r,ta11r	ca	td20r	ao21r	ta17r	ao21r	ta19r	ca	0	ca
20r,0	sp
||||||||||
ze3=f1
d1,cauk3	cpze3	caui4	tsd5	cauk1	tsd2	slh1	adup4	tsd3	sppr2	d13	d13	2048-d13	caup3	si451+512
cad2	ad1	mhd2	slh15	biut4	tad4	tad11	spa1	d2,0	d3,0	d4,0	d5,0
||||||||||
ca0	tsd12	d6,aod12	dmd2	0r,cp2r	spd16	clc16	ad1	mhd12	slh15	add4	su1	tdd9
su1	tdd7	cad12	su1	slh1	add4	tdd8	ad1	tdd10	d7,ca	d8,ts	d9,ca	d10,ts	spd6
d16,caup4	si455+512	cad2	slh1	d11,bo	sppr1	d13	d13	2048-d13	spze3	d12,0
||||||||||
||||||||||
LSR
zb1=b	zb2=b+1	zb3=b+2	zb4=b+3	zd1=pr1	zd2=pr2	zj1={61}
t=d14
a1,taa16	csa54	tsa10	caa5	tda4	a2,aoa16	taa3
a3,ca	a4,ts	aoa4	aoa10	cpa2	a5,caa53	slh1	ts2a10	ts2a28
ts2a29	ts2a31	ts2a32	ada28	tda8	tsa10	tsa29	tsa32	cs2a10
ad1	ts1a28	caa28	tda7	a6,IN	icaa50	a7,its	OUT	aoa7
aoa7	ao1a28	cpa6	IN	icsa51	a8,its	OUT	ca0	ts1a29
a9,ca1a29	spa41	ts1a10	sp+zd2	a10,+0	+0	+0	caa10
su1	su1	tsa10	ao1a29	ad1	sua53	cpa9	a55,ca3a53
ts2a10	ca2a53	ad1	tda12	ca0	ts1a10	spa56	a11,ca0	tsa10
a12,ca	srh9-zj1	su2a10	dm0	cpa13	ab0	cpa15	ad2a10	ts2a10
ca0	ts1a31	a13,caa12	su1	tda14	a14,cm	dm1a31	cpa15
ab0	ts1a31	caa10	ts1a28	ca1a10	ts1a29	a15,aoa12	aoa12
aoa10	ad1	su1a10	cpa12	a56,aoa12	aoa12	ao1a10	ad1
sua53	cpa11	cs3a53	ad2a10	a16,cp	ca1a28	spa43	ad1a28	ad1a28
tda17	tda21	ca1a29	spa43	ad1a28	ad1a28	tda18	su1a28	su1a28
ad1a29	ad1a29	tda19	tda20	IN	a17,ica	its+zb1	icaa50	a18,iex
imra52	itsa10	imra10	its+zb3	a19,ica	its+zb2	isu+zb1	its+zb4
imr+zb4	iad+zb3	ispa45	its+zb3	ica+zb1	isu+zb2	icpa57
iad+zb3	idva10	ispa58	a57,isu+zb3	its+zb3	icsa10	idv+zb3	a58,its+zb3	imr+zb2
isua10	imr+zb3	iad+zb1	iex+zb2	iad+zb1	iex+zb3	its+zb1	imr+zb1
isua51	iex+zb2	idv+zb2	iex+zb3	isu+zb3	a20,its	ica+zb3	a21,its
icsa51	idv+zb2	ispa45	its+zb2	OUT	cs1	tsa10
||||||||||
spa27	a22,caa10	su1a29	cpa23	caa10	spa43	ad1a29	ad1a29
spa24	a23,ca1a29	spa43	ada10	ada10	a24,tda35	tda36
caa10	su1a28	cpa25	caa10	spa43	ad1a28	ad1a28	spa26	a25,ca1a28
spa43	ada10	ada10	a26,spa33	a27,aoa10	su1a28	dm0
cpa27	caa10	su1a29	dm0	cpa27	caa10	ad1	sua53	cpa22
ca1a28	spa41	ts1a28	ts1a31	sp+zd1	a28,t	+0	+0	ca1a29
spa41	ts1a29	ts1a32	sp+zd1	a29,+0	+0	+0	ca0	tsa10
a30,caa10	slh1	ad2a28	ada28	tda35	tda36	su2a28	spa33
aoa10	ad1	sua53	cpa30	sp+zd2	a31,t	+0	+0	sp+zd2
a32,+0	+0	+0	spa55	a33,taa40	tda34	tda38
tda39	IN	a34,ics	imr+zb1	a35,iad	imr+zb2	a36,iex
imr+zb1	a38,iad	imr+zb2	a39,its	a40,sp	a41,taa42	mha53
slh16	ad1a53	a42,sp	a43,taa44	tst	mht	slh15	adt
ad2a53	a44,sp	a45,itaa48	its+zb3	OUT	ao2042	srh1	ts2042
spa46	a46,taa47	IN	its+zb4	ica+zb3	idv+zb4	iad+zb4	imra49
a47,sp	spa46	spa46	IN	a48,isp	a49,+.5	a50,+0.	a51,-1.	a52,-2.
a53,+0	+0	+0	+0	a54,+3
END OF SUBROUTINE
||||||||||
||||||||||
d13,t4,
1056r|d14,
128r|d15,
-1184r|
||||||||||
k1,0	k2,0	m1,0	m2,0	m3,0	n2,0	n3,0	n4,0
za1=b	ze1=c1	ze5=33	ze7=d1
v1,cs1	tsb24	b1,csuk2	srh16	cpb23	aob24	csb24	b23,adun1	cpv1	tsuk1	suun1	dm0	0r,cp2r	spze7
aoun4	suun3	su1	0r,cp2r	b21,spze5	adun3	mhum1	slh15	adup1	si451+512	caum1	biut1
tdb13	suun2	suun2	su1	su1	tdb14	caut1+2	dmb18	cpb16	IN	icaut1+2	itspa7	OUT
||||||||||
ca0	tsb11	b2,ca0	tsb10	aob11	dmun1	0r,cp2r	spze1	b3,aob10	dmb11	0r,cp2r	spb2	clc16
su1	slh1	tsb12	cab11	su1	mhb11	slh15	adb12	tsb12	mhum2	slh14	adup2	si451+512
caum2	biut2	tdb6	cab13	tdb5	0r,car	ts2042	b4,cs1	su1	dm0	abb6	abb5	sub14
ad1	cpb22	IN	itsza1	b5,ica	b6,imr	spb7	iadza1	spb4
b22,IN	itsza1	icsut1+2	imrut2	iadut2+2	iadza1	itsb15	OUT	caup3	adb12	si455+512	ao1
bob15	spb3
||||||||||
b7,cm2043	su0	cpb8	ca2042	sub9	cpb8	sp2018	b8,car	ts2042	ca0	ts2043
ts2044	sp2018	b9,-17
||||||||||
b16,tab17	adb18	b17,cp	clc16	sdb19	0r,cpb20	su0	cpb21	b20,ck	b18,0.37777	b19,rs
||||||||||
b10,0	b11,0	b12,0	b13,0	b14,ica	b15,+.0	b24,0
||||||||||
s1,
LSR 194-25-449 m8 SAFFREN
za1={61}
0r,zr1=r
0r,ta19r	sp92r	ca	ad	mh	slh12	ad	slh3	ts46r	ca
10r,ad	mh39r	slh12	ad38r	slh3	ts47r	ca0	ts2r	sp	sp
20r,ta19r	sp92r	ao	dm	ad1	cp36r	ca0	ts	ao	dm
30r,ad1	cp36r	ca	td19r	ca0	ts	ca19r	sp	0.07400	1.74777
40r,ta19r	sp92r	ca0	ts	sp35r	10	0	0	1.77400	0.25252
50r,ta78r	ad70r	td55r	ca0	td56r	cs	clc	cp71r	ca56r	clc8
60r,mr49r	ts18r	md48r	ad47r	si384	cs48r	md18r	dv49r	slr15	ad46r
70r,rc80r	ao56r	clc11	cp75r	sp55r	ca79r	ad46r	ts46r	sp	0.02000
80r,1.73336	1.64544	1.71636	1.62636	0.23732	1.63716	1.73716	0.44436	1.73736	1.63736
90r,0.05640	0.01600	ta133r	ts134r	ao19r	ta96r	ca	cp140r	sp140r	ta37r
100r,dm0	td32r	ao37r	ta6r	ao37r	ta4r	ts18r	ao37r	ca32r	ad1
110r,ts2r	td22r	td27r	td43r	ad1	ts9r	td28r	td35r	ad1	td3r
120r,ad1	td10r	ad1	td23r	ad1	td29r	ts127r	ca	cp133r	ao2r
130r,ta9r	ao23r	ta29r	sp	0	sp136r	si4	ao96r	td19r	sp36r
||||||||||
|MRA
spzr1+99	1.70330	0.37000
0r,sp3r	td2019	sp2019	ca2043	tszr1+134	clc17	adzr1+45	spzr1+50	ca96r	spzr1+50
10r,ca2042	ts40r	clc17	slh1	ad85r	ts25r	ca2044	tszr1+9	sa78r	cp97r
20r,cs2042	su90r	cp27r	aozr1+2	IN	0	sp20r	adzr1+136	cp23r	ad81r
30r,ex40r	ts2042	cp35r	cszr1+2	tszr1+2	ca91r	exzr1+9	ex2044	srh15	ad2043
40r,0	ts40r	slh15	exzr1+134	ts2043	cmzr1+134	mhzr1+45	ts25r	slr15	tszr1+134
50r,cm40r	mhzr1+45	tszr1+127	slr15	sa25r	ts40r	cazr1+127	su0	cp78r	spzr1+50
60r,aozr1+9	cp45r	ca95r	spzr1+50	ca2042	clc17	adzr1+45	spzr1+50	cmzr1+2	mh92r
70r,tszr1+134	slh15	mhzr1+45	exzr1+134	spzr1+50	cazr1+134	spzr1+50	spzr1+22	ca1	suzr1+9
80r,ad91r	srr511	cp59r	aozr1+2	sp45r	imr86r	0.63146	1.74462	0.50000	0.04000
90r,3	-7+za1	0.06315	0.40404	0.20000	-zr1-80+93r	-zr1-80+94r	ao2044	sp20r
||||||||||
|AC
98zr1|sp99r
99r|
|MRA
||||||||||
spzr1+99	1.70330	0.17400
0r,sp3r	exzr1+134	spzr1+134	cazr1+134	clc17	adzr1+45	tszr1+127	cmzr1+134	mh32r	srh11
10r,sp11r	ta23r	tszr1+9	slh15	exzr1+9	suzr1+2	cp33r	exzr1+127	spzr1+50	cs0
20r,tszr1+2	aozr1+9	mhzr1+45	sp	sp11r	sp11r	exzr1+2	su0	exzr1+2	sp11r
30r,sp11r	spzr1+22	0.15067	sp35r	sp21r	tazr1+78	spzr1+75
|AC
||||||||||
END OF SUBROUTINE
{61}s2,
0r,ta32r	ao32r	ta3r	ca	td10r	ad46r	td12r	capa8	td40r	sppa3
10r,0	ao1	td	sppa3	33r	si4	ca41r	sppa1	33r	ca42r
20r,sppa1	33r	ca43r	sppa1	33r	IN	ica44r	sppa1	-33-r	OUT
30r,ca40r	tdpa8	sp	0	0	0	0	0	4	-40
40r,0	0	0	0	+.0	4
47r,
||||||||||
ze2=d1
c1,ca0	tsc10	sppa4	c7	ca0	tsc8	c4,aoc10	dmun1	0r,cp4r	cac9	tsum3	spze2
4r,clc16	su1	mhc10	slh15	adup3	si451+512	cac10	tsc3	slh1	biut3	tac6	tdc11
c5,IN	c6,ica	sppa1	-c7	OUT	aoc6	aoc6	suc11	ad1	cpc5	spc4
||||||||||
c2,OUT	aoc8	su1
su1	su1	cppa5	ca0	tsc8	cac10	ad1	exc9	adc9	exc9	adc9	dmc12	cppa5
sppa4	c7	sppa5
c7,c2	0	0	c8,0	c9,0	1	c3,0	c10,0	c11,ica	c12,40
||||||||||
za1=b
ze4=b1
f1,sppa3	f10	cauk1	tsf20	ad1	ad1	tsf13	adum3	adf21	ad1	tsf11	adf13	dmf15	0r,cp3r	sppa4	f10
3r,ca0	tsf12	cs1	tsf18	f2,aof18	dmf20	0r,cp5r	caf11	adf13	tsum3	spze4	5r,clc16	slh1	cpf6	adf7	su1
su1	tdf3	IN	f3,ica	sppa1	-f10	sppa2	-f10	OUT	caf18	mhf20	slh16	adup4
si451+512	caf20	slh1	f19,bi	taf5	tdf17	f4,IN	f5,ica	sppa1	-f10	OUT	aof5
aof5	suf17	ad1	cpf4	spf2
||||||||||
f6,caup4	si451+512	caf20	slh1	f7,biut5	taf9	tdf17	tdf19	IN	icaf16	f8,IN
itsza1	f9,ica	sppa1	-f10	imrza1	OUT	
aof9	aof9	suf17	ad1	cpf8	ca0	tsf22	ca2042	f28,dmf23	0r,cp2r	spf24
clc16	ts2042	cmf22	su0	cpf25	sppa1	f10	spf26	f25,sppa2	-f10	f26,sppa1	-f10	spf2
||||||||||
f14,OUT	ca0	tsf12	caf13	ad1	exf11	adf11	exf11
adf11	su1	dmf15	cppa5	caf18	dmf20	ad1	0r,cp2r	sppa5
sppa4	f10	sppa5	f10,f14	0	0	f12,0	f11,0
4	f13,0
||||||||||
f24,tsf27	aof22	ca2042	srh16	sdf27	spf28	f22,0	f23,330	f27,0
|||||||||
f15,40	f16,+1.0	f17,ica	f18,0	f20,0	f21,4
||||||||||
ze6=v1
	g1,caui1	si451+512	rd	su1	tsg12	si448+512	biut6	tag7	tdg13
cag12	srh2	su1	tsun1	ex0	slh2	su1	cpg2	su1	0r,cp2r	g2,ck
caun1	dmg14	0r,cp2r	ck	caui2	si451+512	ao1	bipa7	caui3	tspa6	tspa6+1	tspa6+2	sppa4
g11	aog7	tag3	aog7	IN	g3,ica	sppa1	-g11	sppa2	g11	spg6	g4,sppa2
g11	aog7	tag5	g5,ca	sppa1	g11	spg6	g6,tag8	g7,ca	sppa1	g11	aog7
sug13	ad1	g8,cp	cpg6	cpg4	cag13	su1	tdg10	su1	tdg9	g9,ca	srh16	tsuk2	clc16	tsun4
g10,ca	tsun3	ca1	slh2	adup1	si451+512	rd
tsun2	tspa6+1	si448+512	rd	tsup2	ca1	slh2	ad1	adun2	slh1
tsum1	cs1	slh2	adum1	tsum2	caun1	ad1	mhun1	slh15	mhum2	slh14	adup2	tsup3	caun1
ad1	mhun1	slh15	adup3	tsup4	caui4	tspa6+2	spze6	g11,0	0	0	0	0	5	-40
g12,0	g13,ca	g14,32
||||||||||
g15,
||||||||||
||||||||||
t6,t1,t3,t5,
74r|t2,
||||||||||
DA2042|2042|51-g15	spg1
OCT
START AT ud3
