From fa080de7afc95aa1c19a6e6fc0e0708ced2eadc4 Mon Sep 17 00:00:00 2001
From: Joseph Hunkeler <jhunkeler@gmail.com>
Date: Wed, 8 Jul 2015 20:46:52 -0400
Subject: Initial commit

---
 pkg/tbtables/fitsio/unix/README   | 15 +++++++++++++++
 pkg/tbtables/fitsio/unix/ftgcbf.x | 17 +++++++++++++++++
 pkg/tbtables/fitsio/unix/ftpcbf.x | 20 ++++++++++++++++++++
 pkg/tbtables/fitsio/unix/mkpkg    | 11 +++++++++++
 4 files changed, 63 insertions(+)
 create mode 100644 pkg/tbtables/fitsio/unix/README
 create mode 100644 pkg/tbtables/fitsio/unix/ftgcbf.x
 create mode 100644 pkg/tbtables/fitsio/unix/ftpcbf.x
 create mode 100644 pkg/tbtables/fitsio/unix/mkpkg

(limited to 'pkg/tbtables/fitsio/unix')

diff --git a/pkg/tbtables/fitsio/unix/README b/pkg/tbtables/fitsio/unix/README
new file mode 100644
index 00000000..b3d8619b
--- /dev/null
+++ b/pkg/tbtables/fitsio/unix/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 ../vms/ directory which uses the %ref function.
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
diff --git a/pkg/tbtables/fitsio/unix/ftpcbf.x b/pkg/tbtables/fitsio/unix/ftpcbf.x
new file mode 100644
index 00000000..4f830011
--- /dev/null
+++ b/pkg/tbtables/fitsio/unix/ftpcbf.x
@@ -0,0 +1,20 @@
+# This is the non-VMS version.  A character string variable is passed
+# to an integer array argument.
+#
+#     FTPCBF -- Write a sequence of characters to a file. 
+
+# 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.  Won't work on a VAX.
+        call ftpbyt (iunit, nbytes, array, status)
+end
diff --git a/pkg/tbtables/fitsio/unix/mkpkg b/pkg/tbtables/fitsio/unix/mkpkg
new file mode 100644
index 00000000..5a284614
--- /dev/null
+++ b/pkg/tbtables/fitsio/unix/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
+	;
-- 
cgit