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=8fa5a0ee869e1355dce0b121ceb3b5f82840922b;hpb=3051684e94cab6cb6451f567d62b556feef7fb5e;p=unres.git

diff --git a/source/cluster/unres/src/geomout.F b/source/cluster/unres/src/geomout.F
index 8fa5a0e..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