LSR MA4 MATRIX DIAGONALIZATION (SYMMETRIC)
||||||||||
za1={61}
0r,ta99r	cs310r	ts293r	ca317r	td8r	ao99r	ta7r	ca	ts	ao8r
10r,ao293r	cp5r	sp13r	ca312r	slh1	ts292r	ad316r	td36r	td44r	td215r
20r,td238r	cs292r	ts293r	ca316r	td28r	sp32r	IN	ica304r	its	OUT
30r,ao28r	ao28r	ao293r	cp26r	IN	ics306r	its	OUT	ca0	ts293r
40r,ca293r	sp257r	si455	ca292r	bo	ca44r	su1	su1	ts44r	ao293r
50r,su312r	ad1	cp40r	ca315r	ts295r	ca314r	ad310r	td62r	ca1	ts294r
60r,ca0	ts293r	ca	srh9-za1	su295r	dm0	cp73r	ab0	cp85r	ad295r
70r,ts295r	ca0	ts311r	ca62r	su1	td76r	cm	dm311r	cp85r	ab0
||||||||||
80r,ts311r	ca293r	ts290r	ca294r	ts291r	ao62r	ao62r	ao293r	su294r	ad1
90r,cp62r	ao62r	ao62r	ao294r	su312r	ad1	cp60r	cs315r	ad295r	cp
100r,ca290r	sp262r	ad290r	ad290r	td118r	td158r	ca291r	sp262r	ad290r	ad290r
110r,td121r	su290r	su290r	ad291r	ad291r	td126r	td156r	IN	ica	its4t
120r,ica304r	iex	imr308r	its298r	imr298r	itst	ica	its6t	isu4t	its296r
130r,imr296r	iadt	isp269r	isu296r	idv298r	its300r	imr300r	isu306r	itst	ics306r
140r,idvt	its302r	isp269r	its296r	imr300r	imr306r	its294r	ica6t	imr300r	isu298r
150r,imr300r	iad4t	imr302r	iex4t	iad6t	isu4t	its	ica4t	its	OUT
||||||||||
160r,cs1	ts293r	sp192r	ca293r	su290r	cp171r	ca293r	sp262r	ad290r	ad290r
170r,sp175r	ca290r	sp262r	ad293r	ad293r	td244r	td252r	td254r	td255r	ca293r
180r,su291r	cp187r	ca293r	sp262r	ad291r	ad291r	sp191r	ca291r	sp262r	ad293r
190r,ad293r	sp240r	ao293r	su290r	dm0	cp192r	ca293r	su291r	dm0	cp192r
200r,ca293r	su312r	ad1	cp163r	ca290r	sp257r	ts290r	si451	ca292r	bit
210r,ca291r	sp257r	ts291r	si449	ca292r	bi	ca0	ts293r	ca293r	slh1
220r,ad316r	td244r	td252r	td254r	td255r	ad292r	sp240r	ao293r	su312r	ad1
230r,cp218r	ca290r	si453	ca292r	bot	ca291r	si453	ca292r	bo	sp53r
||||||||||
240r,ta256r	td247r	td250r	IN	ics	imr294r	its298r	ica	imr296r	iad298r
250r,iex	imr294r	iex	imr296r	iad	its	sp	ta261r	mh312r	slh16
260r,ad313r	sp	ta268r	tst	mht	slh15	adt	ad314r	sp	ita287r
270r,itst	OUT	ao2042	srh1	ts2042	sp276r	ta283r	IN	its2t	icat
280r,idv2t	iad2t	imr288r	sp	sp276r	sp276r	IN	isp	0.40000	0.00000
290r,+0	+0	+0	+0	+0	+0	+0	+0	+0	+0
300r,+0	+0	+0	+0	+0.	-1.	+2.
310r,+3	+0	+0	+0	+0	+0	sit	si312r
END OF SUBROUTINE
||||||||||
{61}m