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

correct plot 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: 3065
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 8a7413fc
c this is <phadi.f>
c------------------------------------------------------------------------------
c ($Id: phadi.f,v 1.14 2010-07-25 20:40:44 tforb Exp $)
c ($Id: phadi.f,v 1.15 2010-07-27 12:30:19 tforb Exp $)
c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -33,6 +33,7 @@ c and introduced frequency limit for threshold
c 25/07/2010 V1.5 Zacharias found a bug: There was a parameter
c missing in a call to pgpt - I wonder how this
c went unnoticed over so many years...
c 27/07/2010 V1.6 correct plot labels
c
c==============================================================================
c
......@@ -40,10 +41,10 @@ c
c
character*(*) version
parameter(version=
& 'PHADI V1.5 calculate dispersion relation from phase differences')
& 'PHADI V1.6 calculate dispersion relation from phase differences')
character*(*) PHADI_CVS_ID
parameter(PHADI_CVS_ID=
& '$Id: phadi.f,v 1.14 2010-07-25 20:40:44 tforb Exp $')
& '$Id: phadi.f,v 1.15 2010-07-27 12:30:19 tforb Exp $')
c input dataset
character*80 filename
integer maxtraces, totmaxsamples
......@@ -438,9 +439,9 @@ c
c
call pgenv(xmin,xmax,ymin,ymax,0,2)
if (ftime) then
call pglab('Offset (m)','Phasetime (s)','Phase')
call pglab('Offset (m)','Phase traveltime (s)','Phase')
else
call pglab('Offset (m)','Phase (2\\gp)','Phase')
call pglab('Offset (m)','Phase (2\gp)','Phase')
endif
do i=1,nf
call pgline(nt-1,vx(1,i),vy(1,i))
......@@ -618,7 +619,7 @@ c tell something about our results
call pgbox('BCGTS',0.0,0,'BCGTS',0.0,0)
call pgslw(pg_slw)
call pgsls(1)
call pglab('Offset (m)', 'Phasenlaufzeit (s)', title)
call pglab('Offset (m)', 'Phase traveltime (s)', title)
call pgslw(pg_clw)
call pgline(nt-1,vx(1,1),vy(1,1))
call pgsci(pg_fci)
......@@ -658,7 +659,7 @@ c tell something about our results
call pgbox('BCGTS',0.0,0,'BCGTS',0.0,0)
call pgslw(pg_slw)
call pgsls(1)
call pglab('Offset (m)', 'Phasenlaufzeit-Fehler (ms)', title)
call pglab('Offset (m)', 'phase traveltime residual (ms)', title)
call pgslw(pg_clw)
call pgline(nt-1,vx(1,1),vy(1,1))
call pgsci(pg_fci)
......
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