mkl_executor Derived Type

type, public, extends(abstract_executor) :: mkl_executor

MKL FFT Executor


Inherits

type~~mkl_executor~~InheritsGraph type~mkl_executor mkl_executor type~abstract_executor abstract_executor type~mkl_executor->type~abstract_executor c_ptr c_ptr type~abstract_executor->c_ptr plan_forward, plan_backward

Components

Type Visibility Attributes Name Initial
type(c_ptr), public :: plan_forward

Pointer to forward plan
type(c_ptr), public :: plan_backward

Pointer to backward plan
logical, public :: is_inverse_copied = .false.

Is inverse plan copied?
logical, private :: need_reconfigure

Needed for R2C plans
integer(kind=c_long), private, allocatable :: istrides(:)

Input strides. Needed for R2C plans to reconfigure plan
integer(kind=c_long), private, allocatable :: ostrides(:)

Output strides. Needed for R2C plans to reconfigure plan
integer(kind=int32), private :: idist

Input distance between the first data elements of consecutive data sets
integer(kind=int32), private :: odist

Output distance between the first data elements of consecutive data sets

Type-Bound Procedures

procedure, public, non_overridable, pass(self) :: create

Creates FFT plan

  • private function create(self, fft_rank, fft_type, precision, real_pencil, complex_pencil, r2r_kinds)

    Creates FFT plan

    Arguments

    Type IntentOptional Attributes Name
    class(abstract_executor), intent(inout) :: self

    FFT Executor
    integer(kind=int8), intent(in) :: fft_rank

    Rank of fft: 1 or 2
    integer(kind=int8), intent(in) :: fft_type

    Type of fft: r2r, r2c, c2c
    type(dtfft_precision_t), intent(in) :: precision

    Precision of fft: DTFFT_SINGLE or DTFFT_DOUBLE
    type(pencil), intent(in), optional :: real_pencil

    Real data layout
    type(pencil), intent(in), optional :: complex_pencil

    Complex data layout
    type(dtfft_r2r_kind_t), intent(in), optional :: r2r_kinds(:)

    Kinds of r2r transform

    Return Value integer(kind=int32)

procedure, public, non_overridable, pass(self) :: execute

Executes plan

  • private subroutine execute(self, in, out, sign)

    Executes plan

    Arguments

    Type IntentOptional Attributes Name
    class(abstract_executor), intent(in) :: self

    FFT Executor
    type(c_ptr), intent(in) :: in

    Source buffer
    type(c_ptr), intent(in) :: out

    Target buffer
    integer(kind=int8), intent(in) :: sign

    Sign of transform

procedure, public, non_overridable, pass(self) :: destroy

Destroys plan

  • private subroutine destroy(self)

    Destroys plan

    Arguments

    Type IntentOptional Attributes Name
    class(abstract_executor), intent(inout) :: self

    FFT Executor

procedure, public :: create_private => create

Creates FFT plan via MKL DFTI Interface

  • private subroutine create(self, fft_rank, fft_type, precision, idist, odist, how_many, fft_sizes, inembed, onembed, error_code, r2r_kinds)

    Creates FFT plan via MKL DFTI Interface

    Arguments

    Type IntentOptional Attributes Name
    class(mkl_executor), intent(inout) :: self

    MKL FFT Executor
    integer(kind=int8), intent(in) :: fft_rank

    Rank of fft: 1 or 2
    integer(kind=int8), intent(in) :: fft_type

    Type of fft: r2r, r2c, c2c
    type(dtfft_precision_t), intent(in) :: precision

    Precision of fft: DTFFT_SINGLE or DTFFT_DOUBLE
    integer(kind=int32), intent(in) :: idist

    Distance between the first element of two consecutive signals in a batch of the input data.
    integer(kind=int32), intent(in) :: odist

    Distance between the first element of two consecutive signals in a batch of the output data.
    integer(kind=int32), intent(in) :: how_many

    Number of transforms to create
    integer(kind=int32), intent(in) :: fft_sizes(:)

    Dimensions of transform
    integer(kind=int32), intent(in) :: inembed(:)

    Storage dimensions of the input data in memory.
    integer(kind=int32), intent(in) :: onembed(:)

    Storage dimensions of the output data in memory.
    integer(kind=int32), intent(inout) :: error_code

    Error code to be returned to user
    type(dtfft_r2r_kind_t), intent(in), optional :: r2r_kinds(:)

    Kinds of r2r transform

procedure, public :: execute_private => execute

Executes MKL plan

  • private subroutine execute(self, a, b, sign)

    Executes MKL plan

    Arguments

    Type IntentOptional Attributes Name
    class(mkl_executor), intent(in) :: self

    MKL FFT Executor
    type(c_ptr), intent(in) :: a

    Source pointer
    type(c_ptr), intent(in) :: b

    Target pointer
    integer(kind=int8), intent(in) :: sign

    Sign of transform

procedure, public :: destroy_private => destroy

Destroys MKL plan

  • private subroutine destroy(self)

    Destroys MKL plan

    Arguments

    Type IntentOptional Attributes Name
    class(mkl_executor), intent(inout) :: self

    MKL FFT Executor

procedure, public, nopass :: mem_alloc

Allocates MKL memory

  • private subroutine mem_alloc(alloc_bytes, ptr)

    Allocates MKL memory

    Arguments

    Type IntentOptional Attributes Name
    integer(kind=int64), intent(in) :: alloc_bytes

    Number of bytes to allocate
    type(c_ptr), intent(out) :: ptr

    Allocated pointer

procedure, public, nopass :: mem_free

Frees MKL aligned memory

  • private subroutine mem_free(ptr)

    Frees MKL aligned memory

    Arguments

    Type IntentOptional Attributes Name
    type(c_ptr), intent(in) :: ptr

    Pointer to free