Commit 05d10711 authored by thomas.forbriger's avatar thomas.forbriger

libstfinv [WP]: clear output Fourier coefficients when preparing next run

parent aa4a3c0e
...@@ -275,6 +275,7 @@ namespace stfinv { ...@@ -275,6 +275,7 @@ namespace stfinv {
* All input is available as time series data in first place. * All input is available as time series data in first place.
* -# Copy time series data to STFFourierDomainEngine::Mfftengineinput * -# Copy time series data to STFFourierDomainEngine::Mfftengineinput
* -# Transform time series data to Fourier domain * -# Transform time series data to Fourier domain
* -# Clear output coefficients
* *
* This function should be called by the very first statement of the * This function should be called by the very first statement of the
* exec-function of the derived class (e.g. STFEngineFDLeastSquares::exec). * exec-function of the derived class (e.g. STFEngineFDLeastSquares::exec).
...@@ -283,6 +284,7 @@ namespace stfinv { ...@@ -283,6 +284,7 @@ namespace stfinv {
{ {
this->getinput(); this->getinput();
Mfftengineinput.r2c(); Mfftengineinput.r2c();
Mfftengineoutput.series()=0.;
} // void STFFourierDomainEngine::fftinput() } // void STFFourierDomainEngine::fftinput()
/*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/
...@@ -551,6 +553,10 @@ namespace stfinv { ...@@ -551,6 +553,10 @@ namespace stfinv {
/*----------------------------------------------------------------------*/ /*----------------------------------------------------------------------*/
/*!
* Apply a time domain taper to the impulse response of the source time
* function correction filter.
*/
void STFFourierDomainEngine::taperstf() void STFFourierDomainEngine::taperstf()
{ {
if (this->Mapplystftaper) if (this->Mapplystftaper)
......
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