Commit 7420ba8b authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

merged recent trunk changes

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/branches/libdatrwxx.su2
SVN Revision: 3598
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 712a12d1
......@@ -32,6 +32,7 @@ LIBDIRS=libaff \
libtsxx \
libserialxx \
libfapidxx \
libttsynt
TARGETS=$(addsuffix .install,$(LIBDIRS))
REINSTALL=$(addsuffix .reinstall,$(LIBDIRS))
......
c this is <stuff.f>
c
c This is the main Fortran file of libsff.
c The original file is copyright by Wolfgang Friederich and Thomas Forbriger.
c The original file is
c Copyright 1996 by Wolfgang Friederich and Thomas Forbriger.
c
c ----
c This program is free software; you can redistribute it and/or modify
......
......@@ -5,6 +5,22 @@
# Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
#
# synthetic traveltimes for dipping refractors
#
# ----
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
# ----
#
# REVISIONS and CHANGES
# 21/03/2002 V1.0 Thomas Forbriger
......@@ -12,20 +28,23 @@
# ============================================================================
#
F2CLIB=-lm -lf2c -L${SERVERLIBDIR}
F2CFLAGS=-f -u
G77FLAGS=-Wall -ffixed-line-length-0 -fno-backslash
PGPLOTLIB=-lf2cpgplot52 -lX11 -L/usr/X11/lib
PGPLOTLIB77=-lpgplot52 -lX11 -L/usr/X11/lib
CC=gcc
INCDIR=-I${SERVERINCLUDEDIR} -I${LOCINCLUDEDIR}
OPTFLAG=-O2
all: install libttsynt.doc
install: libttsynt.a
# check mandatory environment variable settings
# ---------------------------------------------
CHECKVAR=$(if $($(1)),,$(error ERROR: missing variable $(1)))
CHECKVARS=$(foreach var,$(1),$(call CHECKVAR,$(var)))
$(call CHECKVARS,LOCINCLUDEDIR LOCLIBDIR LOCBINDIR)
FFLAGS += -ff2c -Wall -ffixed-line-length-0 -fno-backslash $(FLAGS)
LIBSRC=$(wildcard *.f)
LIBOBS=$(patsubst %.f,%.o,$(LIBSRC))
all:
#----------------------------------------------------------------------
flist: Makefile $(LIBSRC) $(wildcard *.inc)
echo $^ | tr ' ' '\n' | sort > $@
......@@ -38,27 +57,31 @@ clean: ;
-find . -name \*.bak | xargs --no-run-if-empty /bin/rm -v
-/bin/rm -vf flist *.o
#----------------------------------------------------------------------
# ASCII documentation (Fortran and C code)
# ----------------------------------------
libttsynt.doc: $(LIBSRC)
/usr/bin/awk 'BEGIN{ hot=0; } \
/^cS/ { hot=1; \
print " c"; \
print FILENAME; \
print " c"; \
next; } \
/^cE/ { hot=0; } \
{ if (hot==1) { print " " $$0; } }' $^ > $@
#----------------------------------------------------------------------
libttsynt.a: $(LIBOBS)
ar rcv libttsynt.a $(LIBOBS)
ranlib libttsynt.a
newlib libttsynt.a
-include make.dep
/bin/mv -fv libttsynt.a $(LOCLIBDIR)
#%.o: %.f
# g77 $(OPTFLAG) -c -o $@ $< $(G77FLAGS)
%.d: %.f
echo $<: $(shell cat $< | egrep '^ +include' | cut -f 2 -d \' | sort | uniq) > $@
-include $(patsubst %.f,%.d,$(LIBSRC))
ifeq ($(TF_FALLBACK),yes)
%.o: %.f
f2c $(F2CFLAGS) $<
$(CC) $(CFLAGS) $(<:.f=.c) -c
@rm $(<:.f=.c)
else
%.o: %.f
$(FC) -O2 -o $@ -c $< $(FFLAGS)
endif
make.dep: *.f
incdep > make.dep
# ----- END OF Makefile -----
......@@ -3,7 +3,23 @@ c------------------------------------------------------------------------------
cS
c $Id$
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c convert model format defined by Gunther Reimann to our format
c
......
......@@ -2,10 +2,26 @@ c this is <tt_inbo.f>
c------------------------------------------------------------------------------
cS
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c return backoffset which is distance between shotpoints
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger
c
......
c this is <tt_incmp.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c return absolute cmp avlues
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger
c
......
c this is <tt_ingeom.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 17/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c get frame geometry
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 17/09/99 V1.0 Thomas Forbriger
c
......
c this is <tt_ingrmod.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c return parameters of any interface of the Gunther Reimann model
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger
c
......
c this is <tt_inlay.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c return number of layers
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger
c
......
......@@ -3,7 +3,23 @@ c------------------------------------------------------------------------------
cS
c $Id$
c
c 17/09/99 by Thomas Forbriger (IfG Stuttgart)
c Coypright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c return single refractor values
c
......
c this is <tt_intt.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 17/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c retuen travel times
c return travel times
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 17/09/99 V1.0 Thomas Forbriger
......
c this is <tt_prepmod.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c calculate additional lengths describing model
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c anything that is independent of the ray geometry
c
c REVISIONS and CHANGES
......
c this is <tt_propagate.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 17/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c propagate refracted waves to apparent slowness and intercept times
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 17/09/99 V1.0 Thomas Forbriger
c
......
......@@ -3,7 +3,23 @@ c------------------------------------------------------------------------------
cS
c $Id$
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c Coypright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c read model format defined by Gunther Reimann
c
......
c this is <tt_ttime.f>
c------------------------------------------------------------------------------
cS
c $Id$
c
c 16/09/99 by Thomas Forbriger (IfG Stuttgart)
c Copyright 1999, 2010 by Thomas Forbriger (IfG Stuttgart)
c
c calculate first arrival time at given offset
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c
c REVISIONS and CHANGES
c 16/09/99 V1.0 Thomas Forbriger
c
......
......@@ -6,6 +6,22 @@ c Copyright (c) 2008 by Thomas Forbriger (BFO Schiltach)
c
c calculate response of two coupled mass-spring oscillators
c
c ----
c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 2 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program; if not, write to the Free Software
c Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
c ----
c
c REVISIONS and CHANGES
c 03/11/2008 V1.0 Thomas Forbriger
c 17/12/2008 V1.1 there was a factor sqrt(2*pi) missing in all sysmtem
......
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