X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Finitialize_p.F;h=710f907f2e690c2dffd55c39b774dd680584f4d4;hb=1441ec2b7d68b4fd94014649e4bd9574db0bfc36;hp=855c7a4742e23dc827fde615b293543942966533;hpb=79fd686e9d9aaa23e4fda802ee16379470e961d3;p=unres.git

diff --git a/source/unres/src-HCD-5D/initialize_p.F b/source/unres/src-HCD-5D/initialize_p.F
index 855c7a4..710f907 100644
--- 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