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 (file)
--- 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 (file)
--- 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