include 'COMMON.NAMES'
include 'COMMON.TIME1'
Uconst_back=0.0d0
- do i=1,nres
- dutheta(i)=0.0d0
- dugamma(i)=0.0d0
- do j=1,3
- duscdiff(j,i)=0.0d0
- duscdiffx(j,i)=0.0d0
- enddo
- enddo
do i=1,nfrag_back
ii = ifrag_back(2,i,iset)-ifrag_back(1,i,iset)
c