save_wisdom Subroutine

public subroutine save_wisdom(filename)

Save FFTW wisdom to file

See FFTW documentation for details of wisdom

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename

Contents

Source Code


Source Code

  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