Initial commit

4 files changed, 64 insertions, 0 deletions

diff --git a/pkg/tbtables/fitsio/vms/README b/pkg/tbtables/fitsio/vms/README
new file mode 100644
index 00000000..8c54270f
--- /dev/null
+++ b/pkg/tbtables/fitsio/vms/README
@@ -0,0 +1,15 @@
+# These routines are part of the FITSIO library and are designed to run in
+# the IRAF/SPP environment.
+#------------------------------------------------------------------------------
+#   This software was prepared by High Energy Astrophysics Science Archive
+#   Research Center (HEASARC) at the NASA Goddard Space Flight Center. Users
+#   shall not, without prior written permission of the U.S. Government,
+#   establish a claim to statutory copyright.  The Government and others acting
+#   on its behalf shall have a royalty-free, non-exclusive, irrevocable,
+#   worldwide license for Government purposes to publish, distribute,
+#   translate, copy, exhibit, and perform such material.
+#------------------------------------------------------------------------------
+#
+# The two files ftgcbf.x and ftpcbf.x were extracted from [-]fitsspp.x
+# into this directory because they are system dependent.  There is
+# another version in the [-.unix] directory.
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
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
diff --git a/pkg/tbtables/fitsio/vms/mkpkg b/pkg/tbtables/fitsio/vms/mkpkg
new file mode 100644
index 00000000..5a284614
--- /dev/null
+++ b/pkg/tbtables/fitsio/vms/mkpkg
@@ -0,0 +1,11 @@
+# FITSIO -- Update the system-dependent subroutines in the FITSIO library.
+
+$checkout libtbtables.a ../
+$update   libtbtables.a
+$checkin  libtbtables.a ../
+$exit
+
+libtbtables.a:
+	ftpcbf.x
+	ftgcbf.x
+	;