X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fwham%2Fsrc-HCD%2Finitialize_p.F;fp=source%2Fwham%2Fsrc-HCD%2Finitialize_p.F;h=a2281e5a39dc143861f25e81a856f465af3c8b70;hb=57038e4bdff4cc9534106b25bfbd4b9a844d47fd;hp=baf3aa2d0e68505f21be5386ace73229570492ce;hpb=32caa3b64eb94b90fa9fd402b77263ea89efffa1;p=unres.git

diff --git a/source/wham/src-HCD/initialize_p.F b/source/wham/src-HCD/initialize_p.F
index baf3aa2..a2281e5 100644
--- a/source/wham/src-HCD/initialize_p.F
+++ b/source/wham/src-HCD/initialize_p.F
@@ -183,7 +183,7 @@ C Initialize the bridge arrays
       do i=1,maxss
 	iss(i)=0
       enddo
-      do i=1,maxdim
+      do i=1,maxdim_cont
 	dhpb(i)=0.0D0
       enddo
       do i=1,maxres
@@ -396,7 +396,7 @@ c---------------------------------------------------------------------------
       include 'COMMON.IOUNITS'
       include "COMMON.TORCNSTR"
       logical scheck,lprint
-      lprint=.false.
+      lprint=.true.
       do i=1,maxres
         nint_gr(i)=0
         nscp_gr(i)=0