|||||||||||||||||||||||||
LSR DE 1 RUNGE KUTTA
za1={61}	za2={61}	za3={61}	za4={61}	za5={61}
0r,ita47r	icrza1+za1+2		2r,icaza3		3r,its2za5+za1+za1+c	ict3r
OUT	cs58r	tsza5+za1+za1+za1+za1+za1+za1+6	ca0r	td21r	ca2r	td35r	ca20r
td34r	ca48r	td37r	sp32r		17r,IN	icrza1+1	
|||||||||||||||||||||||||
19r,ispza4+c		20r,its4za5+za1+za1+za1+za1+c		21r,imr	
	22r,iad2za5+za1+za1+c	its2za5+za1+za1+c	ict19r	OUT	aoza5+za1+za1+za1+za1+za1+za1+6
cp32r	ca22r	td34r	ca36r	td37r		32r,IN	icrza1+1
|||||||||||||||||||||||||
34r,icac		35r,imr		36r,iadza2+c		37r,itsc
ict34r	OUT	ao21r	ao21r	ao35r	ao35r	su57r	cp17r
IN		47r,isp		48r,za5	+1.
|||||||||||||||||||||||||
+2.	+2.	+1.		57r,imrza3+8		58r,+3
|||||||||||||||||||||||||
END OF SUBROUTINE
{61}m