do j=1,3
cref(j,i,cou)=c(j,i)
cref(j,i+nres,cou)=c(j,i+nres)
do j=1,3
cref(j,i,cou)=c(j,i)
cref(j,i+nres,cou)=c(j,i+nres)
chain_rep(j,lll,kkk)=c(j,i)
chain_rep(j,lll+nres,kkk)=c(j,i+nres)
endif
enddo
enddo
chain_rep(j,lll,kkk)=c(j,i)
chain_rep(j,lll+nres,kkk)=c(j,i+nres)
endif
enddo
enddo
do j=1,3
chain_rep(j,chain_length,symetr)=chain_rep(j,chain_length,1)
chain_rep(j,chain_length+nres,symetr)
&=chain_rep(j,chain_length+nres,1)
enddo
do j=1,3
chain_rep(j,chain_length,symetr)=chain_rep(j,chain_length,1)
chain_rep(j,chain_length+nres,symetr)
&=chain_rep(j,chain_length+nres,1)
enddo