delete_fft Subroutine

public subroutine delete_fft(fft)

Uses

Destroy 42 plan

This is safe to call on previously destroyed or non-constructed/empty plans

Arguments

Type IntentOptional Attributes Name
type(fft_type), intent(inout) :: fft

Contents

Source Code


Source Code

  subroutine delete_fft(fft)
    use job_manage, only: time_message
    implicit none
    type (fft_type), intent (in out) :: fft

    !Don't try to delete ffts which have not been created
    if(.not.fft%created) return
#if FFT == _FFTW3_
       call FFTW_PREFIX(_destroy_plan)(fft%plan)
# endif
    fft%created=.false.
    call time_message(.false., time_fft, ' FFT')
  end subroutine delete_fft