i2=icont(2,i)
it1=itype(i1)
it2=itype(i2)
- write (iout,'(i3,2x,a,i4,2x,a,i4)')
+ write (iout,'(i5,2x,a,i5,2x,a,i4)')
& i,restyp(it1),i1,restyp(it2),i2
enddo
endif
kkk=0
c print *,'nnt=',nnt,' nct=',nct
do i=nnt,nct-3
+ if (itype(i).eq.ntyp1) cycle
do k=1,3
c(k,2*nres+1)=0.5d0*(c(k,i)+c(k,i+1))
enddo
do j=i+2,nct-1
do k=1,3
+ if (itype(j).eq.ntyp1) cycle
c(k,2*nres+2)=0.5d0*(c(k,j)+c(k,j+1))
enddo
if (dist(2*nres+1,2*nres+2).lt.rcomp) then
i2=icont(2,i)
it1=itype(i1)
it2=itype(i2)
- write (iout,'(i3,2x,a,i4,2x,a,i4)')
+ write (iout,'(i5,2x,a,i5,2x,a,i4)')
& i,restyp(it1),i1,restyp(it2),i2
enddo
endif
ii1=iharp(3,i)
jj1=iharp(4,i)
write (iout,*)
- write (iout,'(20(a,i3,1x))') (restyp(itype(k)),k,k=i1,ii1)
- write (iout,'(20(a,i3,1x))') (restyp(itype(k)),k,k=j1,jj1,-1)
+ write (iout,'(20(a,i5,1x))') (restyp(itype(k)),k,k=i1,ii1)
+ write (iout,'(20(a,i5,1x))') (restyp(itype(k)),k,k=j1,jj1,-1)
c do k=jj1,j1,-1
c write (iout,'(a,i3,$)') restyp(itype(k)),k
c enddo