X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Funres%2Fsrc-HCD-5D%2Freadrtns_CSA.F;h=969d365dc6bb8d1a54fd14ded17bb76d3d8b0a38;hb=b0984415f6cac91dca94c374efaab7910b47ca60;hp=58b86cc200e81964edeae8b447addcd2401c7cbd;hpb=d64cf463dfcff15c05d49d4aa69d0bb5230294df;p=unres.git

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