Repatch (from linux) of OSX IRAF

1 files changed, 20 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/vms/ftgcbf.x b/pkg/tbtables/fitsio/vms/ftgcbf.x
new file mode 100644
index 00000000..709f5eb0
--- /dev/null
+++ b/pkg/tbtables/fitsio/vms/ftgcbf.x
@@ -0,0 +1,20 @@
+# This is the VMS version.  A character string variable is passed
+# to an integer array argument using %ref.
+#
+# 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.  Note that we use %ref.
+        call ftgbyt (iunit, nbytes, %ref (array), status)
+end