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
{61}t