From: Cezary Czaplewski <czarek@chem.univ.gda.pl>
Date: Fri, 18 Jun 2021 07:17:47 +0000 (+0200)
Subject: ii_in_use(10*maxdim)
X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?p=unres.git;a=commitdiff_plain;h=b0984415f6cac91dca94c374efaab7910b47ca60

ii_in_use(10*maxdim)
---

diff --git a/source/unres/src-HCD-5D/DIMENSIONS b/source/unres/src-HCD-5D/DIMENSIONS
index 3c2c924..3b46f0c 100644
--- a/source/unres/src-HCD-5D/DIMENSIONS
+++ b/source/unres/src-HCD-5D/DIMENSIONS
@@ -17,7 +17,7 @@ C Max. number of coarse-grain processors
 C Max. number of AA residues
       integer maxres
 c      parameter (maxres=70000)
-      parameter (maxres=1000)
+      parameter (maxres=3000)
 C Max. number of AA residues per chain
       integer maxres_chain
       parameter (maxres_chain=1200)
diff --git a/source/unres/src-HCD-5D/readrtns_CSA.F b/source/unres/src-HCD-5D/readrtns_CSA.F
index 58b86cc..969d365 100644
--- a/source/unres/src-HCD-5D/readrtns_CSA.F
+++ b/source/unres/src-HCD-5D/readrtns_CSA.F
@@ -3066,7 +3066,7 @@ c    &    sigma_odl_temp(maxres,maxres,max_template)
       character*2 kic2
       character*24 model_ki_dist, model_ki_angle
       character*500 controlcard
-      integer ki,i,ii,j,k,l,ii_in_use(maxdim_cont),i_tmp,idomain_tmp,
+      integer ki,i,ii,j,k,l,ii_in_use(maxdim*10),i_tmp,idomain_tmp,
      & irec,ik,iistart,nres_temp
       integer ilen
       external ilen