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

new option -Ta

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: 211
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent ccb2d424
#
# $Id: Makefile,v 2.1 2000-05-29 22:04:16 thof Exp $
# $Id: Makefile,v 2.2 2000-07-29 15:25:20 thof Exp $
#
# Makefile for prog/plot/refract
#
......@@ -46,7 +46,8 @@ include make.incdep
@rm $(notdir $(<:.f=.c))
clean:
-/bin/rm *.o *.bak flist
-/bin/rm flist
find . \( -name \*.o -o -name \*.bak \) | xargs rm -v
refract: $(REFOBS)
$(CC) -o $(LOCBINDIR)/refract $(REFOBS) \
......
c this is <refract_opt.inc>
c------------------------------------------------------------------------------
c $Id: refract_opt.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c $Id: refract_opt.inc,v 2.1 2000-07-29 15:25:20 thof Exp $
c
c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -9,6 +9,7 @@ c
c REVISIONS and CHANGES
c 17/03/98 V1.0 Thomas Forbriger
c 24/05/00 V1.1 activated
c 29/07/00 V1.2 introduced opt_Tannotate
c
c==============================================================================
c
......@@ -16,6 +17,7 @@ c titles, labels, legends
character*120 opt_Ttitle
character*120 opt_Txlabel
character*120 opt_Tylabel
character*120 opt_Tannotate
logical opt_Tmode, opt_Tlegend, opt_Tmodel
real opt_Tscale, opt_Tmodx, opt_Tmodt
c
......@@ -42,7 +44,8 @@ c scaling
logical opt_Sinv, opt_Savg, opt_Sxrange, opt_Strange, opt_Sreduce
c
c common blocks
common /refract_optS/ opt_Ttitle, opt_Txlabel, opt_Tylabel,
common /refract_optS/ opt_Ttitle, opt_Txlabel, opt_Tylabel,
& opt_Tannotate,
& opt_Fpicks, opt_Farrival, opt_Ftaper, opt_Fmodel
common /refract_optI/ opt_Lwidth, opt_Lmax, opt_Cmax, opt_Smode
common /refract_optR/ opt_Tscale, opt_Cbgrgb(3), opt_Cfgrgb(3),
......
c this is <refract.f>
c------------------------------------------------------------------------------
c $Id: refract.f,v 2.1 2000-05-25 19:16:19 thof Exp $
c $Id: refract.f,v 2.2 2000-07-29 15:25:20 thof Exp $
c
c 09/01/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -24,6 +24,7 @@ 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 25/05/00 V4.1 usage quick info was missing
c 29/07/00 V4.2 introduced option -Ta
c
c==============================================================================
c
......@@ -31,7 +32,7 @@ c
c
character*79 version
parameter(version=
& 'REFRACT V4.1 REFRACTion seismics - data interpretation')
& 'REFRACT V4.2 REFRACTion seismics - data interpretation')
c
c get common blocks
include 'include/refract_dim.inc'
......
......@@ -2,7 +2,7 @@ c this is <refract_cmdopt.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_cmdopt.f,v $)
c ($Id: refract_cmdopt.f,v 2.0 2000-05-24 17:20:36 thof Exp $)
c ($Id: refract_cmdopt.f,v 2.1 2000-07-29 15:25:20 thof Exp $)
c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -10,6 +10,7 @@ c read command line options
c
c REVISIONS and CHANGES
c 24/05/2000 V1.0 Thomas Forbriger
c 29/07/2000 V1.1 introduced annotations option
c
c==============================================================================
c
......@@ -35,10 +36,10 @@ c declare local variables
integer i
c CVS Id
character*(*) refract_cmdopt_id
parameter (refract_cmdopt_id='$Id: refract_cmdopt.f,v 2.0 2000-05-24 17:20:36 thof Exp $')
parameter (refract_cmdopt_id='$Id: refract_cmdopt.f,v 2.1 2000-07-29 15:25:20 thof Exp $')
c commandline
integer maxopt
parameter(maxopt=55)
parameter(maxopt=56)
character*3 optid(maxopt)
character*120 optarg(maxopt)
logical optset(maxopt), opthasarg(maxopt)
......@@ -77,9 +78,9 @@ c seismograms scaling
& '0.1','-1.'/
c
c additionals
data (optid(i), i=55,55) /'-Lt'/
data (opthasarg(i), i=55,55) /.TRUE./
data (optarg(i), i=55,55) /'4'/
data (optid(i), i=55,56) /'-Lt','-Ta'/
data (opthasarg(i), i=55,56) /2*.TRUE./
data (optarg(i), i=55,56) /'4','NSP'/
c
c------------------------------------------------------------------------------
c go
......@@ -161,6 +162,7 @@ c titles, label, legends
if (optset(16)) opt_Ttitle=optarg(16)
if (optset(17)) opt_Txlabel=optarg(17)
if (optset(18)) opt_Tylabel=optarg(18)
opt_Tannotate=optarg(56)
read(optarg(19), *) opt_Tmode
read(optarg(20), *) opt_Tlegend
read(optarg(21), *) opt_Tscale
......
c this is <refract_pgparameters.f>
c------------------------------------------------------------------------------
c $Id: refract_pgparameters.f,v 2.0 2000-05-24 17:20:37 thof Exp $
c $Id: refract_pgparameters.f,v 2.1 2000-07-29 15:25:20 thof Exp $
c
c 04/07/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -8,62 +8,72 @@ c plot parameter settings
c
c REVISIONS and CHANGES
c 04/07/98 V1.0 Thomas Forbriger
c 29/07/00 V1.1 introduced opt_Tannotate
c
c==============================================================================
c
subroutine refract_pgparameters
c
include 'refract_para.inc'
include 'refract_opt.inc'
c
character*200 parastring
character*20 numstring
integer nchar, mm, pp, nc
real oldch, newch
integer tfstr_trimlen
c
if (debug) print *,'DEBUG: entered pgparameters'
c
if (opt_Tannotate.eq.'NSP') then
c
nchar=0
call refract_sub_pgpara(parastring, nchar, 'mode: ',6)
call pgnumb(plpar_mode, 0, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
c
call refract_sub_pgpara(parastring, nchar, ' ',3)
call refract_sub_pgpara(parastring, nchar, 'exp: ',5)
mm=int(plpar_expo*1.e3)
pp=-3
call pgnumb(mm, pp, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
nchar=0
call refract_sub_pgpara(parastring, nchar, 'mode: ',6)
call pgnumb(plpar_mode, 0, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
c
call refract_sub_pgpara(parastring, nchar, ' ',3)
call refract_sub_pgpara(parastring, nchar, 'clip: ',6)
mm=int(plpar_clip*1.e3)
pp=-3
call pgnumb(mm, pp, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
call refract_sub_pgpara(parastring, nchar, 'm',1)
call refract_sub_pgpara(parastring, nchar, ' ',3)
call refract_sub_pgpara(parastring, nchar, 'exp: ',5)
mm=int(plpar_expo*1.e3)
pp=-3
call pgnumb(mm, pp, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
c
call refract_sub_pgpara(parastring, nchar, ' ',3)
call refract_sub_pgpara(parastring, nchar, 'amp: ',5)
mm=int(plpar_amp*1.e3)
pp=-3
call pgnumb(mm, pp, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
call refract_sub_pgpara(parastring, nchar, 'm',1)
call refract_sub_pgpara(parastring, nchar, ' ',3)
call refract_sub_pgpara(parastring, nchar, 'clip: ',6)
mm=int(plpar_clip*1.e3)
pp=-3
call pgnumb(mm, pp, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
call refract_sub_pgpara(parastring, nchar, 'm',1)
c
if (plflag_reduce) then
call refract_sub_pgpara(parastring, nchar, ' ',3)
call refract_sub_pgpara(parastring, nchar, 'v\\dred\\u: ',10)
mm=int(plpar_vred*1.e3)
call refract_sub_pgpara(parastring, nchar, 'amp: ',5)
mm=int(plpar_amp*1.e3)
pp=-3
call pgnumb(mm, pp, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
call refract_sub_pgpara(parastring, nchar, 'km/s',4)
endif
call refract_sub_pgpara(parastring, nchar, 'm',1)
c
if (plpar_remav)
& call refract_sub_pgpara(parastring, nchar, ' avg',6)
if (plflag_invers)
& call refract_sub_pgpara(parastring, nchar, ' inv',6)
if (plflag_reduce) then
call refract_sub_pgpara(parastring, nchar, ' ',3)
call refract_sub_pgpara(parastring, nchar, 'v\\dred\\u: ',10)
mm=int(plpar_vred*1.e3)
pp=-3
call pgnumb(mm, pp, 0, numstring, nc)
call refract_sub_pgpara(parastring, nchar, numstring, nc)
call refract_sub_pgpara(parastring, nchar, 'km/s',4)
endif
c
if (plpar_remav)
& call refract_sub_pgpara(parastring, nchar, ' avg',6)
if (plflag_invers)
& call refract_sub_pgpara(parastring, nchar, ' inv',6)
c
else
parastring=opt_Tannotate
nchar=tfstr_trimlen(parastring)
endif
c
call pgqch(oldch)
newch=oldch*0.8
......
......@@ -2,7 +2,7 @@ c this is <refract_usage.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/refract/sub/refract_usage.f,v $)
c ($Id: refract_usage.f,v 2.2 2000-05-25 19:16:19 thof Exp $)
c ($Id: refract_usage.f,v 2.3 2000-07-29 15:25:20 thof Exp $)
c
c 24/05/2000 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -23,14 +23,14 @@ cE
c declare local variables
integer iargc
character*(*) refract_usage_id
parameter (refract_usage_id='$Id: refract_usage.f,v 2.2 2000-05-25 19:16:19 thof Exp $')
parameter (refract_usage_id='$Id: refract_usage.f,v 2.3 2000-07-29 15:25:20 thof Exp $')
c
c------------------------------------------------------------------------------
c go
print *,version
print *,'Usage: refract [-D] [-d dev] [-v] [-p]'
print *,' [-Tt title] [-Tx label] [-Ty label] [-Tm T|F]'
print *,' [-Tl T|F] [-Ts factor] [-TM t,x]'
print *,' [-Ta label] [-Tl T|F] [-Ts factor] [-TM t,x]'
print *,' [-Lw width] [-Lc] [-Lm max] [-Lt width]'
print *,' [-Cb r,g,b] [-Cf r,g,b] [-CW] [-Cc] [-Cm max]'
print *,' [-Eg] [-Ev] [-Eb] [-EP T|F] [-ES T|F] [-ET T|F]'
......@@ -62,6 +62,7 @@ c
print *,'-Tt title title string'
print *,'-Tx label x axis label'
print *,'-Ty label y axis label'
print *,'-Ta label replace mode setting annotations by ''label'' '
print *,'-Tm T|F print mode settings (T: yes; F: no)'
print *,'-Tl T|F print standard legend (T: yes; F: no)'
print *,'-Ts factor character height factor'
......
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