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

set defaults for ps plot

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: 1753
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 7b143d26
c this is <refract.f>
c------------------------------------------------------------------------------
c $Id: refract.f,v 2.6 2004-09-09 07:14:18 tforb Exp $
c $Id: refract.f,v 2.7 2005-06-16 09:09:40 tforb Exp $
c
c 09/01/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -29,6 +29,8 @@ c 22/01/01 V4.3 improved wiggle-plot
c 19/03/02 V4.4 increased polygon breaks visibility
c 16/07/2003 V4.5 new option to label traces
c 09/09/2004 V4.6 new option to label traces with station names
c 16/06/2005 V4.7 - set defaults in doplot subroutine
c - prefer blue
c
c==============================================================================
c
......@@ -36,7 +38,7 @@ c
c
character*79 version
parameter(version=
& 'REFRACT V4.6 REFRACTion seismics - data interpretation')
& 'REFRACT V4.7 REFRACTion seismics - data interpretation')
c
c get common blocks
include 'include/refract_dim.inc'
......@@ -88,8 +90,6 @@ c plot and loop
c
pg_maindevice=pgp_open(device)
if (pg_maindevice.le.0) stop 'ERROR: opening pgplot device'
call refract_pgdefaults
call refract_pgnamscal
c
c set window to command line settings
if (opt_Sxrange) then
......
c this is <refract_doplot.f>
c------------------------------------------------------------------------------
c $Id: refract_doplot.f,v 2.0 2000-05-24 17:20:37 thof Exp $
c $Id: refract_doplot.f,v 2.1 2005-06-16 09:09:41 tforb Exp $
c
c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -8,6 +8,7 @@ c perform a complete plot
c
c REVISIONS and CHANGES
c 30/04/98 V1.0 Thomas Forbriger
c 16/06/2005 V1.1 set defaults here
c
c==============================================================================
cS
......@@ -29,6 +30,9 @@ cE
c
call pgslct(idev)
c set defaults
call refract_pgdefaults
call refract_pgnamscal
if (verbose) then
pgq_item='DEV/TYPE'
call pgqinf(pgq_item, pgq_value, pgq_length)
......
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