cluster_wham iss(idssb(k)-nres)+nres

[unres.git] / source / unres / src-HCD-5D / readrtns_CSA.F

diff --git a/source/unres/src-HCD-5D/readrtns_CSA.F b/source/unres/src-HCD-5D/readrtns_CSA.F
index 969d365..07ccc4f 100644 (file)
--- 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