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

specify data format

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: 3057
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent aca7d7e6
c this is <ttplot.f>
c------------------------------------------------------------------------------
c $Id: ttplot.f,v 1.4 2010-06-08 15:08:12 tforb Exp $
c $Id: ttplot.f,v 1.5 2010-06-08 15:31:32 tforb Exp $
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -94,9 +94,18 @@ c
print *,'-h file read travel times for shot at (0/0)'
print *,'-r file read travel times for shot at (offset/0)'
print *,' '
print *,'Values in traveltime data files must be given as'
print *,'follows:'
print *,'1st line: comment'
print *,'2nd line: number of offsets'
print *,'3rd line: offset traveltime'
print *,'next lines like 3rd line'
print *,'offset and traveltime values are given in units of'
print *,'km and s'
print *,' '
call pgp_showdevices
print *,' '
print *,'$Id: ttplot.f,v 1.4 2010-06-08 15:08:12 tforb Exp $'
print *,'$Id: ttplot.f,v 1.5 2010-06-08 15:31:32 tforb Exp $'
stop
endif
if (iargc().lt.2) stop 'ERROR: missing 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