Save FFTW wisdom to file
See FFTW documentation for details of wisdom
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
character(len=*), | intent(in) | :: | filename |
subroutine save_wisdom(filename)
use job_manage, only: time_message
#ifdef FFT
use iso_c_binding, only: c_int, c_null_char
integer(c_int) :: ret
#endif
character(*), intent(in) :: filename
#ifdef FFT
call time_message(.false., time_fft, ' FFT')
ret = fftw_export_wisdom_to_filename(filename//c_null_char)
call time_message(.false., time_fft, ' FFT')
#else
UNUSED_DUMMY(filename)
#endif
end subroutine save_wisdom