& ' 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,i4,6f10.3)') restyp(iti),i,vbld(i+1),
& rad2deg*theta(i),rad2deg*phi(i),vbld(nres+i),rad2deg*alph(i),
& rad2deg*omeg(i)
enddo