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