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

all options in 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: 1621
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 4995b6a3
c this is <phadi.f>
c------------------------------------------------------------------------------
c ($Id: phadi.f,v 1.9 2001-08-24 17:04:08 forbrig Exp $)
c ($Id: phadi.f,v 1.10 2005-01-21 15:55:19 tforb Exp $)
c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -20,9 +20,11 @@ c
program phadi
c
character*(*) version
parameter(version='PHADI V1.4 calculate dispersion relation from phase differences')
parameter(version=
& 'PHADI V1.4 calculate dispersion relation from phase differences')
character*(*) PHADI_CVS_ID
parameter(PHADI_CVS_ID='$Id: phadi.f,v 1.9 2001-08-24 17:04:08 forbrig Exp $')
parameter(PHADI_CVS_ID=
& '$Id: phadi.f,v 1.10 2005-01-21 15:55:19 tforb Exp $')
c input dataset
character*80 filename
integer maxtraces, totmaxsamples
......@@ -100,7 +102,7 @@ c
if (iargc().eq.1) call getarg(1, argument)
if ((argument(1:5).eq.'-help').or.(iargc().lt.1)) then
print *,version
print *,'Usage: phadi datafile [-d device] [-f f1,f2]'
print *,'Usage: phadi datafile [-v] [-DE] [-d device] [-f f1,f2]'
print *,' [-P] [-Pf f1,f2] [-Po file]'
print *,' [-p] [-pf f1,f2] [-po file] [-pt]'
print *,' [-D] [-Df f1,f2] [-Do file] [-Dv]'
......@@ -113,6 +115,8 @@ c
print *,' '
print *,'datafile SFF seismogram file'
print *,' '
print *,'-v be verbose'
print *,'-DE print debuggin output'
print *,'-d device PGPLOT output device'
print *,'-f f1,f2 default frequency interval'
print *,' '
......
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