stfshift()

void stfinv::STFFourierDomainEngine::stfshift ( )

private

apply time shift to stf prior to FFT to time domain

Definition at line 555 of file stfinvfourier.cc.

References frequency(), stfinv::STFBaseEngine::Mdebug, Mtshift, nfreq(), STFINV_debug, and stfspec().

Referenced by fftoutput().

  {
    STFINV_debug(Mdebug&2, "STFFourierDomainEngine::stfshift()",
                 "apply time shift of " << Mtshift << " seconds");
    const STFFourierDomainEngine::TAspectrum::Tvalue sfac
      =-STFFourierDomainEngine::TAspectrum::Tvalue(0.,1.)
      *3.141592653589793115998*2.*Mtshift;
    // STFINV_DUMP( sfac );
    STFFourierDomainEngine::TAspectrum stffft=this->stfspec();
    for (unsigned int j=0; j<this->nfreq(); ++j)
    {
      stffft(j) *= std::exp(sfac*this->frequency(j));
      // STFINV_DUMP( std::exp(sfac*this->frequency(j)) );      
    } // for (unsigned int j=0; j<this->nfreq(); ++j)
  } // void STFFourierDomainEngine::stfshift() 

Here is the call graph for this function:

Here is the caller graph for this function: