Commit 43d4ca40 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

check wid2line for srate format

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: 1669
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 1e3d090f
c this is <stufi.f> by Thomas Forbriger 1996
c
c $Header: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/wf/stufi.f,v 1.2 2000-02-09 17:20:15 thof Exp $
c $Header: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/wf/stufi.f,v 1.3 2005-04-15 13:18:54 tforb Exp $
c
c this is a special version of SEIFE by E. Wielandt
c for input and output fo sff format files
......@@ -20,12 +20,17 @@ c V1.5 15/07/98 * give usage information only without arguments
c * introduced verbose mode
c V1.6 21/02/99 changed tflib calls to tf_
c V1.7 09/02/00 allow longer path names
c V1.8 15/04/05 catch sample rates that do not fit on the output format
c
c $Log: not supported by cvs2svn $
c Revision 1.2 2000/02/09 17:20:15 thof
c commit rest of changes
c
c
c======================================================================
character*77 version, creator
parameter(version='STUFI V1.7 E. Wielandts filter routines for sff files')
parameter(version=
& 'STUFI V1.8 E. Wielandts filter routines for sff files')
parameter(creator='1996 by Thomas Forbriger (IfG Stuttgart)')
c dimensions
integer maxcontrol, maxsamples, maxfree, maxselect
......@@ -49,6 +54,7 @@ c sff specific
character*132 wid2line
character soutyp*20, soucs*1, soudate*6, soutime*10
real souc1, souc2, souc3, tanf, ampfac
double precision srat
integer idata(maxsamples)
logical moretraces, expectmoretraces
integer hour, minute
......@@ -467,7 +473,12 @@ c to WID2: nsamples, dt, tmin, tsec
endif
write(wid2line(17:28), '(i2,a1,i2,a1,f6.3)')
& hour,':',minute,':',second
write(wid2line(58:68), '(f11.6)') 1./dt
srat=1./dt
if ((srat.lt.1.e-4).or.(srat.gt.100.)) then
write(wid2line(58:68), '(e11.6)') 1./dt
else
write(wid2line(58:68), '(f11.6)') 1./dt
endif
write(wid2line(49:56), '(i8)') nsamples
call tf_doubletoint(nsamples, maxsamples,
& idata, x, ampfac)
......
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