From 40e5a5811c6ffce9b0974e93cdd927cbcf60c157 Mon Sep 17 00:00:00 2001
From: Joe Hunkeler <jhunkeler@gmail.com>
Date: Tue, 11 Aug 2015 16:51:37 -0400
Subject: Repatch (from linux) of OSX IRAF

---
 pkg/tbtables/fitsio/fitsspp.com | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 pkg/tbtables/fitsio/fitsspp.com

(limited to 'pkg/tbtables/fitsio/fitsspp.com')

diff --git a/pkg/tbtables/fitsio/fitsspp.com b/pkg/tbtables/fitsio/fitsspp.com
new file mode 100644
index 00000000..04e4ad79
--- /dev/null
+++ b/pkg/tbtables/fitsio/fitsspp.com
@@ -0,0 +1,23 @@
+# FITSSPP.COM -- Common block definitions used in fitsspp.x.
+
+define	NB		20		# number of file buffers
+define	NE		200		# maximun allowed number of extensions
+					#  in the FITS files
+define	MAXFILES	199		# more than needed
+
+# The following common is used throughout the fitsio code.
+int	bufnum, chdu, hdutyp, maxhdu, hdstrt, hdend, nxthdr, dtstrt
+int     nxtfld
+bool	wrmode
+
+common	/ft0001/ bufnum[MAXFILES],chdu[NB],hdutyp[NB],maxhdu[NB],
+	wrmode[NB],hdstrt[NB,NE],hdend[NB],nxthdr[NB],dtstrt[NB],nxtfld
+
+int	compid
+common	/ftcpid/compid
+
+int	buflun, reclen, bytnum, filesize, recnum, bufid
+
+common	/ftsbuf/buflun[NB],reclen[NB],
+	bytnum[NB],filesize[NB],recnum[NB],bufid[MAXFILES]
+
-- 
cgit