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

increased title length

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:
SVN Revision: 1454
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent e592cc98
c this is <stuplo.f> by Thomas Forbriger 1996
c $Id: stuplo.f,v 1.18 2004-01-13 14:34:56 tforb Exp $
c $Id: stuplo.f,v 1.19 2004-01-27 14:41:52 tforb Exp $
c This is a simple plotting tool for seismic time series in
c SFF format
......@@ -52,6 +52,7 @@ 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 V1.21b 27/01/04 increased title length
program stuplo
......@@ -61,7 +62,7 @@ c --------------------
c version
character*77 version, creator
parameter(version='STUPLO V1.21a plot seismic time series (SFF format)')
parameter(version='STUPLO V1.21b plot seismic time series (SFF format)')
parameter(creator='1996 by Thomas Forbriger (IfG Stuttgart)')
c parameter definitions
integer maxsamples, maxselect, lu, maxtraces, maxchain, maxstyle
......@@ -123,7 +124,7 @@ c plot style
real chf_std,chf_xlab,chf_ylab,chf_cap
integer lw_std,lw_txt,lw_cur
real ch_std,ch_xlab,ch_ylab,ch_cap
character*100 partitle, parxlabel
character*200 partitle, parxlabel
real partimeoff, parxmin, parxmax, parymin, parymax
c cursor action
logical optkeep
......@@ -142,7 +143,7 @@ c commandline
integer maxopt, lastarg, iargc
character*3 optid(maxopt)
character*80 optarg(maxopt)
character*200 optarg(maxopt)
logical optset(maxopt), opthasarg(maxopt)
c here are the keys to our commandline options
data optid/2h-d,2h-D,2h-g,2h-c,2h-u,2h-s,2h-i,2h-a,2h-t,2h-f,2h-A,2h-k,
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