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

improved time scale

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: 1450
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent b1cbfa71
c this is <stuplo.f> by Thomas Forbriger 1996
c
c $Id: stuplo.f,v 1.17 2003-12-30 17:23:42 tforb Exp $
c $Id: stuplo.f,v 1.18 2004-01-13 14:34:56 tforb Exp $
c
c This is a simple plotting tool for seismic time series in
c SFF format
......@@ -51,6 +51,7 @@ c V1.19a 05/04/02 -E character scaling was incomplete
c V1.19b 17/06/02 longer annotation string
c V1.20 26/06/02 new option -W
c V1.21 28/12/03 new skipdata subroutine
c V1.21a 13/01/04 improved time scale
c
c======================================================================
program stuplo
......@@ -60,7 +61,7 @@ c --------------------
c
c version
character*77 version, creator
parameter(version='STUPLO V1.21 plot seismic time series (SFF format)')
parameter(version='STUPLO V1.21a plot seismic time series (SFF format)')
parameter(creator='1996 by Thomas Forbriger (IfG Stuttgart)')
c parameter definitions
integer maxsamples, maxselect, lu, maxtraces, maxchain, maxstyle
......@@ -766,7 +767,7 @@ c
call pgtbox('ZABCTSHO',0.0,0,'BCTS',0.0,0)
call pgslw(lw_txt)
call pgsch(ch_xlab)
call pgtbox('ZN',0.0,0,' ',0.0,0)
call pgtbox('ZNHO',0.0,0,' ',0.0,0)
call pgslw(lw_std)
call pgsch(ch_std)
else
......
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