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

---
 unix/hlib/fc.sh | 30 ++++++++++++++++++++++++++++++
 1 file changed, 30 insertions(+)
 create mode 100755 unix/hlib/fc.sh

(limited to 'unix/hlib/fc.sh')

diff --git a/unix/hlib/fc.sh b/unix/hlib/fc.sh
new file mode 100755
index 00000000..88a0762c
--- /dev/null
+++ b/unix/hlib/fc.sh
@@ -0,0 +1,30 @@
+#!/bin/bash
+#
+# FC.SH -- Link an IMFORT or host fortran program from IRAF.  A front end
+# to XC, the purpose of this script is to determine the IRAF architecture
+# and add the appropriate host compiler file to XC.
+
+
+# Determine the desired architecture.
+IRAFARCH=`$iraf/unix/hlib/irafarch.csh`
+MACH=$IRAFARCH
+
+
+# Set any float option switch.
+case $IRAFARCH in
+    macosx)
+        float="-/arch -//i386"
+        ;;
+    macintel)
+        float="-/arch -//x86_64"
+        ;;
+    linux64)
+        float="-/m64"				# FIXME
+        ;;
+    *)
+        float=""
+        ;;
+esac
+
+# Call XC with the appropriate float option.
+xc $float $@
-- 
cgit