From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 unix/boot/spp/rpp/ratlibf/mntoc.f | 52 +++++++++++++++++++++++++++++++++++++++
 1 file changed, 52 insertions(+)
 create mode 100644 unix/boot/spp/rpp/ratlibf/mntoc.f

(limited to 'unix/boot/spp/rpp/ratlibf/mntoc.f')

diff --git a/unix/boot/spp/rpp/ratlibf/mntoc.f b/unix/boot/spp/rpp/ratlibf/mntoc.f
new file mode 100644
index 00000000..5a54ec16
--- /dev/null
+++ b/unix/boot/spp/rpp/ratlibf/mntoc.f
@@ -0,0 +1,52 @@
+      integer function mntoc (buf, p, defalt)
+      integer buf (100), defalt
+      integer p
+      integer i, tp
+      integer equal
+      integer c, tmp (128)
+      integer text (170)
+      data text /  6, 97, 99, 107, -2, 7, 98, 101, 108, -2, 8, 98, 115, 
+     *-2, -2, 24, 99, 97, 110, -2, 13, 99, 114, -2, -2, 17, 100, 99, 49,
+     * -2, 18, 100, 99, 50, -2, 19, 100, 99, 51, -2, 20, 100, 99, 52, -2
+     *, 127, 100, 101, 108, -2, 16, 100, 108, 101, -2, 25, 101, 109, -2,
+     * -2, 5, 101, 110, 113, -2, 4, 101, 111, 116, -2, 27, 101, 115, 99,
+     * -2, 23, 101, 116, 98, -2, 3, 101, 116, 120, -2, 12, 102, 102, -2,
+     * -2, 28, 102, 115, -2, -2, 29, 103, 115, -2, -2, 9, 104, 116, -2, 
+     *-2, 10, 108, 102, -2, -2, 21, 110, 97, 107, -2, 0, 110, 117, 108, 
+     *-2, 30, 114, 115, -2, -2, 15, 115, 105, -2, -2, 14, 115, 111, -2, 
+     *-2, 1, 115, 111, 104, -2, 32, 115, 112, -2, -2, 2, 115, 116, 120, 
+     *-2, 26, 115, 117, 98, -2, 22, 115, 121, 110, -2, 31, 117, 115, -2,
+     * -2, 11, 118, 116, -2, -2/
+      tp = 1
+23000 continue
+      tmp (tp) = buf (p)
+      tp = tp + 1
+      p = p + 1
+23001 if (.not.(.not. (((65.le.buf (p).and.buf (p).le.90).or.(97.le.buf 
+     *(p).and.buf (p).le.122)) .or. (48.le.buf (p).and.buf (p).le.57)) .
+     *or. tp .ge. 128))goto 23000
+23002 continue
+      tmp (tp) = -2
+      if (.not.(tp .eq. 2))goto 23003
+      c = tmp (1)
+      goto 23004
+23003 continue
+      call lower (tmp)
+      i = 1
+23005 if (.not.(i .lt. 170))goto 23007
+      if (.not.(equal (tmp, text (i + 1)) .eq. 1))goto 23008
+      goto 23007
+23008 continue
+23006 i = i + 5
+      goto 23005
+23007 continue
+      if (.not.(i .lt. 170))goto 23010
+      c = text (i)
+      goto 23011
+23010 continue
+      c = defalt
+23011 continue
+23004 continue
+      mntoc=(c)
+      return
+      end
-- 
cgit