change arrays to use abstract pointers

iraf-community · Apr 30, 2017 · b8014ad · b8014ad
1 parent bb5b567
commit b8014ad
Show file tree

Hide file tree

Showing 6 changed files with 9 additions and 6 deletions.
diff --git a/unix/boot/spp/rpp/ratlibf/length.f b/unix/boot/spp/rpp/ratlibf/length.f
@@ -1,5 +1,5 @@
       integer function length (str)
-      integer str (100)
+      integer str (*)
       length = 0
 23000 if (.not.(str (length+1) .ne. -2))goto 23002
 23001 length = length + 1

diff --git a/unix/boot/spp/rpp/ratlibf/scopy.f b/unix/boot/spp/rpp/ratlibf/scopy.f
@@ -1,5 +1,5 @@
       subroutine scopy (from, i, to, j)
-      integer from (100), to (100)
+      integer from (*), to (*)
       integer i, j
       integer k1, k2
       k2 = j

diff --git a/unix/boot/spp/rpp/rppfor/ludef.f b/unix/boot/spp/rpp/rppfor/ludef.f
@@ -1,5 +1,5 @@
       integer function ludef (id, defn, table)
-      integer id (100), defn (100)
+      integer id (*), defn (*)
       integer table
       common /cdefio/ bp, buf (4096)
       integer bp

diff --git a/unix/boot/spp/rpp/rppfor/pbstr.f b/unix/boot/spp/rpp/rppfor/pbstr.f
@@ -1,8 +1,11 @@
       subroutine pbstr (s)
-      integer s(100)
+      integer s(*)
       integer lenstr, i
       integer length
       lenstr = length (s)
+      if (lenstr .eq. 0) then 
+         return
+      endif
       if (.not.(s(1) .eq. 46 .and. s(lenstr) .eq. 46))goto 23000
       if (.not.(lenstr .eq. 4))goto 23002
       if (.not.(s(2) .eq. 103))goto 23004

diff --git a/unix/boot/spp/rpp/rppfor/puttok.f b/unix/boot/spp/rpp/rppfor/puttok.f
@@ -1,5 +1,5 @@
       subroutine puttok (str)
-      integer str (100)
+      integer str (*)
       integer i
       i = 1
 23000 if (.not.(str (i) .ne. -2))goto 23002

diff --git a/unix/boot/spp/rpp/rppfor/sdupl.f b/unix/boot/spp/rpp/rppfor/sdupl.f
@@ -1,5 +1,5 @@
       integer function sdupl (str)
-      integer str (100)
+      integer str (*)
       integer mem( 60000)
       common/cdsmem/mem
       integer i