LSR DE 2 KUTTA-GILL
zf1={61}	zn1={61}	zt1={61}	zn2=zn1+zn1
0r,ita3r	icr5	ict4r	isp	icx38r	ispzf1	icrzn1	ica8zt1+zn2+zn2+c	icx38r
imr38r+c	its4zt1	icx38r	ica8zt1+zn2+c	imr2zt1	icx38r	imr46r+c	its6zt1	imr54r+c
iad4zt1	its4zt1	imr64r	isu6zt1	icx38r	iad8zt1+zn2+zn2+c	its8zt1+zn2+zn2+c
ica8zt1+c	iad4zt1	its8zt1+c	ict7r	isp31r	isp35r	ica2zt1	imr48r
iadzt1	itszt1	ita29r	icx38r	isp2r	+0	+0	MULTIPLE	40r,-1.	-.2928932188
-1.7071067812	-.3333333333	48r,+.5	+.2928932188	+1.7071067812	+.5
56r,+1.	+1.	+1.	+.3333333333	64r,+3.
END OF SUBROUTINE
{61}m