Commit 85e208d3 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

reactivated (Frankfurt migration)

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: 256
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 3fcb63c6
# ---------------------------------------
#
# $Header: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/wf/Makefile,v 1.6 2000-10-12 17:44:56 forbrig Exp $
# $Header: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/wf/Makefile,v 1.7 2000-10-18 11:00:01 forbrig Exp $
#
# Makefile fuer tools /src/ts/wf
#
......@@ -28,9 +28,10 @@ stufi: stufi.o
$(F2CLIB) -L$(LOCLIBDIR) -static
newprog $@
detect: detect.o
$(CC) $(CFLAGS) detect.o -o detect -lsff $(F2CLIB) -L$(LOCLIBDIR)
newprog detect
xyz2uvw detect: %: %.o
$(CC) $(CFLAGS) $< -o $@ -lsff $(F2CLIB) -L$(LOCLIBDIR)
newprog $@
lincomb: lincomb.o
$(CC) $(CFLAGS) lincomb.o -o lincomb -lsff $(F2CLIB) -L$(LOCLIBDIR)
newprog lincomb
......
......@@ -7,6 +7,7 @@ c (sff is the Stuttgart File Format as defined in sff.doc)
c
c REVISIONS and CHANGES
c V1.0 09/01/97 first running version
c V1.1 18/10/00 pass maxsamples to sff library when reading
c
c======================================================================
character*79 version
......@@ -85,6 +86,7 @@ c read file
if (ierr.ne.0) stop 'ERROR: opening input file'
firstsamp(1)=1
do trace=1,3
nsamp(trace)=maxsamples
call sff_RTrace(lu, tanf(trace), dt(trace), wid2line(trace),
& nsamp(trace),
& fdata(firstsamp(trace)), idata(firstsamp(trace)),
......
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