1 files changed, 30 insertions, 0 deletions
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 $@