1 files changed, 18 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitssppb/fspthp.x b/pkg/tbtables/fitsio/fitssppb/fspthp.x
new file mode 100644
index 00000000..1c11c2e9
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fspthp.x
@@ -0,0 +1,18 @@
+include "fitsio.h"
+
+procedure fspthp(ounit,heap,status)
+
+# Define the starting address for the heap for a binary table.
+# The default address is NAXIS1 * NAXIS2.  It is in units of
+# bytes relative to the beginning of the regular binary table data.
+# This routine also writes the appropriate THEAP keyword to the
+# FITS header.
+
+int     ounit           # i output file pointer
+int     heap            # i heap starting address
+int     status          # o error status
+
+begin
+
+call ftpthp(ounit,heap,status)
+end