X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Funres%2Fsrc%2Fgeomout.F;fp=source%2Fcluster%2Funres%2Fsrc%2Fgeomout.F;h=3d5bd9985326f7bd081e1087b03b792902349fa6;hb=621c80c4c41cb0af595279286effd03acdf0539d;hp=8fa5a0ee869e1355dce0b121ceb3b5f82840922b;hpb=3bc6b46b55a7192063c123e280d874244b4c7cb2;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