X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc_MD%2Freadpdb.F;h=eaf41c8b0ad8b0e2d9e1203143f0a3e39a4a6b15;hb=aa4540154949fdfc9ab63442eb6fea09d6c589ad;hp=3ce8334606e37962aaaf15bb1ab712acfeadec49;hpb=b847bacd7f528a68d640b3d58d4f5b9ce3c6ede2;p=unres.git

diff --git a/source/unres/src_MD/readpdb.F b/source/unres/src_MD/readpdb.F
index 3ce8334..eaf41c8 100644
--- a/source/unres/src_MD/readpdb.F
+++ b/source/unres/src_MD/readpdb.F
@@ -15,7 +15,7 @@ C geometry.
       include 'COMMON.SETUP'
       integer i,j,ibeg,ishift1,ires,iii,ires_old,ishift,ity,
      &  ishift_pdb
-      logical lprn /.true./,fail
+      logical lprn /.false./,fail
       double precision e1(3),e2(3),e3(3)
       double precision dcj,efree_temp
       character*3 seq,res
@@ -144,7 +144,10 @@ c            write (iout,*) "sidechain ",atom
           endif
         endif
       enddo
-   10 write (iout,'(a,i5)') ' Number of residues found: ',ires
+   10 continue
+#ifdef DEBUG
+      write (iout,'(a,i5)') ' Number of residues found: ',ires
+#endif
       if (ires.eq.0) return
 C Calculate the CM of the last side chain.
       if (iii.gt.0)  then