LSR sp4 30x30 DIVIDE BY SS
0r,ta125r	td7r	td10r	td12r	td119r	ao12r	td135r
ca0	dmza1	cp131r	10r,cm0	ts5t	cm0	srh15	ad5t
sf7t	ts6t	slh15	ex7t	ad139r	20r,td26r	cmza1
ts1t	cm1za1	srh15	ad1t	slh0	ts2t	slh15	ts3t
30r,cs1	ts8t	ca0	tst	ts1t	ts4t	cm2t	su0
cp58r	cm2t	40r,dv6t	slh15	ts9t	dm0	cp74r	ca1t
sa9t	ts1t	cs0	cp55r	50r,ca140r	ts1t	cs9t
sp96r	sp87r	cs9t	sp96r	sp42r	cm3t	dm0	60r,cp118r
sp79r	ca0	ex4t	ex3t	ts2t	ao8t	cp69r	sp118r
cm1t	70r,tst	ca0	ts1t	sp39r	cm3t	su0	cp81r
ca3t	cp84r	ca1	80r,sp42r	cs4t	su0	cp62r
ca1t	su1	ts1t	ca4t	sa7t	ts4t	90r,ca3t	sa6t
ts3t	ca2t	ts2t	sp62r	ta117r	ts9t	mh7t	ts5t
100r,slh15	sa4t	ts4t	ca5t	ex9t	mh6t	ts5t
slh15	sa9t	ts9t	110r,ca5t	ex9t	sa3t	ts3t
ca2t	ad9t	ts2t	sp0	caza1	mr0	120r,cp126r
cat	tsza1	ca1t	ts1za1	sp0	cst	tsza1	cs1t
ts1za1	130r,sp125r	dm0	cp135r	ca1	dv0	ca0
dm1za1	cp133r	sp10r	0.01000	140r,0.77777
END OF SUBROUTINE
{61}m