corrections

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

diff --git a/source/cluster/wham/src-HCD/initialize_p.F b/source/cluster/wham/src-HCD/initialize_p.F
index 87e4dde..aa675e9 100644 (file)
--- 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