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

GPL phrase

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: 2349
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 442607eb
# this is <Makefile> # this is <Makefile>
# ---------------------------------------------------------------------------- # ----------------------------------------------------------------------------
# $Id: Makefile,v 1.6 2005-09-01 15:14:01 tforb Exp $ # $Id: Makefile,v 1.7 2007-07-05 16:08:22 tforb Exp $
# #
# Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt) # Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
# #
# SFF header manipulation # SFF header manipulation
#
# ----
# 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 # REVISIONS and CHANGES
# 14/03/2002 V1.0 Thomas Forbriger # 14/03/2002 V1.0 Thomas Forbriger
......
...@@ -3,6 +3,22 @@ c ...@@ -3,6 +3,22 @@ c
c a little program to change the coordinate information in c a little program to change the coordinate information in
c an sff datafile c an sff datafile
c 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 30/04/1997 Thomas Forbriger (IfG Stuttgart) c 30/04/1997 Thomas Forbriger (IfG Stuttgart)
c 09/01/98 V1.1 set source type too c 09/01/98 V1.1 set source type too
c 24/06/00 V1.2 don't use the error output channel for standard usage info c 24/06/00 V1.2 don't use the error output channel for standard usage info
......
program coma program coma
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 a quick hack to generate files containing 3D coordinates c a quick hack to generate files containing 3D coordinates
c c
integer n,i,iargc integer n,i,iargc
real x1,x2,x3,d1,d2,d3 real x1,x2,x3,d1,d2,d3
character*30 a,b,c character*30 a,b,c
c
if (iargc().ne.3) then if (iargc().ne.3) then
print *,'Usage: coma x1,x2,x3 d1,d2,d3 n' print *,'Usage: coma x1,x2,x3 d1,d2,d3 n'
print *,' ' print *,' '
......
...@@ -3,13 +3,29 @@ ...@@ -3,13 +3,29 @@
* *
* ---------------------------------------------------------------------------- * ----------------------------------------------------------------------------
* *
* $Id: cooset.cc,v 1.2 2004-09-08 19:54:06 tforb Exp $ * $Id: cooset.cc,v 1.3 2007-07-05 16:08:22 tforb Exp $
* \author Thomas Forbriger * \author Thomas Forbriger
* \date 08/09/2004 * \date 08/09/2004
* *
* set coordinates * set coordinates
* *
* Copyright (c) 2004 by Thomas Forbriger (BFO Schiltach) * Copyright (c) 2004 by Thomas Forbriger (BFO Schiltach)
*
* ----
* 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 * REVISIONS and CHANGES
* - 08/09/2004 V1.0 Thomas Forbriger * - 08/09/2004 V1.0 Thomas Forbriger
...@@ -19,7 +35,7 @@ ...@@ -19,7 +35,7 @@
#define COOSET_VERSION \ #define COOSET_VERSION \
"COOSET V1.0 set coordinates" "COOSET V1.0 set coordinates"
#define COOSET_CVSID \ #define COOSET_CVSID \
"$Id: cooset.cc,v 1.2 2004-09-08 19:54:06 tforb Exp $" "$Id: cooset.cc,v 1.3 2007-07-05 16:08:22 tforb Exp $"
#include <fstream> #include <fstream>
#include <iostream> #include <iostream>
......
program dist program dist
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 a quick hack to generate distance files c a quick hack to generate distance files
c c
integer n,i integer n,i
real from, dx real from, dx
character*30 a,b,c character*30 a,b,c
c
if (iargc().ne.3) then if (iargc().ne.3) then
print *,'Usage: dist from dx n' print *,'Usage: dist from dx n'
stop 'ERROR: wrong arguments' stop 'ERROR: wrong arguments'
......
...@@ -3,8 +3,25 @@ c ...@@ -3,8 +3,25 @@ c
c Just a quick and dirty hack to print out epicentral distances c Just a quick and dirty hack to print out epicentral distances
c of traces in a sff data file c of traces in a sff data file
c 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----------------------------------------------------------------------
program epi program epi
c
c c
character*70 version character*70 version
parameter(version='EPI V1.0 epicentral distances') parameter(version='EPI V1.0 epicentral distances')
......
...@@ -5,6 +5,22 @@ c 09/01/98 by Thomas Forbriger (IfG Stuttgart) ...@@ -5,6 +5,22 @@ c 09/01/98 by Thomas Forbriger (IfG Stuttgart)
c c
c MERge SEismograms in SFF files c MERge SEismograms in SFF files
c 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 REVISIONS and CHANGES
c 09/01/98 V1.0 Thomas Forbriger c 09/01/98 V1.0 Thomas Forbriger
c 13/01/98 V1.1 allow trace selection c 13/01/98 V1.1 allow trace selection
......
c this is <offli.f> c this is <offli.f>
c------------------------------------------------------------------------------ c------------------------------------------------------------------------------
c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/hd/offli.f,v $) c ($Source: /home/tforb/svnbuild/cvssource/CVS/thof/src/ts/hd/offli.f,v $)
c ($Id: offli.f,v 1.7 2004-09-09 13:30:51 tforb Exp $) c ($Id: offli.f,v 1.8 2007-07-05 16:08:23 tforb Exp $)
c c
c 30/05/2000 by Thomas Forbriger (IfG Stuttgart) c 30/05/2000 by Thomas Forbriger (IfG Stuttgart)
c 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 OFFset LIsting c OFFset LIsting
c c
c REVISIONS and CHANGES c REVISIONS and CHANGES
...@@ -21,7 +37,7 @@ c ...@@ -21,7 +37,7 @@ c
parameter(version='OFFLI V1.3 OFFset LIsting') parameter(version='OFFLI V1.3 OFFset LIsting')
character*(*) OFFLI_CVS_ID character*(*) OFFLI_CVS_ID
parameter(OFFLI_CVS_ID= parameter(OFFLI_CVS_ID=
& '$Id: offli.f,v 1.7 2004-09-09 13:30:51 tforb Exp $') & '$Id: offli.f,v 1.8 2007-07-05 16:08:23 tforb Exp $')
c c
integer ierr,nsamp,msamp,nstack integer ierr,nsamp,msamp,nstack
parameter(msamp=100000) parameter(msamp=100000)
......
c this is <sehefi.f> c this is <sehefi.f>
c ---------------------------------------------------------------------------- c ----------------------------------------------------------------------------
c ($Id: sehefi.f,v 1.1 2005-09-01 15:14:02 tforb Exp $) c ($Id: sehefi.f,v 1.2 2007-07-05 16:08:23 tforb Exp $)
c c
c Copyright (c) 2005 by Thomas Forbriger (BFO Schiltach) c Copyright (c) 2005 by Thomas Forbriger (BFO Schiltach)
c c
c set header field c set header field
c 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 REVISIONS and CHANGES
c 01/09/2005 V1.0 Thomas Forbriger c 01/09/2005 V1.0 Thomas Forbriger
c c
...@@ -16,7 +32,7 @@ c ...@@ -16,7 +32,7 @@ c
character*(*) version character*(*) version
parameter(version='SEHEFI V1.0 set header field') parameter(version='SEHEFI V1.0 set header field')
character*(*) SEHEFI_CVS_ID character*(*) SEHEFI_CVS_ID
parameter(SEHEFI_CVS_ID='$Id: sehefi.f,v 1.1 2005-09-01 15:14:02 tforb Exp $') parameter(SEHEFI_CVS_ID='$Id: sehefi.f,v 1.2 2007-07-05 16:08:23 tforb Exp $')
c c
integer luin,luout integer luin,luout
parameter(luin=10,luout=11) parameter(luin=10,luout=11)
......
c this is <sesoc.f> c this is <sesoc.f>
c ---------------------------------------------------------------------------- c ----------------------------------------------------------------------------
c ($Id: sesoc.f,v 1.7 2007-07-03 13:20:08 tforb Exp $) c ($Id: sesoc.f,v 1.8 2007-07-05 16:08:23 tforb Exp $)
c c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt) c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c c
c SEt SOurce Coordinate c SEt SOurce Coordinate
c 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 REVISIONS and CHANGES
c 14/03/2002 V1.0 Thomas Forbriger c 14/03/2002 V1.0 Thomas Forbriger
c 29/06/2007 V1.1 program is able to generate a new SRCE line c 29/06/2007 V1.1 program is able to generate a new SRCE line
......
...@@ -5,6 +5,22 @@ c 02/02/99 by Thomas Forbriger (IfG Stuttgart) ...@@ -5,6 +5,22 @@ c 02/02/99 by Thomas Forbriger (IfG Stuttgart)
c c
c SEt SOurce Time c SEt SOurce Time
c 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 REVISIONS and CHANGES
c 02/02/99 V1.0 Thomas Forbriger c 02/02/99 V1.0 Thomas Forbriger
c 16/09/03 V1.1 allow to handle real data (no receiver shift) c 16/09/03 V1.1 allow to handle real data (no receiver shift)
...@@ -61,7 +77,7 @@ c ...@@ -61,7 +77,7 @@ c
print *,'-n do not shift receivers' print *,'-n do not shift receivers'
print *,' useful for real data' print *,' useful for real data'
print *,' ' print *,' '
print *,'$Id: sesot.f,v 1.4 2007-06-29 08:34:32 tforb Exp $' print *,'$Id: sesot.f,v 1.5 2007-07-05 16:08:23 tforb Exp $'
print *,' ' print *,' '
call timeinfo call timeinfo
stop stop
......
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