File: SNGL.RA of Tape: Sources/Fortran/os8-f4-3
(Source file text)
/R=SNGL(D) DOUBLE PREC. TO REAL / / / VERSION 40A 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