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

diff --git a/source/cluster/unres/src/geomout.F b/source/cluster/unres/src/geomout.F
index 12aae7a..8fa5a0e 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,F12.3,I2,8(1X,2I3,$))
   190 format (3X,11(1X,2I3,$))
   200 format (8F10.4)
       return