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 this is <greda.f>
c------------------------------------------------------------------------------ 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
c 24/06/97 by Thomas Forbriger (IfG Stuttgart) c 24/06/97 by Thomas Forbriger (IfG Stuttgart)
c c
...@@ -98,6 +98,8 @@ c rescaling waveforms ...@@ -98,6 +98,8 @@ c rescaling waveforms
c - corrected subroutine specialtap c - corrected subroutine specialtap
c 27/11/09 V3.16 - some corrections to satify gfortran c 27/11/09 V3.16 - some corrections to satify gfortran
c V3.17 - pwo_init takes an argument! 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============================================================================== c==============================================================================
c c
...@@ -106,9 +108,9 @@ c ...@@ -106,9 +108,9 @@ c
c first we declare some general variables c first we declare some general variables
c c
character*79 version,CVSID character*79 version,CVSID
parameter(version='GREDA V3.17 Greens function from data') parameter(version='GREDA V3.18 Greens function from data')
parameter(CVSID= 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
c calculations common block c calculations common block
include 'greda_dim.inc' include 'greda_dim.inc'
...@@ -386,7 +388,7 @@ c ...@@ -386,7 +388,7 @@ c
print *,'rho should be chosen somewhere around delta_r_min*omega,' print *,'rho should be chosen somewhere around delta_r_min*omega,'
print *,'where delta_r_min is the minimal offset difference.' print *,'where delta_r_min is the minimal offset difference.'
print *,' ' 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 call pwo_cvsid
print *,' ' print *,' '
print *,'compiled array dimensions are:' print *,'compiled array dimensions are:'
...@@ -1321,7 +1323,7 @@ c hard taper ...@@ -1321,7 +1323,7 @@ c hard taper
print *,' at ',r(i),'m fac: ',fac print *,' at ',r(i),'m fac: ',fac
endif endif
do l=1,nsamp do l=1,nsamp
spectra(l,i)=fac*spectra(l,i) spectra(i,l)=fac*spectra(i,l)
enddo enddo
enddo enddo
else 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