- 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
& i,restyp(it1),i1,restyp(it2),i2
enddo
endif
kkk=0
c print *,'nnt=',nnt,' nct=',nct
do i=nnt,nct-3
kkk=0
c print *,'nnt=',nnt,' nct=',nct
do i=nnt,nct-3
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
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
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
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
- 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
& i,restyp(it1),i1,restyp(it2),i2
enddo
endif
- 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
c do k=jj1,j1,-1
c write (iout,'(a,i3,$)') restyp(itype(k)),k
c enddo