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

suspect.f: explain purpose of program in the usage information

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: 5401
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 0a05aab4
......@@ -107,10 +107,30 @@ c
print *,' '
print *,'SUm of SEIsmograms'
print *,' '
print *,'file1 first input file'
print *,'file2 second input file'
print *,'outfile output file'
print *,' '
print *,'-s The default coordinate system for SFF data is set'
print *,' to cartesian. This will be set in the case of the'
print *,' input file containing no source coordinates.'
print *,' Use this option to force using spherical coordinates.'
print *,' '
print *,'The program read all traces from the first input file'
print *,'and stacks them on the corresponding traces of the'
print *,'second input file. The resulting traces arw written to the'
print *,'the output file. Data is expected to contain a source'
print *,'origin time which might differ from the time of first'
print *,'for this reason both input traces are first aligned'
print *,'to origin time (by application of the time shift in'
print *,'the Fourier domain).'
print *,' '
print *,'The original purpose of this program was to calculate'
print *,'appropriate waveforms for seismograms on the global'
print *,'sphere for epicentral distances larger than 180 deg'
print *,'by applying the focal phase shift first and then'
print *,'stacking them with the waves travelling along the'
print *,'minor arc.'
stop
endif
if (iargc().lt.3) stop 'ERROR: too few arguments'
......
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