Adam's corrections

[unres.git] / source / wham / src-HCD / read_constr_homology.F

diff --git a/source/wham/src-HCD/read_constr_homology.F b/source/wham/src-HCD/read_constr_homology.F
index dece50f..0af2bdb 100644 (file)
--- a/source/wham/src-HCD/read_constr_homology.F
+++ b/source/wham/src-HCD/read_constr_homology.F
@@ -165,6 +165,7 @@ c        call readpdb
         write (iout,*) "read_constr_homology: after reading pdb file"
         call flush(iout)
 #endif
+
 c
 c     Distance restraints
 c
@@ -553,14 +554,18 @@ c     Distance restraints
 c
 c          ... --> odl(k,ii)
 C Copy the coordinates from reference coordinates (?)
+c        write (iout,*) "k",k
         do i=1,2*nres
           do j=1,3
             c(j,i)=chomo(j,i,k)
-c           write (iout,*) "c(",j,i,") =",c(j,i)
+c            write (iout,*) "c(",j,i,") =",c(j,i)
           enddo
         enddo
+c        call cartprint
+c        write (iout,*) "read_klapaucjusz: calling int_from_cart"
         call int_from_cart(.true.,.false.)
         call sc_loc_geom(.false.)
+c        write (iout,*) "en" 
         do i=1,nres
           thetaref(i)=theta(i)
           phiref(i)=phi(i)