1 files changed, 19 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitssppb/fssnul.x b/pkg/tbtables/fitsio/fitssppb/fssnul.x
new file mode 100644
index 00000000..6a11962b
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fssnul.x
@@ -0,0 +1,19 @@
+include "fitsio.h"
+
+procedure fssnul(ounit,colnum,nulval,status)
+
+# ascii table Column NULl value definition
+# Define the null value for an ASCII table column.
+
+int     ounit           # i output file pointer
+int     colnum          # i column number
+char    nulval          # i value for undefined pixels
+%       character*16 fnulva
+int     status          # o error status
+
+begin
+
+call f77pak(nulval,fnulva,16)
+
+call ftsnul(ounit,colnum,fnulva,status)
+end