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

removed old code

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: 3363
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 11de3230
This is a legacy version of the repository. It may be incomplete as well as
inconsistent. See README.history for details. For the old stock of the
repository copyright and licence conditions apply as specified for versions
commited after 2015-03-01. Use recent versions as a base for new development.
The legacy version is only stored to keep a record of history.
c this is <refract.f>
c------------------------------------------------------------------------------
c
c 09/01/98 by Thomas Forbriger (IfG Stuttgart)
c
c REFRACTion seismics - data interpretation
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 09/01/98 V3.0 new version based on include-file data
c
c==============================================================================
c
program refract
c
character*79 version
parameter(version=
& 'REFRACT V3.0 REFRACTion seismics - data interpretation')
c
c commandline
integer maxopt, lastarg, iargc
character*80 argument
parameter(maxopt=1)
character*2 optid(maxopt)
character*40 optarg(maxopt)
logical optset(maxopt), opthasarg(maxopt)
c debugging
logical debug
c here are the keys to our commandline options
data optid/2h-d/
data opthasarg/.FALSE./
data optarg/1h-/
c
c------------------------------------------------------------------------------
c basic information
c
print *,version
print *,'Usage: refract arguments'
print *,' or: refract -help'
c
if (iargc().lt.1) stop 'ERROR: missing arguments'
call getarg(1, argument)
if (argument(1:5).eq.'-help') then
print *,' '
print *, REFRACTion seismics - data interpretation'
print *,' '
stop
endif
c
c------------------------------------------------------------------------------
c read command line arguments
c
call tf_cmdline(1, lastarg, maxopt, optid,
& optarg, optset, opthasarg)
debug=optset(1)
c
c------------------------------------------------------------------------------
c go
c
stop
end
c
c ----- END OF refract.f -----
This diff is collapsed.
This diff is collapsed.
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