Adam's changes

[unres.git] / source / unres / src-HCD-5D / geomout.F

diff --git a/source/unres/src-HCD-5D/geomout.F b/source/unres/src-HCD-5D/geomout.F
index dd45a7d..d1a3a87 100644 (file)
--- a/source/unres/src-HCD-5D/geomout.F
+++ b/source/unres/src-HCD-5D/geomout.F
@@ -224,11 +224,11 @@ c------------------------------------------------------------------------
       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