& restyp(iti),hfrag(1,j)-1,
& restyp(itj),hfrag(2,j)-1,1,hfrag(2,j)-hfrag(1,j)
else
- write (iunit,'(a5,i5,1x,a1,i2,1x,a3,i7,2x,a3,i7,i3)')
+ write (iunit,'(a5,i5,1x,a1,i2,1x,a3,i7,2x,a3,i7,i3,t76,i5)')
& 'HELIX',j,'H',j,
& restyp(iti),hfrag(1,j)-1,
& restyp(itj),hfrag(2,j)-1,1,hfrag(2,j)-hfrag(1,j)
include 'COMMON.INTERACT'
include 'COMMON.NAMES'
include 'COMMON.GEO'
+ include 'COMMON.TORSION'
write (iout,'(/a)') 'Geometry of the virtual chain.'
write (iout,'(7a)') ' Res ',' d',' Theta',
& ' Phi',' Dsc',' Alpha',' Omega'