Commit 93f9b778 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

satify gfortran

This is a legacy commit from before 2015-03-01.
It may be incomplete as well as inconsistent.
See COPYING.legacy and README.history for details.


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 2949
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent f6b3c4ce
c this is <sesoc.f> c this is <sesoc.f>
c ---------------------------------------------------------------------------- c ----------------------------------------------------------------------------
c ($Id: sesoc.f,v 1.8 2007-07-05 16:08:23 tforb Exp $) c ($Id: sesoc.f,v 1.9 2009-12-10 10:03:31 tforb Exp $)
c c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt) c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c c
...@@ -104,7 +104,7 @@ c ...@@ -104,7 +104,7 @@ c
c c
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c go c go
read (coordstring, '(a1,1x,3(f10))') CS,cx,cy,cz read (coordstring, '(a1,1x,3(g10.6))') CS,cx,cy,cz
c c
open(luin, file=infile, status='old', err=99) open(luin, file=infile, status='old', err=99)
open(luout, file=outfile, status='new', err=98) open(luout, file=outfile, status='new', err=98)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment