Commit 9b1f017f authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

reactivate

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.
SU data conversion
fidase with gfortran


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/trunk
SVN Revision: 2817
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 56477e75
#
# Makefile for prog/invers/fidase
#
# fitting seismogram datasets to one homogeneous one
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.5 2009-04-08 07:44:36 tforb Exp $
#
# Copyright (c) 2009 by Thomas Forbriger (BFO Schiltach)
#
# fidase: prepare a homogeneous data set from individual shot files
#
# REVISIONS and CHANGES
# 08/04/2009 V1.0 Thomas Forbriger
#
# ============================================================================
#
LINLIB=-llapex -lblasex
#LINLIB=-llapex -lblasex
LINLIB=-lblas -llapack
# LINLIB=-lf2cimslmath
BUGGY=
F2CLIB=-lf2c -lm -L${SERVERLIBDIR}
F2CFLAGS=-f -u
PGPLOTLIB=-lf2cpgplot52 -lX11 -L/usr/X11/lib
PGPLOTLIB=-l$(TF_g77_PGPLOT) $(TF_LINK_PGPLOT)
CC=gcc
CFLAGS=-O2 -I${SERVERINCLUDEDIR} -I${LOCINCLUDEDIR}
CFLAGS=-I${SERVERINCLUDEDIR} -I${LOCINCLUDEDIR}
LIBSFF=-lf2cstuff -L$(SERVERLIBDIR)
FFLAGS += -ff2c -Wall -ffixed-line-length-0 -fno-backslash $(FLAGS)
GFLAG=
FIDAOBS=fidase.o fidase_readdata.o fidase_skipdata.o fidase_writedata.o \
......@@ -24,7 +34,11 @@ FIDAOBS=fidase.o fidase_readdata.o fidase_skipdata.o fidase_writedata.o \
%.doc: %.f
extractdoc.tcl $< > $(<:.f=.doc)
.f.o:
%.o: %.f
$(FC) -o $@ -c $< $(FFLAGS)
%.f2c.o: %.f
f2c $(F2CFLAGS) $<
$(CC) $(CFLAGS) $(GFLAG) $(<:.f=.c) -c
@rm $(<:.f=.c)
......@@ -33,10 +47,11 @@ clean:
-/bin/rm *.o *.bak
fidase: $(FIDAOBS)
$(CC) -o $(LOCBINDIR)/fidase $(FIDAOBS) \
$(FC) -o fidase $(FIDAOBS) \
-ltf -lts -lsffu -ltime_trad -lsff \
$(PGPLOTLIB) $(LINLIB) \
-L$(LOCLIBDIR) $(F2CLIB)
-L$(LOCLIBDIR)
/bin/mv -fv $@ $(LOCBINDIR)
docs: $(DOCS)
......@@ -51,3 +66,5 @@ flist: Makefile $(FIDAOBS:.o=.f) *.inc
echo *.inc | tr ' ' '\n' | sort >> $@
edit: flist; vim $<
# ----- END OF Makefile -----
c this is <fidase.f>
c------------------------------------------------------------------------------
c $Id: fidase.f,v 1.4 2004-09-09 12:21:36 tforb Exp $
c $Id: fidase.f,v 1.5 2009-04-08 07:44:36 tforb Exp $
c
c 09/07/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -57,6 +57,7 @@ c------------------------------------------------------------------------------
c basic information
c
argument=' '
c print *,'iargc: ',iargc()
if (iargc().eq.1) call getarg(1, argument)
c
if ((argument(1:5).eq.'-help').or.(iargc().lt.1)) then
......@@ -109,7 +110,7 @@ c
print *,'This prevents the algorithm from make second derivatives'
print *,'small just be setting this trace to zero.'
print *,' '
print *,'$Id: fidase.f,v 1.4 2004-09-09 12:21:36 tforb Exp $'
print *,'$Id: fidase.f,v 1.5 2009-04-08 07:44:36 tforb Exp $'
stop
endif
c
......
c this is <fidase_readdata.f>
c------------------------------------------------------------------------------
c $Id: fidase_readdata.f,v 1.6 2004-09-09 12:22:08 tforb Exp $
c $Id: fidase_readdata.f,v 1.7 2009-04-08 07:44:36 tforb Exp $
c
c 09/07/98 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -13,6 +13,7 @@ c 23/10/01 V1.2 read stack counter to array
c 11/09/02 V1.3 maxselect must be maxtraces (everything else would make
c no sense)
c 09/09/04 V1.4 extract time window
c 08/04/09 V1.5 use while loop
c
c==============================================================================
c
......@@ -69,7 +70,10 @@ c ok go
allnsamples=0
hot=.true.
c
do i=(lastarg+1),(iargc()-1)
i=(lastarg)
do while (i.lt.(iargc()-1))
i=i+1
c do i=(lastarg+1),(iargc()-1)
c still enough data space left?
if (hot) then
c
......
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