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

print help

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: 1286
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent c8663577
......@@ -42,7 +42,6 @@ c
print *,version
print *,'Usage: rotate infile outfile angle'
print *,'or: rotate -help'
if (iargc().ne.3) stop 'ERROR: check argumemnts'
c give control-file information
call getarg(1, infile)
if (infile(1:5).eq.'-help') then
......@@ -57,6 +56,7 @@ c give control-file information
print *,' set angle to 90.'
stop
endif
if (iargc().ne.3) stop 'ERROR: check argumemnts'
c----------------------------------------------------------------------
call getarg(1, infile)
call getarg(2, outfile)
......
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