aboutsummaryrefslogtreecommitdiff
path: root/pkg/tbtables/fitsio/fitssppb/fsgdes.x
diff options
context:
space:
mode:
Diffstat (limited to 'pkg/tbtables/fitsio/fitssppb/fsgdes.x')
-rw-r--r--pkg/tbtables/fitsio/fitssppb/fsgdes.x19
1 files changed, 19 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitssppb/fsgdes.x b/pkg/tbtables/fitsio/fitssppb/fsgdes.x
new file mode 100644
index 00000000..c180304d
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fsgdes.x
@@ -0,0 +1,19 @@
+include "fitsio.h"
+
+procedure fsgdes(iunit,colnum,rownum,nelem,offset,status)
+
+# read the descriptor values from a binary table. This is only
+# used for column which have TFORMn = 'P', i.e., for variable
+# length arrays.
+
+int iunit # i input file pointer
+int colnum # i column number
+int rownum # i row number
+int nelem # o number of elements
+int offset # o offset
+int status # o error status
+
+begin
+
+call ftgdes(iunit,colnum,rownum,nelem,offset,status)
+end