X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fparmread.F;fp=source%2Funres%2Fsrc-HCD-5D%2Fparmread.F;h=721d05be8158e839ed8ae4331a3ceb86665acca8;hb=ba90a41f4674924a0bdc00452b59506a2acfa54a;hp=7550fd58b37d3c8bda754b010abba1d9bb7921b9;hpb=ab695e2bb5e28825f160d84875b68d48c5c0f493;p=unres.git

diff --git a/source/unres/src-HCD-5D/parmread.F b/source/unres/src-HCD-5D/parmread.F
index 7550fd5..721d05b 100644
--- a/source/unres/src-HCD-5D/parmread.F
+++ b/source/unres/src-HCD-5D/parmread.F
@@ -462,6 +462,7 @@ C here will be the apropriate recalibrating for D-aminoacid
 c      write (2,*) "Start reading THETA_PDB",ithep_pdb
       do i=1,ntyp
 c      write (2,*) 'i=',i
+      call flush(iout)
         read (ithep_pdb,*,err=111,end=111)
      &     a0thet(i),(athet(j,i,1,1),j=1,2),
      &    (bthet(j,i,1,1),j=1,2)