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

commit merge with trunk on directories src scr and texts

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.
libaff was moved, have to resolve conflict manually


SVN Path:     http://gpitrsvn.gpi.uni-karlsruhe.de/repos/TFSoftware/branches/any2matlab0.1
SVN Revision: 3114
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 38d1e050
#!/bin/sh
# this is <ntpreport.sh>
# ----------------------------------------------------------------------------
# $Id: ntpreport.sh,v 1.1 2009-01-01 19:38:40 tforb Exp $
# $Id$
#
# Copyright (c) 2009 by Thomas Forbriger (BFO Schiltach)
#
......
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: record.cc,v 1.27 2009-07-20 07:24:57 tforb Exp $
* $Id$
* \author Thomas Forbriger
* \date 25/11/2008
*
......@@ -39,7 +39,7 @@
#define DL_RECORD_CC_VERSION \
"DL_RECORD_CC V1.1"
#define DL_RECORD_CC_CVSID \
"$Id: record.cc,v 1.27 2009-07-20 07:24:57 tforb Exp $"
"$Id$"
#include <aff/seriesoperators.h>
#include "record.h"
......
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: record.h,v 1.12 2008-12-23 08:56:57 tforb Exp $
* $Id$
* \author Thomas Forbriger
* \date 25/11/2008
*
......@@ -41,7 +41,7 @@
#define DL_RECORD_H_VERSION \
"DL_RECORD_H V1.1"
#define DL_RECORD_H_CVSID \
"$Id: record.h,v 1.12 2008-12-23 08:56:57 tforb Exp $"
"$Id$"
#include<list>
#include<libtime++.h>
......
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: tester.cc,v 1.5 2008-12-22 14:31:51 tforb Exp $
* $Id$
* \author Thomas Forbriger
* \date 28/11/2008
*
......@@ -19,7 +19,7 @@
#define TESTER_VERSION \
"TESTER V1.0 a small program to test some functions"
#define TESTER_CVSID \
"$Id: tester.cc,v 1.5 2008-12-22 14:31:51 tforb Exp $"
"$Id$"
#include <iostream>
#include <list>
......
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: thiesdl1.cc,v 1.13 2009-01-14 14:52:28 tforb Exp $
* $Id$
* \author Thomas Forbriger
* \date 25/11/2008
*
......@@ -40,7 +40,7 @@
#define DL_THIESDL1_CC_VERSION \
"DL_THIESDL1_CC V1.0 "
#define DL_THIESDL1_CC_CVSID \
"$Id: thiesdl1.cc,v 1.13 2009-01-14 14:52:28 tforb Exp $"
"$Id$"
#include "thiesdl1.h"
#include "error.h"
......
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: thiesdl1.h,v 1.13 2008-12-23 08:56:57 tforb Exp $
* $Id$
* \author Thomas Forbriger
* \date 25/11/2008
*
......@@ -40,7 +40,7 @@
#define DL_THIESDL1_H_VERSION \
"DL_THIESDL1_H V1.0 "
#define DL_THIESDL1_H_CVSID \
"$Id: thiesdl1.h,v 1.13 2008-12-23 08:56:57 tforb Exp $"
"$Id$"
#include<iostream>
#include<serialxx/serialport.h>
......
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.5 2007-03-13 16:41:43 tforb Exp $
# $Id$
#
# Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach)
#
......
#!/bin/sh
# this is <extractmgmtar.sh>
# ----------------------------------------------------------------------------
# $Id: extractmgmtar.sh,v 1.4 2006-11-20 11:08:32 tforb Exp $
# $Id$
#
# Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach)
#
......
......@@ -3,7 +3,7 @@
*
* ----------------------------------------------------------------------------
*
* $Id: mgm2sff.cc,v 1.6 2007-04-19 12:36:48 tforb Exp $
* $Id$
* \author Thomas Forbriger
* \date 13/11/2006
*
......@@ -115,7 +115,7 @@
#define MGM2SFF_VERSION \
"MGM2SFF V1.0 Convert Monschau data to SFF"
#define MGM2SFF_CVSID \
"$Id: mgm2sff.cc,v 1.6 2007-04-19 12:36:48 tforb Exp $"
"$Id$"
#include <iostream>
#include <fstream>
......
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.16 2010-07-16 09:36:28 tforb Exp $
# $Id$
#
# Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
#
......
c this is <gabor.f>
c------------------------------------------------------------------------------
c ($Id: gabor.f,v 1.13 2009-10-08 11:29:33 tforb Exp $)
c ($Id$)
c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -36,7 +36,7 @@ c
parameter(version='GABOR V1.3 calculate gabor matrix')
character*(*) GABOR_CVS_ID
parameter(GABOR_CVS_ID=
& '$Id: gabor.f,v 1.13 2009-10-08 11:29:33 tforb Exp $')
& '$Id$')
c
c input dataset
character*80 filename
......
c this is <greda.f>
c------------------------------------------------------------------------------
c $Id: greda.f,v 1.23 2010-03-10 17:31:35 tforb Exp $
c $Id$
c
c 24/06/97 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -110,7 +110,7 @@ c
character*79 version,CVSID
parameter(version='GREDA V3.18 Greens function from data')
parameter(CVSID=
& '$Id: greda.f,v 1.23 2010-03-10 17:31:35 tforb Exp $')
& '$Id$')
c
c calculations common block
include 'greda_dim.inc'
......@@ -388,7 +388,7 @@ c
print *,'rho should be chosen somewhere around delta_r_min*omega,'
print *,'where delta_r_min is the minimal offset difference.'
print *,' '
print *,'$Id: greda.f,v 1.23 2010-03-10 17:31:35 tforb Exp $'
print *,'$Id$'
call pwo_cvsid
print *,' '
print *,'compiled array dimensions are:'
......
c this is <greda_dim.inc>
c ----------------------------------------------------------------------------
c ($Id: greda_dim.inc,v 1.7 2010-03-02 13:38:14 tforb Exp $)
c ($Id$)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
......
c this is <greda_phasor.f>
c ----------------------------------------------------------------------------
c ($Id: greda_phasor.f,v 1.8 2007-06-05 09:18:47 tforb Exp $)
c ($Id$)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
......@@ -28,7 +28,7 @@ c
c ============================================================================
c
subroutine pwo_cvsid
print *,'$Id: greda_phasor.f,v 1.8 2007-06-05 09:18:47 tforb Exp $'
print *,'$Id$'
return
end
c
......
c this is <greda_pwo.inc>
c ----------------------------------------------------------------------------
c ($Id: greda_pwo.inc,v 1.4 2007-06-05 09:18:47 tforb Exp $)
c ($Id$)
c
c Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
c
......
c this is <hivexpanco.f>
c ----------------------------------------------------------------------------
c ($Id: hivexpanco.f,v 1.3 2007-06-05 09:18:47 tforb Exp $)
c ($Id$)
c
c Copyright (c) 2007 by Thomas Forbriger (BFO Schiltach)
c
......@@ -35,7 +35,7 @@ c
& ' calculate H/V for Fourier Bessel expansion coefficients')
character*(*) HIVEXPANCO_CVS_ID
parameter(HIVEXPANCO_CVS_ID=
& '$Id: hivexpanco.f,v 1.3 2007-06-05 09:18:47 tforb Exp $')
& '$Id$')
c
c datasets
character*80 hinfile, vinfile, outfile
......
c this is <hivgabor.f>
c ----------------------------------------------------------------------------
c ($Id: hivgabor.f,v 1.4 2007-06-05 09:18:47 tforb Exp $)
c ($Id$)
c
c Copyright (c) 2006 by Thomas Forbriger (BFO Schiltach)
c
......@@ -34,7 +34,7 @@ c
& 'HIVGABOR V1.0 Calculate H/V from gabor results')
character*(*) HIVGABOR_CVS_ID
parameter(HIVGABOR_CVS_ID=
& '$Id: hivgabor.f,v 1.4 2007-06-05 09:18:47 tforb Exp $')
& '$Id$')
c
c datasets
character*80 hinfile, vinfile, outfile
......
c this is <phadi.f>
c------------------------------------------------------------------------------
c ($Id: phadi.f,v 1.12 2010-07-16 09:32:37 tforb Exp $)
c ($Id$)
c
c 22/02/2001 by Thomas Forbriger (IMGF Frankfurt)
c
......@@ -30,6 +30,10 @@ c 09/03/2001 V1.3 extra fit result plot options
c 24/08/2001 V1.4 force positive phase step in phase analysis too
c via phthresh
c and introduced frequency limit for threshold
c 25/07/2010 V1.5 Zacharias found a bug: There was a parameter
c missing in a call to pgpt - I wonder how this
c went unnoticed over so many years...
c 27/07/2010 V1.6 correct plot labels
c
c==============================================================================
c
......@@ -37,10 +41,10 @@ c
c
character*(*) version
parameter(version=
& 'PHADI V1.4 calculate dispersion relation from phase differences')
& 'PHADI V1.6 calculate dispersion relation from phase differences')
character*(*) PHADI_CVS_ID
parameter(PHADI_CVS_ID=
& '$Id: phadi.f,v 1.12 2010-07-16 09:32:37 tforb Exp $')
& '$Id$')
c input dataset
character*80 filename
integer maxtraces, totmaxsamples
......@@ -435,9 +439,9 @@ c
c
call pgenv(xmin,xmax,ymin,ymax,0,2)
if (ftime) then
call pglab('Offset (m)','Phasetime (s)','Phase')
call pglab('Offset (m)','Phase traveltime (s)','Phase')
else
call pglab('Offset (m)','Phase (2\\gp)','Phase')
call pglab('Offset (m)','Phase (2\gp)','Phase')
endif
do i=1,nf
call pgline(nt-1,vx(1,i),vy(1,i))
......@@ -615,7 +619,7 @@ c tell something about our results
call pgbox('BCGTS',0.0,0,'BCGTS',0.0,0)
call pgslw(pg_slw)
call pgsls(1)
call pglab('Offset (m)', 'Phasenlaufzeit (s)', title)
call pglab('Offset (m)', 'Phase traveltime (s)', title)
call pgslw(pg_clw)
call pgline(nt-1,vx(1,1),vy(1,1))
call pgsci(pg_fci)
......@@ -655,7 +659,7 @@ c tell something about our results
call pgbox('BCGTS',0.0,0,'BCGTS',0.0,0)
call pgslw(pg_slw)
call pgsls(1)
call pglab('Offset (m)', 'Phasenlaufzeit-Fehler (ms)', title)
call pglab('Offset (m)', 'phase traveltime residual (ms)', title)
call pgslw(pg_clw)
call pgline(nt-1,vx(1,1),vy(1,1))
call pgsci(pg_fci)
......@@ -700,7 +704,7 @@ c
call pglab('frequency (Hz)','phase slowness (s/km)','dispersion')
endif
call pgline(nf,fre,vel)
call pgpt(nf,fre,vel)
call pgpt(nf,fre,vel,-5)
c
if (fout) then
open(lu,file=filename)
......
# this is <Makefile>
# ----------------------------------------------------------------------------
# $Id: Makefile,v 1.7 2010-02-10 09:09:53 tforb Exp $
# $Id$
#
# Copyright (c) 2002 by Thomas Forbriger (IMG Frankfurt)
#
......
......@@ -137,6 +137,6 @@ min/max Vp, Vs, rho , Qp, Qs
relative stepsize for partial derivative approximation
1.e-4
$Id: README.parameter,v 1.1 2003-03-24 15:04:48 tforb Exp $
$Id$
03/05/2002 changed greenerror
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