Repatch (from linux) of OSX IRAF

1 files changed, 35 insertions, 0 deletions

diff --git a/unix/boot/spp/rpp/ratlibf/itoc.f b/unix/boot/spp/rpp/ratlibf/itoc.f
new file mode 100644
index 00000000..3ceea6a7
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibf/itoc.f
@@ -0,0 +1,35 @@
+      integer function itoc (int, str, size)
+      integer int, size
+      integer str (100)
+      integer mod
+      integer d, i, intval, j, k
+      integer digits (11)
+      data digits (1) /48/, digits (2) /49/, digits (3) /50/, digits (4)
+     * /51/, digits (5) /52/, digits (6) /53/, digits (7) /54/, digits (
+     *8) /55/, digits (9) /56/, digits (10) /57/, digits (11) /-2/
+      intval = iabs (int)
+      str (1) = -2
+      i = 1
+23000 continue
+      i = i + 1
+      d = mod (intval, 10)
+      str (i) = digits (d+1)
+      intval = intval / 10
+23001 if (.not.(intval .eq. 0 .or. i .ge. size))goto 23000
+23002 continue
+      if (.not.(int .lt. 0 .and. i .lt. size))goto 23003
+      i = i + 1
+      str (i) = 45
+23003 continue
+      itoc = i - 1
+      j = 1
+23005 if (.not.(j .lt. i))goto 23007
+      k = str (i)
+      str (i) = str (j)
+      str (j) = k
+      i = i - 1
+23006 j = j + 1
+      goto 23005
+23007 continue
+      return
+      end