path: root/unix/boot/spp/rpp/ratlibf/getpat.f

integer function getpat (str, pat)
      integer str (100), pat (100)
      integer makpat
      getpat=(makpat (str, 1, -2, pat))
      return
      end