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

implemented new option -TF

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: 5351
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 6f25bd37
......@@ -32,6 +32,7 @@ c reduction to offset shifted traces
c 24/10/2013 V1.5 - added ordinate switch
c - added parameters to refer scaling mode 3 amplitude to
c an offset range
c 18/11/2013 V1.6 added option -TF
c
c==============================================================================
c
......@@ -40,7 +41,7 @@ c titles, labels, legends
character*120 opt_Txlabel
character*120 opt_Tylabel
character*120 opt_Tannotate
logical opt_Tmode, opt_Tlegend, opt_Tmodel
logical opt_Tmode, opt_Tlegend, opt_Tmodel, opt_Tfilename
real opt_Tscale, opt_Tmodx, opt_Tmodt
c
c line and color options
......@@ -85,6 +86,6 @@ c common blocks
& opt_Ebubble, opt_Epicks, opt_Ewave, opt_Ett,
& opt_ECpicks, opt_ECwave, opt_ECtt, opt_Sinv,
& opt_Savg, opt_Sxrange, opt_Strange, opt_Sreduce,
& opt_Sosnoreduce, opt_Savgref
& opt_Sosnoreduce, opt_Savgref, opt_Tfilename
c
c ----- END OF refract_opt.inc -----
......@@ -59,7 +59,7 @@ c
c
character*79 version
parameter(version=
& 'REFRACT V4.10 REFRACTion seismics - data interpretation')
& 'REFRACT V4.11 REFRACTion seismics - data interpretation')
c
c get common blocks
include 'refract_dim.inc'
......
......@@ -38,6 +38,7 @@ c 13/11/2012 V1.10 new option -Ef and -TL
c 20/11/2012 V1.11 new option -Eu
c 24/10/2013 V1.12 - new option -So
c - new option -S3
c 18/11/2013 V1.13 new option -TF
c
c==============================================================================
c
......@@ -67,7 +68,7 @@ c CVS Id
& '$Id$')
c commandline
integer maxopt
parameter(maxopt=66)
parameter(maxopt=67)
character*3 optid(maxopt)
character*120 optarg(maxopt)
logical optset(maxopt), opthasarg(maxopt)
......@@ -86,6 +87,9 @@ c titles, labels, legends
data optid(63) /'-TL'/
data opthasarg(63) /.TRUE./
data optarg(63) /'5'/
data optid(67) /'-TF'/
data opthasarg(67) /.FALSE./
data optarg(67) /'-'/
c line options and color options
data (optid(i), i=23,30) /'-Lw','-Lc','-Lm','-Cb','-Cf',
& '-CW','-Cc','-Cm'/
......@@ -250,6 +254,7 @@ c titles, label, legends
read(optarg(63), *) pg_nam_maxlines
if (pg_nam_maxlines.lt.1)
& stop 'ERROR: at least one line must be provided for file names'
opt_Tfilename=optset(67)
c
c override traditional options
c ============================
......
......@@ -65,6 +65,7 @@ c use data space as input buffer
c
c some helpfull things
integer i, iargc, ierr, lu, j, allnsamples, k
integer tfstr_trimlen
parameter(lu=10)
character*120 infile
character*120 fileformat
......@@ -197,7 +198,14 @@ c set hls color
c set legend string
elseif (selection(1:2).eq.'n:') then
i=i+1
filename(nfiles)=selection(3:)
if (opt_Tfilename) then
filename(nfiles)=selection(3:tfstr_trimlen(selection))//
& ' ('//
& filename(nfiles)(1:tfstr_trimlen(filename(nfiles)))//
& ')'
else
filename(nfiles)=selection(3:)
endif
c read variable area plot flag
elseif (selection(1:2).eq.'v:') then
i=i+1
......
......@@ -37,6 +37,7 @@ c new option -Eu
c new file specific flag b:
c 24/10/2013 V1.9 - new option -So
c - new option -S3
c 18/11/2013 V1.10 new option -TF
c
c==============================================================================
c
......@@ -51,7 +52,8 @@ c go
print *,'Usage: refract [-D] [-d dev] [-v] [-p] [-ty format]'
print *,' [-Tt title] [-Tx label] [-Ty label] [-Tm T|F]'
print *,' [-Ta label] [-Tl T|F] [-Ts factor] [-TM t,x]'
print *,' [-TL n] [-Lw width] [-Lc] [-Lm max] [-Lt width]'
print *,' [-TL n] [-TF]'
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]'
print *,' [-En] [-Es] [-Ew T|F] [-Et T|F] [-Ep T|F]'
......@@ -136,6 +138,7 @@ c
print *,'-TM t,x plot model box at time t and offset x'
print *,'-TL n do not use more than n lines for'
print *,' file name annotations'
print *,'-TF append filename to file label'
print *,' '
print *,'Line options'
print *,'------------'
......
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