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

diff --git a/source/cluster/wham/src-HCD/initialize_p.F b/source/cluster/wham/src-HCD/initialize_p.F
index 87e4dde..aa675e9 100644
--- a/source/cluster/wham/src-HCD/initialize_p.F
+++ b/source/cluster/wham/src-HCD/initialize_p.F
@@ -174,10 +174,10 @@ C Initialize the bridge arrays
       do i=1,maxss
 	iss(i)=0
       enddo
-      do i=1,maxss
+      do i=1,maxdim_cont
 	dhpb(i)=0.0D0
       enddo
-      do i=1,maxss
+      do i=1,maxdim_cont
 	ihpb(i)=0
 	jhpb(i)=0
       enddo