Destroy 42 plan
This is safe to call on previously destroyed or non-constructed/empty plans
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(fft_type), | intent(inout) | :: | fft |
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