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