Commit Adam 6/29/2014

[unres.git] / source / unres / src_MD-M-newcorr / geomout.F

diff --git a/source/unres/src_MD-M-newcorr/geomout.F b/source/unres/src_MD-M-newcorr/geomout.F
index c6a3944..b5d8732 100644 (file)
--- a/source/unres/src_MD-M-newcorr/geomout.F
+++ b/source/unres/src_MD-M-newcorr/geomout.F
@@ -206,7 +206,7 @@ c------------------------------------------------------------------------
      & '       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