From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Thu, 28 Sep 2017 17:11:14 +0000 (+0200)
Subject: gfortran error
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=commitdiff_plain;h=12cbc12a29258591c69825ec212046c31733e5a2;p=unres.git

gfortran error
---

diff --git a/source/unres/src_MD-M/readrtns_CSA.F b/source/unres/src_MD-M/readrtns_CSA.F
index 39c718e..2cbb825 100644
--- a/source/unres/src_MD-M/readrtns_CSA.F
+++ b/source/unres/src_MD-M/readrtns_CSA.F
@@ -2151,7 +2151,7 @@ c      print *,ithep_pdb," opened"
       call getenv_loc('SIDEPAR',sidename)
       open (isidep,file=sidename,status='old',readonly)
       call getenv_loc('LIPTRANPAR',liptranname)
-      open (iliptranpar,file=liptranname,status='old',action='read')
+      open (iliptranpar,file=liptranname,status='old',readonly)
 #ifndef CRYST_SC
       call getenv_loc('ROTPARPDB',rotname_pdb)
       open (irotam_pdb,file=rotname_pdb,status='old',action='read')