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:
SVN Revision: 2949
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent f6b3c4ce
c this is <sesoc.f>
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 Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
......@@ -104,7 +104,7 @@ c
c go
read (coordstring, '(a1,1x,3(f10))') CS,cx,cy,cz
read (coordstring, '(a1,1x,3(g10.6))') CS,cx,cy,cz
open(luin, file=infile, status='old', err=99)
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