update

[unres.git] / source / unres / src_MD-M / together.F

diff --git a/source/unres/src_MD-M/together.F b/source/unres/src_MD-M/together.F
index d94d221..3b0cd3f 100644 (file)
--- a/source/unres/src_MD-M/together.F
+++ b/source/unres/src_MD-M/together.F
@@ -810,7 +810,7 @@ c  receives and stores data from soldiers
       include 'COMMON.CONTACTS'
       dimension ind(9),xout(maxvar),eout(mxch*(mxch+1)/2+1)
 cjlee
-      double precision przes(3),obr(3,3)
+      double precision przes(3),obr(3,3),cout(2)
       logical non_conv
 cjlee
       iw_pdb=2
@@ -1213,7 +1213,7 @@ c----------------------------------------------------------
       include 'DIMENSIONS'
       include 'COMMON.IOUNITS'
 
-#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")