X-Git-Url: http://mmka.chem.univ.gda.pl/gitweb/?a=blobdiff_plain;f=source%2Fcluster%2Funres%2Fsrc%2Fgeomout.F;h=8fa5a0ee869e1355dce0b121ceb3b5f82840922b;hb=07eee9774e7767e29ff5209a4556ad3b1dc6a8f8;hp=12aae7a1845311a41ba90596a380eafa7a5e0d9e;hpb=c092a8655963478b90eb630150c75ff5775f45f0;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