Initial commit

1 files changed, 24 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/fitssppb/fsgsve.x b/pkg/tbtables/fitsio/fitssppb/fsgsve.x
new file mode 100644
index 00000000..b65e565f
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fsgsve.x
@@ -0,0 +1,24 @@
+include "fitsio.h"
+
+procedure fsgsve(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
+                  nulval,array,anyflg,status)
+
+# Read a subsection of real 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
+real    nulval          # i value for undefined pi
+real    array[ARB]      # o array of values
+bool    anyflg          # o any null values?
+int     status          # o error status
+
+begin
+
+call ftgsve(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
+                  nulval,array,anyflg,status)
+end