Repatch (from linux) of OSX IRAF

1 files changed, 24 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/fitssppb/fsgsvj.x b/pkg/tbtables/fitsio/fitssppb/fsgsvj.x
new file mode 100644
index 00000000..7c2144f8
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fsgsvj.x
@@ -0,0 +1,24 @@
+include "fitsio.h"
+
+procedure fsgsvj(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
+                 nulval,array,anyflg,status)
+
+# Read a subsection of integer values from the primary array.
+
+int     iunit           # i input file pointer
+int     colnum           # i colnum number
+int     naxis           # i number of axes
+int     naxes[ARB]      # i dimension of each axis
+int     fpixel[ARB]     # i first pixel
+int     lpixel[ARB]     # i last pixel
+int     inc[ARB]        # i increment
+int     nulval          # i value for undefined pi
+int     array[ARB]      # o array of values
+bool    anyflg          # o any null values?
+int     status          # o error status
+
+begin
+
+call ftgsvj(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
+                  nulval,array,anyflg,status)
+end