1 files changed, 20 insertions, 0 deletions
diff --git a/pkg/tbtables/fitsio/fitssppb/fsgrec.x b/pkg/tbtables/fitsio/fitssppb/fsgrec.x
new file mode 100644
index 00000000..440c8bdb
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitssppb/fsgrec.x
@@ -0,0 +1,20 @@
+include "fitsio.h"
+
+procedure fsgrec(iunit,nrec,record,status)
+
+# Read the Nth 80-byte header record
+# This routine is useful for reading the entire header, one
+# record at a time.
+
+int     iunit           # i input file pointer
+int     nrec            # i number of keywords
+char    record[SZ_FCARD]     # o 80-char header record
+%       character frecor*80
+int     status          # o error status
+
+begin
+
+call ftgrec(iunit,nrec,frecor,status)
+
+call f77upk(frecor,record,SZ_FCARD)
+end