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

diff --git a/source/cluster/wham/src-HCD/wrtclust.f b/source/cluster/wham/src-HCD/wrtclust.f
index fa08111..91fc05e 100644
--- a/source/cluster/wham/src-HCD/wrtclust.f
+++ b/source/cluster/wham/src-HCD/wrtclust.f
@@ -24,7 +24,7 @@
       DATA EXTEN /'.pdb'/,extmol /'.mol2'/,NUMM /'000'/,MUMM /'000'/
       external ilen
       logical viol_nmr
-      integer ib,list_peak_viol(maxdim)
+      integer ib,list_peak_viol(maxdim_cont)
       double precision Esaxs_all(maxgr),Pcalc_all(maxsaxs,maxgr)
 
       do i=1,64