C Check for SC-SC overlaps and mark residues
c print *,'>>overlap_sc nnt=',nnt,' nct=',nct
ind=0
- do i=iatsc_s,iatsc_e
+c do i=iatsc_s,iatsc_e
+ do i=nnt,nct-1
itypi=itype(i)
itypi1=itype(i+1)
xi=c(1,nres+i)
dzi=dc_norm(3,nres+i)
dsci_inv=dsc_inv(itypi)
c
- do iint=1,nint_gr(i)
- do j=istart(i,iint),iend(i,iint)
+c do iint=1,nint_gr(i)
+c do j=istart(i,iint),iend(i,iint)
+ do j=i+2,nct
ind=ind+1
itypj=itype(j)
dscj_inv=dsc_inv(itypj)
enddo
endif
enddo
- enddo
+c enddo
enddo
return
end