include 'COMMON.TORSION'
integer i,iti
write (iout,'(/a)') 'Geometry of the virtual chain.'
- write (iout,'(7a)') ' Res ',' d',' Theta',
+ write (iout,'(7a)') ' Res ',' d',' Theta',
& ' Phi',' Dsc',' Alpha',' Omega'
do i=1,nres
iti=itype(i)
- write (iout,'(a3,i4,6f10.3)') restyp(iti),i,vbld(i),
+ write (iout,'(a3,i5,6f10.3)') restyp(iti),i,vbld(i),
& rad2deg*theta(i),rad2deg*phi(i),vbld(nres+i),rad2deg*alph(i),
& rad2deg*omeg(i)
enddo