X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Fdihed_cons.F;fp=source%2Funres%2Fsrc_MD%2Fdihed_cons.F;h=e45405f28565bf2c40d7a5b2f8f0b3e0c366f8a4;hb=52187c9365594597457799445140ea830f1141a3;hp=1fb6c53bbeb0c489f559b648997484b25e439139;hpb=951f0fe4ce7a66542c398754524d8ae3d9b5dc5a;p=unres.git

diff --git a/source/unres/src_MD/dihed_cons.F b/source/unres/src_MD/dihed_cons.F
index 1fb6c53..e45405f 100644
--- 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