A large commit.

[pdp8.git] / sw / os8 / v3d / sources / fortran / all / sngl.ra

diff --git a/sw/os8/v3d/sources/fortran/all/sngl.ra b/sw/os8/v3d/sources/fortran/all/sngl.ra
new file mode 100644 (file)
index 0000000..dc24e71
--- /dev/null
+++ b/sw/os8/v3d/sources/fortran/all/sngl.ra
@@ -0,0 +1,21 @@
+/      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
+\f