Commit 284f0eed authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

do not use your own skipdata

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: 1441
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 43e7e8b7
c this is <stuplo.f> by Thomas Forbriger 1996
c
c $Id: stuplo.f,v 1.16 2003-12-18 10:25:12 tforb Exp $
c $Id: stuplo.f,v 1.17 2003-12-30 17:23:42 tforb Exp $
c
c This is a simple plotting tool for seismic time series in
c SFF format
......@@ -50,6 +50,7 @@ c -y select amplitude interval
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
c======================================================================
program stuplo
......@@ -59,7 +60,7 @@ c --------------------
c
c version
character*77 version, creator
parameter(version='STUPLO V1.20 plot seismic time series (SFF format)')
parameter(version='STUPLO V1.21 plot seismic time series (SFF format)')
parameter(creator='1996 by Thomas Forbriger (IfG Stuttgart)')
c parameter definitions
integer maxsamples, maxselect, lu, maxtraces, maxchain, maxstyle
......@@ -1117,6 +1118,26 @@ c extract information from wid2line
end
c
c----------------------------------------------------------------------
c
c introduced new interface to sff_SkipData
c 28/12/2003
c
subroutine skipdata(lu, moretraces)
c
integer lu
logical moretraces
c
logical last
character*10 code
integer ierr
call sff_SkipData(lu, code, last, ierr)
moretraces=(.not.(last))
if (ierr.ne.0)
& stop 'ERROR: skipping trace'
return
end
c
c----------------------------------------------------------------------
c
c skipdata
c
......@@ -1127,7 +1148,7 @@ c a bug (the flag moretraces was not returned)
c in sff_SkipData while this program was written
c maybe newer versions of libsff will do it as well
c
subroutine skipdata(lu, moretraces)
subroutine OLDskipdata(lu, moretraces)
c declare parameters
integer lu
logical moretraces
......
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