X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Fregularize.F;fp=source%2Funres%2Fsrc-HCD-5D%2Fregularize.F;h=72d92da383f270e3cc66b6e3167f7375d424a6c0;hb=57038e4bdff4cc9534106b25bfbd4b9a844d47fd;hp=c506b8a931c649d0eed4ab281db2739d1a628d2b;hpb=32caa3b64eb94b90fa9fd402b77263ea89efffa1;p=unres.git

diff --git a/source/unres/src-HCD-5D/regularize.F b/source/unres/src-HCD-5D/regularize.F
index c506b8a..72d92da 100644
--- a/source/unres/src-HCD-5D/regularize.F
+++ b/source/unres/src-HCD-5D/regularize.F
@@ -7,7 +7,8 @@
       include 'COMMON.HEADER'
       include 'COMMON.IOUNITS'
       include 'COMMON.MINIM'
-      double precision przes(3),obrot(3,3),fhpb0(maxdim),varia(maxvar)
+      double precision przes(3),obrot(3,3),fhpb0(maxdim_cont),
+     & varia(maxvar)
       double precision cref0(3,ncart)
       double precision energia(0:n_ene)
       logical non_conv