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
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)