include 'COMMON.TORSION'
write (iout,'(/a)') 'Geometry of the virtual chain.'
write (iout,'(7a)') ' Res ',' d',' Theta',
- & ' Phi',' Dsc',' Alpha',' Omega'
+ & ' Gamma',' Dsc',' Alpha',' Beta'
do i=1,nres
iti=itype(i)
write (iout,'(a3,i4,6f10.3)') restyp(iti),i,vbld(i),