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

correction: taper function

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: 3017
SVN UUID:     67feda4a-a26e-11df-9d6e-31afc202ad0c
parent 73ae7ca1
c this is <greda.f>
c------------------------------------------------------------------------------
c $Id: greda.f,v 1.22 2009-11-27 15:57:03 tforb Exp $
c $Id: greda.f,v 1.23 2010-03-10 17:31:35 tforb Exp $
c
c 24/06/97 by Thomas Forbriger (IfG Stuttgart)
c
......@@ -98,6 +98,8 @@ c rescaling waveforms
c - corrected subroutine specialtap
c 27/11/09 V3.16 - some corrections to satify gfortran
c V3.17 - pwo_init takes an argument!
c 10/03/10 V3.18 - correction in taper function: second index of array
c spectra is sample index
c
c==============================================================================
c
......@@ -106,9 +108,9 @@ c
c first we declare some general variables
c
character*79 version,CVSID
parameter(version='GREDA V3.17 Greens function from data')
parameter(version='GREDA V3.18 Greens function from data')
parameter(CVSID=
& '$Id: greda.f,v 1.22 2009-11-27 15:57:03 tforb Exp $')
& '$Id: greda.f,v 1.23 2010-03-10 17:31:35 tforb Exp $')
c
c calculations common block
include 'greda_dim.inc'
......@@ -386,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.22 2009-11-27 15:57:03 tforb Exp $'
print *,'$Id: greda.f,v 1.23 2010-03-10 17:31:35 tforb Exp $'
call pwo_cvsid
print *,' '
print *,'compiled array dimensions are:'
......@@ -1321,7 +1323,7 @@ c hard taper
print *,' at ',r(i),'m fac: ',fac
endif
do l=1,nsamp
spectra(l,i)=fac*spectra(l,i)
spectra(i,l)=fac*spectra(i,l)
enddo
enddo
else
......
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