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

gplphrase

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: 2316
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent ca45d2cf
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 2.7 2007-06-21 11:06:44 tforb Exp $
#
# Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
#
# refract Makefile
#
# REVISIONS and CHANGES
# 21/06/2007 V1.0 Thomas Forbriger
#
# ============================================================================
#
# $Id: Makefile,v 2.6 2005-06-03 09:15:47 tforb Exp $
all:
flist: Makefile
echo $^ | tr ' ' '\n' | sort > $@
.PHONY: edit
edit: flist; vim $<
.PHONY: clean
clean: ;
-find . -name \*.bak | xargs --no-run-if-empty /bin/rm -v
-/bin/rm -vf flist
#
# $Id: Makefile,v 2.7 2007-06-21 11:06:44 tforb Exp $
#
# Makefile for prog/plot/refract
#
# refraction seismocs
# refraction seismics
#
# ----
# 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
# ----
#
LINLIB=-llapex -lblasex
......@@ -77,3 +120,5 @@ flist: *.f sub/*.f include/*.inc Makefile
edit: flist
vim $<
# ----- END OF Makefile -----
c this is <refract_data.inc>
c------------------------------------------------------------------------------
c $Id: refract_data.inc,v 2.1 2003-06-19 14:04:43 tforb Exp $
c $Id: refract_data.inc,v 2.2 2007-06-21 11:06:45 tforb Exp $
c
c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
c
c data common block for refract
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/03/98 V1.0 Thomas Forbriger
c 19/06/03 V1.1 remember trace number in file
......
c this is <refract_dim.inc>
c------------------------------------------------------------------------------
c $Id: refract_dim.inc,v 2.2 2004-09-09 10:07:53 tforb Exp $
c $Id: refract_dim.inc,v 2.3 2007-06-21 11:06:45 tforb Exp $
c
c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
c
c array dimensions to be used in refract
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/03/98 V1.0 Thomas Forbriger
c
......
c this is <refract_model.inc>
c------------------------------------------------------------------------------
c $Id: refract_model.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c $Id: refract_model.inc,v 2.1 2007-06-21 11:06:45 tforb Exp $
c
c 05/07/98 by Thomas Forbriger (IfG Stuttgart)
c
c some earth model data
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/07/98 V1.0 Thomas Forbriger
c
......
c this is <refract_opt.inc>
c------------------------------------------------------------------------------
c $Id: refract_opt.inc,v 2.2 2005-06-03 09:15:48 tforb Exp $
c $Id: refract_opt.inc,v 2.3 2007-06-21 11:06:45 tforb Exp $
c
c 17/03/98 by Thomas Forbriger (IfG Stuttgart)
c
c options common block for refract
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/03/98 V1.0 Thomas Forbriger
c 24/05/00 V1.1 activated
......
c this is <refract_para.inc>
c------------------------------------------------------------------------------
c $Id: refract_para.inc,v 2.3 2004-09-09 07:14:19 tforb Exp $
c $Id: refract_para.inc,v 2.4 2007-06-21 11:06:45 tforb Exp $
c
c 20/01/98 by Thomas Forbriger (IfG Stuttgart)
c
c some parameters for refract.f
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 20/01/98 V1.0 Thomas Forbriger
c 11/01/2001 V1.1 had to introduce plfplag_hypoffset
......
c this is <refract_pgpara.inc>
c------------------------------------------------------------------------------
c $Id: refract_pgpara.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c $Id: refract_pgpara.inc,v 2.1 2007-06-21 11:06:46 tforb Exp $
c
c 01/05/98 by Thomas Forbriger (IfG Stuttgart)
c
c pure pgplot style settings
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 01/05/98 V1.0 Thomas Forbriger
c 24/05/00 V1.1 - file specific style settings
......
c this is <refract_picks.inc>
c------------------------------------------------------------------------------
c $Id: refract_picks.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c $Id: refract_picks.inc,v 2.1 2007-06-21 11:06:46 tforb Exp $
c
c 05/07/98 by Thomas Forbriger (IfG Stuttgart)
c
c data space to hold picks
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/07/98 V1.0 Thomas Forbriger
c 18/08/98 V1.1 did set picktypes to 6 (includes now picks for one
......
c this is <refract_seipar.inc>
c------------------------------------------------------------------------------
c $Id: refract_seipar.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c $Id: refract_seipar.inc,v 2.1 2007-06-21 11:06:46 tforb Exp $
c
c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
c
c parameters for seismogram viewports
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 30/04/98 V1.0 Thomas Forbriger
c
......
c this is <refract_strings.inc>
c------------------------------------------------------------------------------
c $Id: refract_strings.inc,v 2.0 2000-05-24 17:20:36 thof Exp $
c $Id: refract_strings.inc,v 2.1 2007-06-21 11:06:46 tforb Exp $
c
c 04/07/98 by Thomas Forbriger (IfG Stuttgart)
c
c PURPOSE
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 04/07/98 V1.0 Thomas Forbriger
......
......@@ -5,6 +5,22 @@ c 09/01/98 by Thomas Forbriger (IfG Stuttgart)
c
c REFRACTion seismics - data interpretation
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 09/01/98 V3.0 new version based on include-file data
c
......
......@@ -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 plotting tf-seismic-files and analysing refracted waves
c
c 02/01/96 Thomas Forbriger
......
......@@ -5,6 +5,22 @@ c
c REVISIONS and CHANGES
c V2.0 30/04/97 first running version
c V1.0 was the former tf-format program
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======================================================================
program refract
......
c this is <refract.f>
c------------------------------------------------------------------------------
c $Id: refract.f,v 2.7 2005-06-16 09:09:40 tforb Exp $
c $Id: refract.f,v 2.8 2007-06-21 11:06:44 tforb Exp $
c
c 09/01/98 by Thomas Forbriger (IfG Stuttgart)
c
c REFRACTion seismics - data interpretation
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 09/01/98 V3.0 new version based on include-file data
c 03/07/98 V3.1 worked on scaling modes these days
......
c this is <refract_cmdopt.f>
c------------------------------------------------------------------------------
cS
c ($Id: refract_cmdopt.f,v 2.5 2004-09-09 07:14:19 tforb Exp $)
c ($Id: refract_cmdopt.f,v 2.6 2007-06-21 11:06:47 tforb Exp $)
c
c 24/05/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 read command line options
c
c REVISIONS and CHANGES
......@@ -39,7 +55,7 @@ c declare local variables
integer i
c CVS Id
character*(*) refract_cmdopt_id
parameter (refract_cmdopt_id='$Id: refract_cmdopt.f,v 2.5 2004-09-09 07:14:19 tforb Exp $')
parameter (refract_cmdopt_id='$Id: refract_cmdopt.f,v 2.6 2007-06-21 11:06:47 tforb Exp $')
c commandline
integer maxopt
parameter(maxopt=59)
......
c this is <refract_domodel.f>
c------------------------------------------------------------------------------
c $Id: refract_domodel.f,v 2.1 2001-01-22 17:06:18 forbrig Exp $
c $Id: refract_domodel.f,v 2.2 2007-06-21 11:06:47 tforb Exp $
c
c 05/07/98 by Thomas Forbriger (IfG Stuttgart)
c
c some routines we need to work on models
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/07/98 V1.0 Thomas Forbriger
c 24/05/00 V1.1 - subdivided model reading
......
c this is <refract_dopicks.f>
c------------------------------------------------------------------------------
c $Id: refract_dopicks.f,v 2.1 2002-03-20 10:15:36 forbrig Exp $
c $Id: refract_dopicks.f,v 2.2 2007-06-21 11:06:47 tforb Exp $
c
c 05/07/98 by Thomas Forbriger (IfG Stuttgart)
c
c all we have to do to work with picking
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/07/98 V1.0 Thomas Forbriger
c 18/07/98 V1.1 now allow one single pick per each trace
......
c this is <refract_doplot.f>
c------------------------------------------------------------------------------
c $Id: refract_doplot.f,v 2.1 2005-06-16 09:09:41 tforb Exp $
c $Id: refract_doplot.f,v 2.2 2007-06-21 11:06:48 tforb Exp $
c
c 30/04/98 by Thomas Forbriger (IfG Stuttgart)
c
c perform a complete plot
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 30/04/98 V1.0 Thomas Forbriger