readpdb-mult

[unres.git] / source / unres / src-HCD-5D / parmread.F

diff --git a/source/unres/src-HCD-5D/parmread.F b/source/unres/src-HCD-5D/parmread.F
index 7550fd5..721d05b 100644 (file)
--- 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)