corrections

[unres.git] / source / unres / src-HCD-5D / initialize_p.F

diff --git a/source/unres/src-HCD-5D/initialize_p.F b/source/unres/src-HCD-5D/initialize_p.F
index 855c7a4..710f907 100644 (file)
--- a/source/unres/src-HCD-5D/initialize_p.F
+++ b/source/unres/src-HCD-5D/initialize_p.F
@@ -261,10 +261,10 @@ C Initialize the bridge arrays
       ns=0
       nss=0 
       nhpb=0
-      do i=1,maxss
+      do i=1,max_cyst
        iss(i)=0
       enddo
-      do i=1,maxdim
+      do i=1,maxdim_cont
        dhpb(i)=0.0D0
       enddo
       do i=1,maxres