Initial commit

1 files changed, 18 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/vms/ftpcbf.x b/pkg/tbtables/fitsio/vms/ftpcbf.x
new file mode 100644
index 00000000..bba325b2
--- /dev/null
+++ b/pkg/tbtables/fitsio/vms/ftpcbf.x
@@ -0,0 +1,18 @@
+# This is the VMS version.  A character string variable is passed
+# to an integer array argument using %ref.
+
+# FTPCBF -- Write a sequence of characters to a file.  The sequence may begin 
+# on any byte boundary and may be any number of bytes long.
+
+procedure ftpcbf (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
+	# Write the data.  Note that we use %ref.
+        call ftpbyt (iunit, nbytes, %ref (array), status)
+end