Commit 450f1694 authored by thomas.forbriger's avatar thomas.forbriger Committed by thomas.forbriger
Browse files

publish

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: 2300
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 4516f50c
# ---------------------------------------
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.9 2007-06-05 09:35:48 tforb Exp $
#
# Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
#
# Makefile fuer plot/grepg
# ----
# 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
# ----
#
# DISplay Fourier Bessel expansion coefficients
#
# ---------------------------------------
# this directory contains the following programs:
#
# grepg: display Fourier Bessel expansion coefficients
# like created by greda or syg
# grepg77: second make target linked againts g77 version of
# PGPLOT which may contain additional drivers (e.g.GIF)
#
# libraries/packages needed to compile the code
# f2c: Fortran to C converter from netlib
# PGPLOT: libpgplot.a and g77 version libpgplot77.a
# they are called libf2cpgplot52.a and libpgplot52.a here
# source code can be obtained from
# www.astro.caltech.edu/~tjp/pgplot/
#
# libts: package containing libts.a
# you can obtain the latter package from where you obtained the present code
#
# REVISIONS and CHANGES
# 05/06/2007 V1.0 Thomas Forbriger
#
# ============================================================================
#
all: grepg grepg77
.PHONY: clean
clean: ;
-find . -name \*.bak | xargs --no-run-if-empty /bin/rm -v
-/bin/rm -vf flist
-/bin/rm -v *.o *.bak *.o77 flist
.PHONY: edit
edit: flist ; vim flist
flist: *.f *.inc Makefile ; echo $^ | tr ' ' '\n' | sort > $@
F2CLIB=-lf2c -lm -L${SERVERLIBDIR}
PGPLOTLIB=-lf2cpgplot52 -lX11 -L/usr/X11/lib -L$(SERVERLIBDIR)
......@@ -33,13 +86,6 @@ grepg_ardim.xxx.inc: grepg_ardim.inc; /bin/cp -v $< $@
%.o77: %.f
g77 -O2 -o $@ -c $< -Wall -ffixed-line-length-0 -fno-backslash
.PHONY: clean edit
clean:
-/bin/rm -v *.o *.bak *.o77 flist
edit: flist ; vim flist
flist: *.f *.inc Makefile ; echo $^ | tr ' ' '\n' | sort > $@
grepg77: $(GREBOBS:.o=.o77)
g77 $(FLAGS) $^ -o $@ -ltf77 -lpgplot52 -lX11 \
-L$(SERVERLIBDIR) -L$(LOCLIBDIR) -L/usr/X11/lib
......@@ -49,3 +95,27 @@ grepg: $(GREBOBS)
$(CC) $(FLAGS) $(GREBOBS) -o grepg -ltf \
$(PGPLOTLIB) $(F2CLIB) -L$(LOCLIBDIR)
newprog grepg
#======================================================================
# create package
# --------------
VERSIONCODE=$(shell date +'%Y%m%d')
PACKAGE=grepg$(VERSIONCODE)
PUBLICATIONPATH=$(HOME)/public_html/download/software
TMPPATH=$(HOME)/tmp/$(PACKAGE)
package:
/bin/rm -rfv $(TMPPATH); mkdir -pv $(TMPPATH)
cd $(TMPPATH)/..; cvs export -l -r HEAD \
-d $(PACKAGE) thof/src/green/grepg
cd $(TMPPATH)/..; cvs export -r HEAD -d $(PACKAGE) thof/src/LICENSE.GPL
cd $(TMPPATH)/..; cvs export -r HEAD \
-d $(PACKAGE) thof/src/README.compile
/bin/bash -c 'cd $(TMPPATH); \
export LOCBINDIR=bin; mkdir -v bin; \
make all; make clean'
cd $(TMPPATH)/..; tar cvf $(PUBLICATIONPATH)/$(PACKAGE).tar $(PACKAGE)
gzip --force -9 $(PUBLICATIONPATH)/$(PACKAGE).tar
cd $(TMPPATH)/..; tar cvf $(PUBLICATIONPATH)/$(PACKAGE).tar $(PACKAGE)
bzip2 -f $(PUBLICATIONPATH)/$(PACKAGE).tar
# ----- END OF Makefile -----
c this is file <grepg.f>
c======================================================================
c $Id: grepg.f,v 1.36 2006-06-02 15:37:00 tforb Exp $
c $Id: grepg.f,v 1.37 2007-06-05 09:35:48 tforb Exp $
c
c GREPG.F
c
......@@ -8,6 +8,22 @@ c Thomas Forbriger
c Institut fuer Geophysik
c Universitaet 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 show amplitude plot of greens function matrix
c
c 25/06/97 V1.0 first running version (from amppg.f)
......@@ -115,7 +131,7 @@ c program version:
character*120 CVS_VERSION
parameter(CVS_VERSION=
& '$Id: grepg.f,v 1.36 2006-06-02 15:37:00 tforb Exp $')
& '$Id: grepg.f,v 1.37 2007-06-05 09:35:48 tforb Exp $')
c declare variables for io
character*80 filename
......
......@@ -7,6 +7,22 @@ c Thomas Forbriger
c Institut fuer Geophysik
c Universitaet 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 show amplitude plot of greens function matrix
c
c 25/06/97 V1.0 first running version (from amppg.f)
......
......@@ -7,6 +7,22 @@ c Thomas Forbriger
c Institut fuer Geophysik
c Universitaet 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 show amplitude plot of greens function matrix
c
c 25/06/97 V1.0 first running version (from amppg.f)
......
c this is <grepg_ardim.inc>
c ----------------------------------------------------------------------------
c ($Id: grepg_ardim.inc,v 1.1 2003-09-05 06:34:18 tforb Exp $)
c ($Id: grepg_ardim.inc,v 1.2 2007-06-05 09:35:49 tforb Exp $)
c
c Copyright (c) 2003 by Thomas Forbriger (BFO Schiltach)
c
c basic array dimensions for grepg
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 05/09/2003 V1.0 Thomas Forbriger
c
......
c this is <grepg_contr.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/green/grepg/grepg_contr.f,v $)
c ($Id: grepg_contr.f,v 1.2 2000-04-07 18:47:13 thof Exp $)
c ($Id: grepg_contr.f,v 1.3 2007-06-05 09:35:49 tforb Exp $)
c
c 07/04/2000 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 increase contrast
c
c REVISIONS and CHANGES
c 07/04/2000 V1.0 Thomas Forbriger
c
c $Log: not supported by cvs2svn $
c Revision 1.2 2000/04/07 18:47:13 thof
c did a lot of data modification enhancements in gremlin1
c
c Revision 1.1 2000/04/07 16:19:54 thof
c added some modification options to grepg
c
......@@ -29,7 +47,7 @@ c
cE
c declare local variables
character*(*) grepg_contr_id
parameter (grepg_contr_id='$Id: grepg_contr.f,v 1.2 2000-04-07 18:47:13 thof Exp $')
parameter (grepg_contr_id='$Id: grepg_contr.f,v 1.3 2007-06-05 09:35:49 tforb Exp $')
double precision maxval, x, xd
integer i,j
c
......
c this is <grepg_dim.inc>
c------------------------------------------------------------------------------
c $Id: grepg_dim.inc,v 1.6 2002-09-19 20:49:12 forbrig Exp $
c $Id: grepg_dim.inc,v 1.7 2007-06-05 09:35:49 tforb Exp $
c
c 25/11/98 by Thomas Forbriger (IfG Stuttgart)
c
c set array dimensions
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 25/11/98 V1.0 Thomas Forbriger
c 21/01/02 V1.1 now use different dimension for read picks
......
c this is <grepg_dopicks.f>
c------------------------------------------------------------------------------
c
c $Id: grepg_dopicks.f,v 1.4 2002-01-22 11:43:21 forbrig Exp $
c $Id: grepg_dopicks.f,v 1.5 2007-06-05 09:35:49 tforb Exp $
c
c 25/11/98 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 pick dispersion CURVES
c
c REVISIONS and CHANGES
......
c this is <grepg_fourier.inc>
c ----------------------------------------------------------------------------
c ($Id: grepg_fourier.inc,v 1.1 2002-09-13 21:08:43 forbrig Exp $)
c ($Id: grepg_fourier.inc,v 1.2 2007-06-05 09:35:49 tforb Exp $)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c data space for Fourier coefficients
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 13/09/2002 V1.0 Thomas Forbriger
c
......
......@@ -5,6 +5,22 @@ c 25/11/98 by Thomas Forbriger (IfG Stuttgart)
c
c display or remove messages
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 25/11/98 V1.0 took this from refract_message.f
c
......
c this is <grepg_para.inc>
c------------------------------------------------------------------------------
c $Id: grepg_para.inc,v 1.3 2001-03-05 18:22:06 forbrig Exp $
c $Id: grepg_para.inc,v 1.4 2007-06-05 09:35:50 tforb Exp $
c
c 25/11/98 by Thomas Forbriger (IfG Stuttgart)
c
c some parameters
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 25/11/98 V1.0 Thomas Forbriger
c 24/06/99 V1.1 new parameters defining normalizing taper
......
c this is <grepg_phase.f>
c------------------------------------------------------------------------------
c $Id: grepg_phase.f,v 1.2 2007-06-05 09:35:50 tforb Exp $
cS
c
c 14/10/99 by Thomas Forbriger (IfG Stuttgart)
c
c plot colorfull with phase
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 14/10/99 V1.0 Thomas Forbriger
c
......
c this is <grepg_phasewedg.f>
c------------------------------------------------------------------------------
c $Id: grepg_phasewedg.f,v 1.3 2007-06-05 09:35:50 tforb Exp $
cS
c
c 14/10/99 by Thomas Forbriger (IfG Stuttgart)
c
c plot color wedge
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 Just copied from TJP-Code
c
c NOTICE: meanings of I ang G flags have changed here:
......
c this is <grepg_phasor.f>
c ----------------------------------------------------------------------------
c ($Id: grepg_phasor.f,v 1.2 2002-09-13 22:02:02 forbrig Exp $)
c ($Id: grepg_phasor.f,v 1.3 2007-06-05 09:35:50 tforb Exp $)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
c plot Fourier coefficient phasor walkout
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 13/09/2002 V1.0 Thomas Forbriger
c
......
c this is <grepg_picks.inc>
c------------------------------------------------------------------------------
c $Id: grepg_picks.inc,v 1.2 2002-01-22 11:43:22 forbrig Exp $
c $Id: grepg_picks.inc,v 1.3 2007-06-05 09:35:50 tforb Exp $
c
c 25/11/98 by Thomas Forbriger (IfG Stuttgart)
c
c hold pick values
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 25/11/98 V1.0 Thomas Forbriger
c 21/01/02 V1.1 use maxpickdim
......
c this is <grepg_poly.f>
c------------------------------------------------------------------------------
cS
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/green/grepg/grepg_poly.f,v $)
c ($Id: grepg_poly.f,v 1.2 2000-04-10 14:10:24 thof Exp $)
c ($Id: grepg_poly.f,v 1.3 2007-06-05 09:35:50 tforb Exp $)
c
c 07/04/2000 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 remove polynomial trend
c
c REVISIONS and CHANGES
......@@ -24,7 +39,7 @@ c
cE