File: SNGL.RA of Tape: Sources/Fortran/s2

(Source file text) 

---

/	SUBROUTINE SNGL  -   DBL PREC TO REAL
	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

---