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:
SVN Revision: 5301
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 7eef93ba
......@@ -218,11 +218,16 @@ c
c titles, label, legends
opt_Txlabel='time / s'
if (opt_Sordinate.eq.0) then
if ( then
opt_Tylabel='offset / ^'
opt_Tylabel='offset / m'
opt_Tylabel='x? coordinate / m'
write (opt_Tylabel(2:2), '(i1)') opt_Sordinate
if (optset(16)) opt_Ttitle=optarg(16)
if (optset(17)) opt_Txlabel=optarg(17)
if (optset(18)) opt_Tylabel=optarg(18)
......@@ -272,6 +272,13 @@ c extract info
& sffu_offset(scs,sc1,sc2,0.,rcs,rc1,rc2,0.)
if ((
& .and.(opt_Sordinate.le.3)
& .and.('C')) then
print *,'WARNING (readdata): '//
& 'with non-Cartesian coordinates the ordinate '//
& 'label might be inappropriate!'
if (opt_Sordinate.eq.1) then
elseif (opt_Sordinate.eq.2) then
......@@ -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'
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