gfortran error
authorCezary Czaplewski <czarek@chem.univ.gda.pl>
Thu, 28 Sep 2017 17:11:14 +0000 (19:11 +0200)
committerCezary Czaplewski <czarek@chem.univ.gda.pl>
Thu, 28 Sep 2017 17:11:14 +0000 (19:11 +0200)
source/unres/src_MD-M/readrtns_CSA.F

index 39c718e..2cbb825 100644 (file)
@@ -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')