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 this is <phadi.f>
c------------------------------------------------------------------------------ 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
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt) c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c c
...@@ -20,9 +20,11 @@ c ...@@ -20,9 +20,11 @@ c
program phadi program phadi
c c
character*(*) version 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 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 c input dataset
character*80 filename character*80 filename
integer maxtraces, totmaxsamples integer maxtraces, totmaxsamples
...@@ -100,7 +102,7 @@ c ...@@ -100,7 +102,7 @@ c
if (iargc().eq.1) call getarg(1, argument) if (iargc().eq.1) call getarg(1, argument)
if ((argument(1:5).eq.'-help').or.(iargc().lt.1)) then if ((argument(1:5).eq.'-help').or.(iargc().lt.1)) then
print *,version 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]'
print *,' [-p] [-pf f1,f2] [-po file] [-pt]' print *,' [-p] [-pf f1,f2] [-po file] [-pt]'
print *,' [-D] [-Df f1,f2] [-Do file] [-Dv]' print *,' [-D] [-Df f1,f2] [-Do file] [-Dv]'
...@@ -113,6 +115,8 @@ c ...@@ -113,6 +115,8 @@ c
print *,' ' print *,' '
print *,'datafile SFF seismogram file' print *,'datafile SFF seismogram file'
print *,' ' print *,' '
print *,'-v be verbose'
print *,'-DE print debuggin output'
print *,'-d device PGPLOT output device' print *,'-d device PGPLOT output device'
print *,'-f f1,f2 default frequency interval' print *,'-f f1,f2 default frequency interval'
print *,' ' 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