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

variable area now can be selected tracewise

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: 4859
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 49821388
......@@ -27,6 +27,7 @@ c 17/03/98 V1.0 Thomas Forbriger
c 19/06/03 V1.1 remember trace number in file
c 14/11/11 V1.2 store minimum and maximum offset too
c 12/11/12 V1.3 store offset shift
c 20/11/12 V1.4 provide file specific variable area plot flag
c
c==============================================================================
c
......@@ -43,6 +44,7 @@ c
character*3 channel(maxtraces)
character*4 auxid(maxtraces)
character*6 instype(maxtraces)
integer usevarplot(maxtraces)
real toffset(maxtraces), dt(maxtraces)
real roffset(maxtraces), offsetshift(maxtraces)
real maxval(maxtraces), average(maxtraces), minval(maxtraces)
......@@ -56,7 +58,7 @@ c
common /refract_data/ nsamples, firstsample, filename, source,
& station, channel, auxid, instype,
& toffset, roffset, offsetshift,
& dt, fileindex, traceinfile,
& dt, fileindex, traceinfile, usevarplot,
& maxval, average, minval, data, timeofsample,
& nfiles, ntraces, firstinchain, chain, revchain,
& firstinrevchain, maxoffset, minoffset
......
......@@ -50,6 +50,7 @@ c - prefer blue
c 26/11/2010 V4.8 provide additional input formats
c 15/11/2011 V4.8a this version does safe amplitude scaling even for
c unusual cases (see refract_setscale.f)
c 20/11/2012 V4.9 several new plot style options are implemented
c
c==============================================================================
c
......@@ -57,7 +58,7 @@ c
c
character*79 version
parameter(version=
& 'REFRACT V4.8a REFRACTion seismics - data interpretation')
& 'REFRACT V4.9 REFRACTion seismics - data interpretation')
c
c get common blocks
include 'refract_dim.inc'
......
......@@ -108,9 +108,11 @@ c set correct baseline for variable area
baseline=0.
if (plpar_remav) baseline=average(i)
c plot variable area
if (plflag_vara) call varplot(timeofsample(n0),
& data(n0), baseline, (nlast-n0+1),
& plflag_invers)
if (((plflag_vara).and.(usevarplot(fileindex(i)).ne.0))
& .or.(usevarplot(fileindex(i)).eq.1))
& call varplot(timeofsample(n0),
& data(n0), baseline, (nlast-n0+1),
& plflag_invers)
c
c label trace
if (plflag_tracenum) then
......
......@@ -38,6 +38,7 @@ c trace and sff_skiptrace as well as sff_rtracei
c will close the file upon reading the last trace
c 14/11/2011 V1.8 store minimum and maximum offset
c 12/11/2012 V1.9 store offset shift
c 20/11/2012 V1.10 read variable offset flag
c
c==============================================================================
c
......@@ -126,6 +127,8 @@ c check filespace
nfiles=nfiles+1
tifcount=0
filename(nfiles)=infile
c set defaults
usevarplot(nfiles)=2
c set default style values
pg_file_ls(nfiles)=-1
pg_file_lw(nfiles)=-1
......@@ -191,6 +194,10 @@ c set legend string
elseif (selection(1:2).eq.'n:') then
i=i+1
filename(nfiles)=selection(3:)
c read variable area plot flag
elseif (selection(1:2).eq.'v:') then
i=i+1
read(selection(3:), *) usevarplot(nfiles)
else
moreflags=.false.
if (debug) print *,'DEBUG (readdata): is not a flag'
......
......@@ -33,6 +33,7 @@ c 09/09/2004 V1.4 introduced plflag_tracenum
c 26/11/2010 V1.5 provide help regarding file formats
c 17.12.2010 V1.6 format selection was missing in quick help
c 12/11/2012 V1.7 new option -Sn
c 20/11/2012 V1.8 new file specific flag v:
c
c==============================================================================
c
......@@ -57,7 +58,7 @@ c go
print *,' [-Sn] [-SR radius] [-SO minoff] [-Sh]'
print *,' [-C] [-L] [-R radius] [-O minoff]'
print *,' file [t:n,n-n] [o:s] [s:i,s,w] [n:name]'
print *,' [h:h,l,s] [r:r,g,b] [f:format]'
print *,' [h:h,l,s] [r:r,g,b] [f:format] [v:f]'
print *,' [file ...]'
print *,' or: refract -help'
print *,' or: refract -xhelp'
......@@ -274,6 +275,18 @@ c
print *,' '
print *,' f:formatID'
print *,' '
print *,'Variable area plot - v:'
print *,'-----------------------'
print *,' '
print *,' Select variable area plot for this specific file.'
print *,' '
print *,' v:f'
print *,' '
print *,' f=0: do not use variable area for this file'
print *,' f=1: use variable area for this file'
print *,' else: use variable area if selected with global'
print *,' option -v'
print *,' '
print *,'Menus to be used in interactive picking mode:'
print *,'============================================='
print *,' '
......
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