Initial commit

1 files changed, 17 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/unix/ftgcbf.x b/pkg/tbtables/fitsio/unix/ftgcbf.x
new file mode 100644
index 00000000..20cf860a
--- /dev/null
+++ b/pkg/tbtables/fitsio/unix/ftgcbf.x
@@ -0,0 +1,17 @@
+# FTGCBF -- Read a sequence of characters from a file into the output
+# character string buffer.  The sequence may begin on any byte boundary and
+# may be any number of bytes long.  An error status is returned if less than
+# the requested amount of data is read.
+
+procedure ftgcbf (iunit, convrt, nbytes, array, status)
+
+int     iunit           #I fortran unit number
+int     convrt          #I convert to ASCII? (not used in SPP version)
+int     nbytes          #I number of bytes to be transferred
+%	character*(*)	array
+int     status          #U output error status
+
+begin
+	# Get the data.  Won't work on VAX.
+        call ftgbyt (iunit, nbytes, array, status)
+end