1 files changed, 23 insertions, 0 deletions
diff --git a/unix/boot/spp/rpp/ratlibf/fmtdat.f b/unix/boot/spp/rpp/ratlibf/fmtdat.f
new file mode 100644
index 00000000..7a81c9c8
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibf/fmtdat.f
@@ -0,0 +1,23 @@
+      subroutine fmtdat(date, time, now, form)
+      integer date(100), time(100)
+      integer now(7), form
+      date(1) = now(2) / 10 + 48
+      date(2) = mod(now(2), 10) + 48
+      date(3) = 47
+      date(4) = now(3) / 10 + 48
+      date(5) = mod(now(3), 10) + 48
+      date(6) = 47
+      date(7) = mod(now(1), 100) / 10 + 48
+      date(8) = mod(now(1), 10) + 48
+      date(9) = -2
+      time(1) = now(4) / 10 + 48
+      time(2) = mod(now(4), 10) + 48
+      time(3) = 58
+      time(4) = now(5) / 10 + 48
+      time(5) = mod(now(5), 10) + 48
+      time(6) = 58
+      time(7) = now(6) / 10 + 48
+      time(8) = mod(now(6), 10) + 48
+      time(9) = -2
+      return
+      end