LSR MA5 SYMMETRIC MATRIX INVERSION OR SQUARE ROOT INVERSION
za1={61}
0r,ta2r	sp20r	sp	+0	+0	ta2r	ca50r	sp12r	+1.	10r,ta2r
ca206r	td383r	sp20r	ca3r	ts104r	ts106r	sp380r	+.	20r,ta141r
ca90r	si455	ao2r	ta52r	ao2r	ta31r	ao2r	ta154r	ao2r	30r,ta72r
cs	ts3r	ad3r	ts4r	su95r	ts106r	ao3r	ts104r	ad3r	40r,ts105r
ca82r	td148r	su105r	td65r	td67r	ad95r	td258r	td269r	td289r	50r,td384r
sp142r	ca	td52r	td148r	td382r	ad95r	td81r	ad1	td83r	60r,ao65r
ta63r	ca8r	ts	ca9r	ts	cm4r	bo	ad106r	td67r	70r,ao104r
cp66r	ca	srh15-za1	ts18r	ca0	ts104r	ad1	ts105r	ad3r	80r,ts106r
ca	tst	ca	srh15-za1	ts1t	ca83r	td110r	sp128r	+358r
90r,0.50000	cs106r	ad3r	ts107r	sp128r	+2	+0	+0	+0
+0	100r,ca2t	dmt	cp128r	sp118r	+0	+0	+0	+0	ca
ts2t	110r,ca	srh15-za1	ts3t	su1t	dm0	cp100r	ab0	cp128r	ca2t	tst
120r,ca3t	ts1t	ca106r	su3r	ts105r	ad107r	su1	ts104r	ao110r	ao110r
130r,ta108r	ao107r	cp108r	ao106r	cp91r	ca18r	su1t	dm0	cp153r	ab0
140r,cp156r	sp	ta152r	ao148r	ta146r	ca0	ts	ca19r	ts	ao148r
||||||||||
150r,ao105r	cp143r	sp	cat	dm	cp141r	ca105r	ad1	mh105r	slh15
160r,ad52r	ts106r	td345r	td347r	ad104r	ad104r	td190r	ad1	td193r	ca106r
170r,ad105r	ad105r	td202r	td218r	td219r	td220r	ca104r	ad1	mh104r	slh15
180r,ad52r	td343r	td349r	td351r	ad104r	ad104r	td201r	td221r	td222r	ca0
190r,ex	ts96r	ca19r	ex	ts97r	IN	ics96r	isu96r	its4t	imr4t	200r,its6t
ica	isu	its98r	imr98r	iad6t	isp309r	iad98r	idv4t	its98r	210r,imr98r
iad8r	its4t	ica8r	idv4t	isp309r	iex96r	imr98r	iex	isu	220r,iex	iad
its	OUT	ca89r	td352r	cs104r	ad1	ts107r	cp340r	230r,cs107r	ts107r
ad95r	su105r	sp371r	ca105r	ad3r	sp371r	cm4r	mh104r	240r,slh15	ad90r
ts104r	si449	cm4r	bit	td345r	td347r	ta343r	ta349r	250r,ta351r	cm4r
mh105r	slh15	ad90r	ts105r	si449	cm4r	bi	ao352r	260r,ca3r	sp340r
ca104r	si453	cm4r	bot	ca105r	si453	cm4r	bo	270r,sp75r	ca107r
su4r	ts107r	si449	cm4r	bit	ta290r	ca52r	td292r	280r,td293r	ca3r
ts105r	cs105r	ad3r	ts106r	ca82r	td291r	IN	ica	290r,imr	imr	iad
its	OUT	ca95r	dm0	ab291r	ab292r	ab293r	300r,ao106r	cp288r	ab290r
ao105r	cp283r	ab289r	ao104r	cp271r	sp2r	ita335r	310r,itst	OUT	ca2043
dm0	cp334r	ab0	cp0	ao2042	srh1	ts2042	320r,sp321r	ta331r	IN
||||||||||
its2t	icat	idv2t	iad2t	OUT	ca2042	su1	330r,ts2042	sp	sp321r
sp321r	IN	isp	ao107r	slh1	dm0	sp357r	340r,ta370r	ts106r	IN
ics	imr98r	iad	imr96r	iex	imr98r	iad	350r,imr96r	its	sp
ao107r	slh1	dm0	ab345r	ab343r	sp361r	sp336r	360r,sp353r	ao343r	ao343r
td349r	td351r	ao345r	ao345r	td347r	ao106r	cp342r	370r,sp	ta370r	ts106r	ao352r
sp352r	su3r	ad1	slh1	dm0	ab382r	380r,IN	ica8r	idv	isp	its
OUT	ao384r	ao384r	ao106r	cp375r	390r,su3r	ad95r	mh3r	slh14	ts105r
sp142r	ca90r	sp273r
END OF SUBROUTINE
||||||||||
{61}