File: SNGL.RA of Disk: V50/Source/Source-Listing-RALF-1

(Source file text) 

---

/R=SNGL(D) DOUBLE PREC. TO REAL
/
/
/ VERSION 50A 23-MAY-80 WVDM
/
/
	SECT	SNGL
	DPCHK
	BASE	0
	FLDA	0
	STARTD
	FSTA	RETRN
	FADD	TWO
	FSTA	3
	FLDA%	3
	FSTA	3
	STARTE
	FLDA%	3
	STARTF
RETRN,	0;0
TWO,	0;2


---