open(icsa_seed,file=csa_seed,status="unknown")
write(icsa_seed,*) "seed"
close(31)
-#if defined(AIX) || defined(PGI)
+#if defined(AIX) || defined(PGI) || defined(CRAY)
open(icsa_history,file=csa_history,status="unknown",
& position="append")
#else
include 'COMMON.CSA'
include 'COMMON.BANK'
-#if defined(AIX) || defined(PGI)
+#if defined(AIX) || defined(PGI) || defined(CRAY)
open(icsa_history,file=csa_history,position="append")
#else
open(icsa_history,file=csa_history,access="append")