Commit fec63ede authored by Daniel Armbruster's avatar Daniel Armbruster Committed by thomas.forbriger
Browse files

corrections - successfully tested

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: 4718
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 45f7de23
......@@ -79,7 +79,7 @@ c debugging
c here are the keys to our commandline options
data optid/2h-D, 2h-v, 2h-o, 2h-f, 2h-T, 2h-a, 2h-d,
& 3h-Ta,3h-Te,2h-n,3h-Td,3h-Tm,3h-f1,3h-f2,2h-e,
& 2h-b,2h-c,2h-s,'-ot'/
& 2h-b,2h-c,2h-s,3h-ot/
data opthasarg/3*.FALSE.,16*.TRUE./
data optarg/3*1h-,3h20.,2*2h1.,4h.001,2h0.,3h.02,1h5,5h1.e20,4h.005,
& 2*3h20.,4*1h1,'sff'/
......@@ -301,7 +301,7 @@ c
read(optarg(16), *) b
read(optarg(17), *) c
read(optarg(18), *) s
if (optset(19)) outformat=optarg(19)
outformat=optarg(19)
c perform some checks
nsamples=int(t/d)
......
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