X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Funres%2Fsrc%2Fgeomout.F;h=3d5bd9985326f7bd081e1087b03b792902349fa6;hb=f6e7283541a82e09daf04fb17d934d39f841886c;hp=12aae7a1845311a41ba90596a380eafa7a5e0d9e;hpb=a45ce81aae2c857c30b821e39e45a7a08356de4d;p=unres.git

diff --git a/source/cluster/unres/src/geomout.F b/source/cluster/unres/src/geomout.F
index 12aae7a..3d5bd99 100644
--- 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