Commit 0086ac39 authored by thomas.forbriger's avatar thomas.forbriger
Browse files

various programs [TASK]: print reference to repository

parent 74837f76
......@@ -116,6 +116,7 @@ c print *,iargc()
print *,' [-w fac] [-m tmin] [-ty f]'
print *,' or: gabor -help'
print *,' or: gabor -xhelp'
call tf_seitosh_reference
if (argument(1:5).ne.'-help')
& stop 'ERROR: wrong number of arguments'
print *,' '
......
......@@ -231,6 +231,7 @@ c
print *,' [-pwa filename]'
print *,'or greda -help'
print *,'or greda -xhelp'
call tf_seitosh_reference
c
if (iargc().lt.1) stop 'ERROR: missing parameters'
call getarg(1, filename)
......
......@@ -94,6 +94,7 @@ c
print *,' [-H 1|2] [-h 1|2] [-S] [-B] [-l lowexp]'
print *,' [-X] [-F]'
print *,' or: grereso -help'
call tf_seitosh_reference
if (argument(1:5).ne.'-help') stop 'ERROR: wrong number of arguments'
print *,' '
print *,'Resolution analysis for Fourier-Bessel transformation'
......
......@@ -84,6 +84,7 @@ c
print *,'Usage: hivexpanco [-v] [-o] [-w val]'
print *,' Hinfile Vinfile outfile'
print *,' or: hivexpanco -help'
call tf_seitosh_reference
if (argument(1:5).ne.'-help')
& stop 'ERROR: wrong number of arguments'
print *,' '
......
......@@ -83,6 +83,7 @@ c
print *,'Usage: hivgabor [-v] [-o] [-w val]'
print *,' Hinfile Vinfile outfile'
print *,' or: hivgabor -help'
call tf_seitosh_reference
if (argument(1:5).ne.'-help')
& stop 'ERROR: wrong number of arguments'
print *,' '
......
......@@ -128,6 +128,7 @@ c
print *,' [-ty format]'
print *,' or: phadi -help'
print *,' or: phadi -xhelp'
call tf_seitosh_reference
if (argument(1:6).eq.'-xhelp') then
call sff_help_details
stop
......
......@@ -146,6 +146,7 @@ c
& ' [-d device] [-t file] [-A ci] [-B ci] [-a ls] [-b ls]',
& ' [-l lw] [-L lw]'
print *,' or: gremlin -help'
call tf_seitosh_reference
c
c if (iargc().lt.1) stop 'ERROR: missing arguments'
if (iargc().eq.1) then
......
......@@ -256,6 +256,7 @@ c give basic information
&' [-ff filename] [-st]'
print *,
&'or: grepg -help'
call tf_seitosh_reference
if (iargc().lt.1) stop 'ERROR: missing arguments'
call getarg(1, filename)
if (filename(1:5).eq.'-help') then
......
......@@ -75,6 +75,7 @@ c go
print *,version
print *,'Usage: dig curves greenfile length'
print *,' -P nf,nu,fmax,umax | -F file [-M] [-n v] [-O f]'
call tf_seitosh_reference
if (iargc().ge.5) then
call getarg(4, line)
else
......
......@@ -151,6 +151,7 @@ c
print *,' [-v] [-d] [-L] [-ty f] [-dt dt] [-N n]'
print *,'or gresy -help'
print *,'or gresy -xhelp'
call tf_seitosh_reference
if (iargc().lt.1) stop 'ERROR: no arguments'
call getarg(1, greenname)
if (greenname(1:6).eq.'-xhelp') then
......
......@@ -184,6 +184,7 @@ c
print *,' [-S] [-1] [-2] [-i] [-v]'
print *,' [-d] [-R]'
print *,'or gresynoise -help'
call tf_seitosh_reference
if (greenname(1:5).ne.'-help')
& stop 'ERROR: wrong number of arguments'
print *,' '
......
......@@ -91,6 +91,7 @@ c go
print *,' fr is the frequency at which the model is given'
print *,' fp is the relaxation frequency for the SLS'
print *,' '
call tf_seitosh_reference
stop
endif
c
......
......@@ -128,6 +128,7 @@ c print *,'Notice: the source amplitude is ignored.'
print *,'Array dimensions:'
print *,' maximum number of slowness values: ',mu
print *,' maximum number of frequencies: ',mom
call tf_seitosh_reference
stop
endif
c
......
......@@ -74,6 +74,7 @@ c
print *,version
print *,'Usage: gredi file1 file2 diff [-r]'
print *,' or: gredi -help'
call tf_seitosh_reference
if (argument(1:5).ne.'-help')
& stop 'ERROR: wrong number of arguments'
print *,' '
......
......@@ -103,6 +103,7 @@ c
print *,' [-g c,w,l | -w file | -N] [-r file] [-t file]'
print *,' [-n val] [-l slo] [-C val] [-m l] [-a] [-A]'
print *,' or: grenorm -help'
call tf_seitosh_reference
if (argument(1:5).ne.'-help') stop 'ERROR: wrong number of arguments'
print *,' '
print *,'GREens function will be NORMalized'
......
......@@ -78,6 +78,7 @@ c
print *,'Usage: gretap greenfile taperfile [-v] [-d]'
print *,' command [command ...]'
print *,' or: gretap -help'
call tf_seitosh_reference
if (argument(1:5).ne.'-help') stop 'ERROR: wrong number of arguments'
print *,' '
print *,'GREen files TAPer'
......
......@@ -72,6 +72,7 @@ c
print *,version
print *,'Usage: greto infile outfile [-n n]'
print *,' or: greto -help'
call tf_seitosh_reference
c
if (iargc().lt.1) stop 'ERROR: missing arguments'
call getarg(1, argument)
......
......@@ -74,6 +74,7 @@ c
print *,version
print *,'Usage: magres greenin mask greenout'
print *,' or: magres -help'
call tf_seitosh_reference
if (argument(1:5).ne.'-help') stop 'ERROR: wrong number of arguments'
print *,' '
print *,'MAsk GREen Select'
......
......@@ -100,6 +100,7 @@ c
print *,' [-D1 n] [-D2 n] [-e eps]'
print *,' outfile'
print *,' or: coupledoscillators -help'
call tf_seitosh_reference
if (argument(1:5).ne.'-help')
& stop 'ERROR: missing file name'
print *,' '
......
......@@ -80,6 +80,7 @@ c
print *,' [-e exp] [-ty f]'
print *,' or: dispfield -help'
print *,' or: dispfield -xhelp'
call tf_seitosh_reference
if (argument(1:5).ne.'-help')
& stop 'ERROR: wrong number of arguments'
print *,' '
......
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