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

diff --git a/source/unres/src-HCD-5D/readrtns_CSA.F b/source/unres/src-HCD-5D/readrtns_CSA.F
index 969d365..07ccc4f 100644
--- a/source/unres/src-HCD-5D/readrtns_CSA.F
+++ b/source/unres/src-HCD-5D/readrtns_CSA.F
@@ -3066,8 +3066,8 @@ 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*10),i_tmp,idomain_tmp,
-     & irec,ik,iistart,nres_temp
+      integer ki,i,ii,j,k,l,ii_in_use(maxdim*maxchain),i_tmp,
+     & idomain_tmp,irec,ik,iistart,nres_temp
       integer ilen
       external ilen
       logical liiflag,lfirst