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

correction

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: 2345
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 1db8d6fd
c this is <sesoc.f>
c ----------------------------------------------------------------------------
c ($Id: sesoc.f,v 1.6 2007-07-03 13:19:47 tforb Exp $)
c ($Id: sesoc.f,v 1.7 2007-07-03 13:20:08 tforb Exp $)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
......@@ -129,7 +129,7 @@ c
if (writenewsrcenow) then
write(luout, '(a)', err=94) line(1:tfstr_trimlen(line))
write(line, '(a200)') ' '
50 format(a5, a20, 1x, a1, 1x, 3f15.6, 1x, a6, 1x, a10)
50 format(a5, a20, 1x, a1, 1x, 3f15.6, 1x, a6, 1x, a10)
write(line,50) 'SRCE ', 'NSP ',
& cs, cx, cy, cz, '700101', '000000.000'
print *,'file contains no SRCE line - I add one'
......
Markdown is supported
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