readpdb lside1 correction

[unres.git] / source / cluster / wham / src / readpdb.F

diff --git a/source/cluster/wham/src/readpdb.F b/source/cluster/wham/src/readpdb.F
index a7b024f..0160eb1 100644 (file)
--- 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
@@ -346,7 +347,7 @@ c          vbld(nres)=3.8d0
 c          vbld_inv(nres)=1.0d0/vbld(2)
 c        endif
 c      endif
-      if (lside) then
+      if (lside1) then
         do i=2,nres-1
           do j=1,3
             c(j,maxres2)=0.5D0*(2*c(j,i)+(c(j,i-1)-c(j,i))*vbld_inv(i)