/	SUBROUTINE SNGL  -   DBL PREC TO REAL
/
/ VERSION 5A 4-26-77 MH
/
	SECT	SNGL
	DPCHK
	BASE	0
	FLDA	0
	STARTD
	FSTA	RETRN
	FADD	TWO
	FSTA	3
	FLDA%	3
	FSTA	3
	STARTE
	FLDA%	3
	STARTF
	JA	RETRN
RETRN,	0;0
TWO,	0;2