aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/fitsio/fitssppb/fsgsfb.x
diff options
context:
space:
mode:
Diffstat (limited to 'pkg/tbtables/fitsio/fitssppb/fsgsfb.x')
-rw-r--r--pkg/tbtables/fitsio/fitssppb/fsgsfb.x23
1 files changed, 23 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitssppb/fsgsfb.x b/pkg/tbtables/fitsio/fitssppb/fsgsfb.x
new file mode 100644
index 00000000..2f5be792
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fsgsfb.x
@@ -0,0 +1,23 @@
+include "fitsio.h"
+
+procedure fsgsfb(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
+ array,flgval,anyflg,status)
+# Read a subsection of byte 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 array[ARB] # o array of values
+bool flgval[ARB] # o is corresponding value undefined?
+bool anyflg # o any null values?
+int status # o error status
+
+begin
+
+call ftgsfb(iunit,colnum,naxis,naxes,fpixel,lpixel,inc,
+ array,flgval,anyflg,status)
+end