fc TAPE 399-304-4 HARRINGTON
(24,6)
a1,+2.	+0.	+1.	+0.	+1.	+1.	+0.	+2.	h1,+0.	h2,+0.	h3,+20.
c2,
LSR DE 2 KUTTA-GILL
zf1=b1	zn1=2	zt1=c1	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}c1,+0.	+.1	+0.	+0.	+0.	+0.	+0.	+0.	+0.	+0.
b1,ica10c1	its12c1	ics10c1	imr4a1	iada1	its2a1	b3,ica8c1	isu8a1	icpb2
ica6a1	iad14a1	its6a1	iad10a1	its8a1	ispb3	b2,ica8c1	isu6a1	its12a1	ica2a1
isu12a1	its14c1	isp6c2	d1,iFRA	iFOC2	+0.	+20.0	+0.	+5.	iSCX	+0.
+0.	+40	+25	iFOR	+6	+5	+500	c4,isc0	icr20	c6,isc1	icr20
c3,isc2	icr10	c7,isc3	c5,ispc2	isc2	f1,icac1	isuh2	itsh1	ica10c1	iSOC	h1	ictc7	icac1
iMOA+123.4567f	ica8c1	iMOA+123.4567f	ica10c1	iMOA+1.2345f	isc1	ictc3	iFRA
iSCX	+0.	+0.	+40	+25	icah2	iadh3	itsh2	isc0	ictc6	iMOAend
iSTOP
i START AT d1
v