Merge branch 'devel' of mmka.chem.univ.gda.pl:unres into devel

[unres.git] / source / unres / src_MD / dihed_cons.F

diff --git a/source/unres/src_MD/dihed_cons.F b/source/unres/src_MD/dihed_cons.F
index 1fb6c53..e45405f 100644 (file)
--- a/source/unres/src_MD/dihed_cons.F
+++ b/source/unres/src_MD/dihed_cons.F
@@ -23,7 +23,7 @@ cdr      call getenv_loc('SECPREDFIL',secpred)
 #elif (defined G77)
       open(isecpred,file=secpred,status='old')
 #else
-      open(isecpred,file=secpred,status='old',readonly)
+      open(isecpred,file=secpred,status='old',action='read')
 #endif
 C read secondary structure prediction from JPRED here!
 !      read(isecpred,'(A80)',err=100,end=100) line