X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD-M%2Fshift.F;h=922036d0b1c4c528d1657bb7aed9a6f8d4bea2b2;hb=34d3ad3987785642be58fb2f26557d3314215577;hp=6eb9b3f610a2ef5352b4bf5a596414d586e3dfff;hpb=f690e8b70bab14132839afebf080d4a28363b226;p=unres.git

diff --git a/source/unres/src_MD-M/shift.F b/source/unres/src_MD-M/shift.F
index 6eb9b3f..922036d 100644
--- a/source/unres/src_MD-M/shift.F
+++ b/source/unres/src_MD-M/shift.F
@@ -37,7 +37,7 @@ c---------------------------------
       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
@@ -74,7 +74,7 @@ c---------------------------------
       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")