Initial commit

1 files changed, 19 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/fitssppb/fspdes.x b/pkg/tbtables/fitsio/fitssppb/fspdes.x
new file mode 100644
index 00000000..ca1561f1
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fspdes.x
@@ -0,0 +1,19 @@
+include "fitsio.h"
+
+procedure fspdes(ounit,colnum,rownum,nelem,offset,status)
+
+# write the descriptor values to a binary table.  This is only
+# used for column which have TFORMn = 'P', i.e., for variable
+# length arrays.
+
+int     ounit           # i output file pointer
+int     colnum          # i column number
+int     rownum          # i row number
+int     nelem           # i number of elements
+int     offset          # i offset
+int     status          # o error status
+
+begin
+
+call ftpdes(ounit,colnum,rownum,nelem,offset,status)
+end