X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Fwham%2Fsrc%2Freadpdb.F;h=604b840a960df236f4759700792d9168a506df59;hb=e1844d05ec7d00e55c0cf412b1bb2b3185f984f4;hp=8351702720f662cb4963cb05741387e3f9f6a931;hpb=e8aa82ee9b741d0ccebec2934f21bd1f204cdee7;p=unres.git

diff --git a/source/cluster/wham/src/readpdb.F b/source/cluster/wham/src/readpdb.F
index 8351702..604b840 100644
--- a/source/cluster/wham/src/readpdb.F
+++ b/source/cluster/wham/src/readpdb.F
@@ -223,7 +223,7 @@ C Calculate internal coordinates.
       enddo
       endif
 C Calculate internal coordinates.
-      if(me.eq.king.or..not.out1file)then
+      if(print_homology_models.and.(me.eq.king.or..not.out1file))then
        write (iout,'(a)') 
      &   "Backbone and SC coordinates as read from the PDB"
        do ires=1,nres