DIMENSION NN(maxconf),DISNN(maxconf)
LOGICAL FLAG(maxconf)
integer i,j,k,l,m,n,len,lev,idum,ii,ind,ioffset,jj,icut,ncon,
- & it,ncon_work,ind1
+ & it,ncon_work,ind1,kkk
double precision t1,t2,tcpu,difconf
double precision varia(maxvar)
c(l,k)=allcart(l,k,i)
enddo
enddo
+ kkk=1
do k=1,nres
do l=1,3
- cref(l,k)=c(l,k)
+ cref(l,k,kkk)=c(l,k)
enddo
enddo
DO J=I+1,NCON_work
ibezperm=(run-1)*chalen+i
do j=1,3
xx(j,ii)=allcart(j,iaperm,jcon)
- yy(j,ii)=cref(j,ibezperm)
+ yy(j,ii)=cref(j,ibezperm,kkk)
enddo
enddo
enddo
ii=ii+1
do j=1,3
xx(j,ii)=allcart(j,iaperm+nres,jcon)
- yy(j,ii)=cref(j,ibezperm+nres)
+ yy(j,ii)=cref(j,ibezperm+nres,kkk)
enddo
enddo
c endif
enddo
enddo
enddo
- call fitsq(rms,c(1,nstart),cref(1,nstart),nend-nstart+1,przes,
+ call fitsq(rms,c(1,nstart),cref(1,nstart,kkk),nend-nstart+1,
+ & przes,
& obrot,non_conv)
endif
if (rms.lt.0.0) then