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

graph annotations: corrected

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: 2972
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 342b4aac
......@@ -132,9 +132,9 @@ c plot box
c
call pgsch(pg_lch)
if (pg_plottitle) then
call pglabel('frequency (Hz)','phase-slowness (s/km)',title)
call pglabel('frequency / Hz','phase-slowness / s km\u-1',title)
else
call pglabel('frequency (Hz)','phase-slowness (s/km)',' ')
call pglabel('frequency / Hz','phase-slowness / s km\u-1',' ')
endif
call pgsch(pg_ch)
c
......@@ -161,9 +161,9 @@ c
if (verb_subaction) print *,'LEAVE pg_tapgreen'
c
return
50 format(a,'synthetic amplitudes (\\gx\\u2\\d\\dtotal\\u=',
50 format(a,'synthetic amplitudes (\gx\u2\d\dtotal\u=',
& f12.7,')')
51 format(a,'synthetics (\\gx\\u2\\d\\dtotal\\u=',
51 format(a,'synthetics (\gx\u2\d\dtotal\u=',
& f5.2,')')
end
c
......
......@@ -67,9 +67,9 @@ c
call pgbox('BCNTS',0.,0,'BCNTS',0.,0)
call pgsch(pg_lch)
if (pg_plottitle) then
call pglabel('offset [m]','time [ms]',title)
call pglabel('offset / m','time / ms',title)
else
call pglabel('offset [m]','time [ms]',' ')
call pglabel('offset / m','time / ms',' ')
endif
call pgsch(pg_ch)
call pgswin(xmin,xmax,tmin,tmax)
......
......@@ -98,11 +98,11 @@ c
call pgbox('BCNTS',0.,0,'BCNTS',0.,0)
call pgsch(pg_lch)
if (pg_plottitle) then
call pglabel('offset (m)',
& 'time/(search range) (ms/par.unit)',title)
call pglabel('offset / m',
& 'time/(search range) / ms/par.unit',title)
else
call pglabel('offset (m)',
& 'time/(search range) (ms/par.unit)',' ')
call pglabel('offset / m',
& 'time/(search range) / ms/par.unit',' ')
endif
call pgsch(pg_ch)
call pgswin(xmin,xmax,tmin,tmax)
......
......@@ -96,9 +96,9 @@ c
call pgbox('BCNTS',0.,0,'BCNTS',0.,0)
call pgsch(pg_lch)
if (pg_plottitle) then
call pglabel('offset (m)','time (ms)',title)
call pglabel('offset / m','time / ms',title)
else
call pglabel('offset (m)','time (ms)',' ')
call pglabel('offset / m','time / ms',' ')
endif
call pgsch(pg_ch)
call pgswin(xmin,xmax,tmin,tmax)
......@@ -142,8 +142,8 @@ c
if (verb_subaction) print *,'LEAVE pg_tt'
c
return
50 format('travel times (\\gx\\u2\\d\\dtotal\\u=',f12.7,')')
51 format('travel times (\\gx\\u2\\d\\dtotal\\u=',f5.2,')')
50 format('travel times (\gx\u2\d\dtotal\u=',f12.7,')')
51 format('travel times (\gx\u2\d\dtotal\u=',f5.2,')')
end
c
c ----- END OF pg_tt.f -----
......@@ -77,7 +77,7 @@ c
c
write (title,50) pvar_pdev
call pgenv(pamin, pamax, X2min, X2max, 0, 2)
call pglab('-10*log\\d10\\u(\\gn)', '\\gx\\u2\\d(\\gn)', title)
call pglab('-10*log\d10\u(\gn)', '\gx\u2\d(\gn)', title)
call pgline(nsamp, param, X2)
call pgupdt
c
......
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