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

diff --git a/source/cluster/wham/src/readpdb.F b/source/cluster/wham/src/readpdb.F
index a7b024f..604b840 100644
--- a/source/cluster/wham/src/readpdb.F
+++ b/source/cluster/wham/src/readpdb.F
@@ -24,6 +24,7 @@ c    &  ishift_pdb
       character*80 card
       double precision sccor(3,20)
       integer rescode
+      logical lsecondary
       efree_temp=0.0d0
       ibeg=1
       ishift1=0
@@ -222,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