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

adjust ordinate labels

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: 5301
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 7eef93ba
......@@ -218,10 +218,15 @@ c
c titles, label, legends
opt_Ttitle=version
opt_Txlabel='time / s'
if (opt_Sradius.gt.0.) then
opt_Tylabel='offset / ^'
if (opt_Sordinate.eq.0) then
if (opt_Sradius.gt.0.) then
opt_Tylabel='offset / ^'
else
opt_Tylabel='offset / m'
endif
else
opt_Tylabel='offset / m'
opt_Tylabel='x? coordinate / m'
write (opt_Tylabel(2:2), '(i1)') opt_Sordinate
endif
if (optset(16)) opt_Ttitle=optarg(16)
if (optset(17)) opt_Txlabel=optarg(17)
......
......@@ -272,11 +272,18 @@ c extract info
& sffu_offset(scs,sc1,sc2,0.,rcs,rc1,rc2,0.)
endif
fieldoffset(ntraces)=roffset(ntraces)
if ((opt_Sordinate.ge.1)
& .and.(opt_Sordinate.le.3)
& .and.(rcs.ne.'C')) then
print *,'WARNING (readdata): '//
& 'with non-Cartesian coordinates the ordinate '//
& 'label might be inappropriate!'
endif
if (opt_Sordinate.eq.1) then
roffset(ntraces)=rc1
elseif (opt_Sordinate.eq.2) then
elseif (opt_Sordinate.eq.2) then
roffset(ntraces)=rc2
elseif (opt_Sordinate.eq.3) then
elseif (opt_Sordinate.eq.3) then
roffset(ntraces)=rc3
elseif (opt_Sordinate.ne.0) then
stop 'ERROR (readdata): '//
......
......@@ -203,9 +203,9 @@ c
print *,' epicenter)'
print *,'-So n define ordinate scale:'
print *,' n=0: source to receiver offset (default)'
print *,' n=1: x coordinate'
print *,' n=2: y coordinate'
print *,' n=3: z coordinate'
print *,' n=1: x1 coordinate'
print *,' n=2: x2 coordinate'
print *,' n=3: x3 coordinate'
print *,' in cases where ordinate scales other than'
print *,' source to receiver offset are used together'
print *,' with reduced time scales, the application'
......
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