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

added online 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: 4490
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 370855bd
......@@ -8,6 +8,7 @@ c create field of harmonic plane waves
c
c REVISIONS and CHANGES
c 09/02/2001 V1.0 Thomas Forbriger
c 29/01/2012 V1.1 added online help
c
c
c==============================================================================
......@@ -15,7 +16,7 @@ c
program planefield
c
character*(*) version
parameter(version='PLANEFIELD V1.0 create field of harmonic plane waves')
parameter(version='PLANEFIELD V1.1 create field of harmonic plane waves')
c
logical last
character*80 filename
......@@ -46,12 +47,22 @@ c
if (iargc().eq.1) call getarg(1, argument)
if ((argument(1:5).eq.'-help').or.(iargc().lt.1)) then
print *,version
print *,'Usage: planefield arguments'
print *,'Usage: planefield file [-d] [-v] [-x min.max]'
print *,' [-c v] [-t max] [-n n] [-f f]'
print *,' [-N N]'
print *,' or: planefield -help'
if (argument(1:5).ne.'-help') stop 'ERROR: wrong number of arguments'
print *,' '
print *,'create field of harmonic plane waves'
print *,' '
print *,'file name of output file (SFF)'
print *,'-d produce debug output'
print *,'-v be verbose'
print *,'-x min,max set minimum and maximum offset'
print *,'-c v use phase velocity v'
print *,'-t max produce time series of duration max'
print *,'-n n produce time series with n samples'
print *,'-N N produce time series for N receivers'
stop
endif
c
......
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