Merge branch 'prerelease-3.2.1'

[unres.git] / source / cluster / unres / src / geomout.F

diff --git a/source/cluster/unres/src/geomout.F b/source/cluster/unres/src/geomout.F
index 8fa5a0e..3d5bd99 100644 (file)
--- a/source/cluster/unres/src/geomout.F
+++ b/source/cluster/unres/src/geomout.F
@@ -163,7 +163,7 @@ c     if (nvar.gt.nphi+ntheta) then
         write (igeom,200) (rad2deg*omeg(i),i=2,nres-1)
 c     endif
       close(igeom)
-  180 format (I5,F12.3,I2,8(1X,2I3,$))
+  180 format (I5,2F12.3,I2,8(1X,2I3,$))
   190 format (3X,11(1X,2I3,$))
   200 format (8F10.4)
       return