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