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

major revision upgrade

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: 176
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 343170b6
# #
# $Id: Makefile,v 2.0 2000-05-24 17:20:36 thof Exp $
#
# Makefile for prog/plot/refract # Makefile for prog/plot/refract
# #
# refraction seismocs # refraction seismocs
......
c this is <refract_data.inc> c this is <refract_data.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_data.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 17/03/98 by Thomas Forbriger (IfG Stuttgart) c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_dim.inc> c this is <refract_dim.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_dim.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 17/03/98 by Thomas Forbriger (IfG Stuttgart) c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_model.inc> c this is <refract_model.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_model.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 05/07/98 by Thomas Forbriger (IfG Stuttgart) c 05/07/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_opt.inc> c this is <refract_opt.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_opt.inc,v 1.2 2000-05-24 15:27:16 thof Exp $ c $Id: refract_opt.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 17/03/98 by Thomas Forbriger (IfG Stuttgart) c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_para.inc> c this is <refract_para.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_para.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 20/01/98 by Thomas Forbriger (IfG Stuttgart) c 20/01/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_pgpara.inc> c this is <refract_pgpara.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_pgpara.inc,v 1.3 2000-05-24 15:27:16 thof Exp $ c $Id: refract_pgpara.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 01/05/98 by Thomas Forbriger (IfG Stuttgart) c 01/05/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_picks.inc> c this is <refract_picks.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_picks.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 05/07/98 by Thomas Forbriger (IfG Stuttgart) c 05/07/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_seipar.inc> c this is <refract_seipar.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_seipar.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 30/04/98 by Thomas Forbriger (IfG Stuttgart) c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_strings.inc> c this is <refract_strings.inc>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_strings.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 04/07/98 by Thomas Forbriger (IfG Stuttgart) c 04/07/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract.f> c this is <refract.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract.f,v 1.4 2000-05-24 15:27:16 thof Exp $ c $Id: refract.f,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 09/01/98 by Thomas Forbriger (IfG Stuttgart) c 09/01/98 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -21,6 +21,8 @@ c to read old refra-created picks files ...@@ -21,6 +21,8 @@ c to read old refra-created picks files
c 18/02/99 V3.8 allow offset scale in degree on a sphere c 18/02/99 V3.8 allow offset scale in degree on a sphere
c 24/05/00 V3.9 - increased size of option identifier to 3 characters c 24/05/00 V3.9 - increased size of option identifier to 3 characters
c - introduced new options c - introduced new options
c 24/05/00 V4.0 allowing almost full parameter control from the command
c line justifies the step to the next major revision
c c
c============================================================================== c==============================================================================
c c
...@@ -28,7 +30,7 @@ c ...@@ -28,7 +30,7 @@ c
c c
character*79 version character*79 version
parameter(version= parameter(version=
& 'REFRACT V3.9 REFRACTion seismics - data interpretation') & 'REFRACT V4.0 REFRACTion seismics - data interpretation')
c c
c get common blocks c get common blocks
include 'include/refract_dim.inc' include 'include/refract_dim.inc'
......
...@@ -2,7 +2,7 @@ c this is <refract_cmdopt.f> ...@@ -2,7 +2,7 @@ c this is <refract_cmdopt.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_cmdopt.f,v $) c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_cmdopt.f,v $)
c ($Id: refract_cmdopt.f,v 1.2 2000-05-24 15:27:16 thof Exp $) c ($Id: refract_cmdopt.f,v 2.0 2000-05-24 17:20:36 thof Exp $)
c c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart) c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -35,7 +35,7 @@ c declare local variables ...@@ -35,7 +35,7 @@ c declare local variables
integer i integer i
c CVS Id c CVS Id
character*(*) refract_cmdopt_id character*(*) refract_cmdopt_id
parameter (refract_cmdopt_id='$Id: refract_cmdopt.f,v 1.2 2000-05-24 15:27:16 thof Exp $') parameter (refract_cmdopt_id='$Id: refract_cmdopt.f,v 2.0 2000-05-24 17:20:36 thof Exp $')
c commandline c commandline
integer maxopt integer maxopt
parameter(maxopt=55) parameter(maxopt=55)
......
c this is <refract_domodel.f> c this is <refract_domodel.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_domodel.f,v 1.2 2000-05-24 15:27:16 thof Exp $ c $Id: refract_domodel.f,v 2.0 2000-05-24 17:20:36 thof Exp $
c c
c 05/07/98 by Thomas Forbriger (IfG Stuttgart) c 05/07/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_dopicks.f> c this is <refract_dopicks.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_dopicks.f,v 1.2 2000-05-24 15:27:16 thof Exp $ c $Id: refract_dopicks.f,v 2.0 2000-05-24 17:20:37 thof Exp $
c c
c 05/07/98 by Thomas Forbriger (IfG Stuttgart) c 05/07/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_doplot.f> c this is <refract_doplot.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_doplot.f,v 2.0 2000-05-24 17:20:37 thof Exp $
c c
c 30/04/98 by Thomas Forbriger (IfG Stuttgart) c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_loopaction.f> c this is <refract_loopaction.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_loopaction.f,v 2.0 2000-05-24 17:20:37 thof Exp $
c c
c 01/05/98 by Thomas Forbriger (IfG Stuttgart) c 01/05/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_message.f> c this is <refract_message.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_message.f,v 2.0 2000-05-24 17:20:37 thof Exp $
c c
c 04/07/98 by Thomas Forbriger (IfG Stuttgart) c 04/07/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
c this is <refract_mpc.f> c this is <refract_mpc.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_mpc.f,v 2.0 2000-05-24 17:20:37 thof Exp $
c c
c 30/04/98 by Thomas Forbriger (IfG Stuttgart) c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
...@@ -2,7 +2,7 @@ c this is <refract_pgdefaults.f> ...@@ -2,7 +2,7 @@ c this is <refract_pgdefaults.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
cS cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_pgdefaults.f,v $) c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_pgdefaults.f,v $)
c ($Id: refract_pgdefaults.f,v 1.1 2000-05-24 15:27:16 thof Exp $) c ($Id: refract_pgdefaults.f,v 2.0 2000-05-24 17:20:37 thof Exp $)
c c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart) c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -25,7 +25,7 @@ c ...@@ -25,7 +25,7 @@ c
cE cE
c declare local variables c declare local variables
character*(*) refract_pgdefaults_id character*(*) refract_pgdefaults_id
parameter (refract_pgdefaults_id='$Id: refract_pgdefaults.f,v 1.1 2000-05-24 15:27:16 thof Exp $') parameter (refract_pgdefaults_id='$Id: refract_pgdefaults.f,v 2.0 2000-05-24 17:20:37 thof Exp $')
c c
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c go c go
......
c this is <refract_pgfilenames.f> c this is <refract_pgfilenames.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c $Id: refract_pgfilenames.f,v 1.2 2000-05-24 15:27:16 thof Exp $ c $Id: refract_pgfilenames.f,v 2.0 2000-05-24 17:20:37 thof Exp $
c c
c 03/07/98 by Thomas Forbriger (IfG Stuttgart) c 03/07/98 by Thomas Forbriger (IfG Stuttgart)
c c
......
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