corrections

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

diff --git a/source/cluster/wham/src-HCD/probabl.F b/source/cluster/wham/src-HCD/probabl.F
index a3a664b..40791a3 100644 (file)
--- a/source/cluster/wham/src-HCD/probabl.F
+++ b/source/cluster/wham/src-HCD/probabl.F
@@ -152,6 +152,8 @@ c          call pdbout(totfree(i),16,i)
 c          call flush(iout)
 #ifdef DEBUG
         write (iout,*) "conformation", i
+        write (iout,'(8f10.5)') ((c(l,k),l=1,3),k=1,nres),
+     &                            ((c(l,k+nres),l=1,3),k=nnt,nct)
         call enerprint(energia(0),fT)
 #endif
         etot=energia(0)