1 files changed, 1 insertions, 1 deletions
diff --git a/src/IO.hh b/src/IO.hh
index 2857cbc..f88d49d 100644
--- a/src/IO.hh
+++ b/src/IO.hh
@@ -113,7 +113,7 @@ extern "C"{
 //================Ansi C interface
 #include "IOProtos.h"
 //==== f77 interface
-#ifdef CRAY
+#if defined(CRAY) && defined(T3E)
   // Cray fortran uses an _fcd data structure to pass strings.  This is in preparation
   // for using this on Crays, but since nobody is using them yet, I've left the code for
   // these versions of the routines blank.  It'll be filled in later if the need arises