mirror of
https://github.com/tildearrow/furnace.git
synced 2024-11-24 13:35:11 +00:00
406 lines
18 KiB
Fortran
406 lines
18 KiB
Fortran
|
! Generated automatically. DO NOT EDIT!
|
||
|
|
|
||
|
|
include 'fftw3l.f03'
|
||
|
|
|
||
|
|
|
||
|
|
type, bind(C) :: fftwl_mpi_ddim
|
||
|
|
integer(C_INTPTR_T) n, ib, ob
|
||
|
|
end type fftwl_mpi_ddim
|
||
|
|
|
||
|
|
interface
|
||
|
|
subroutine fftwl_mpi_init() bind(C, name='fftwl_mpi_init')
|
||
|
|
import
|
||
|
|
end subroutine fftwl_mpi_init
|
||
|
|
|
||
|
|
subroutine fftwl_mpi_cleanup() bind(C, name='fftwl_mpi_cleanup')
|
||
|
|
import
|
||
|
|
end subroutine fftwl_mpi_cleanup
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_many_transposed(rnk,n,howmany,block0,block1,comm,local_n0,local_0_start, &
|
||
|
|
local_n1,local_1_start) &
|
||
|
|
bind(C, name='fftwl_mpi_local_size_many_transposed_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
integer(C_INTPTR_T), value :: howmany
|
||
|
|
integer(C_INTPTR_T), value :: block0
|
||
|
|
integer(C_INTPTR_T), value :: block1
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n0
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_0_start
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n1
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_1_start
|
||
|
|
end function fftwl_mpi_local_size_many_transposed
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_many(rnk,n,howmany,block0,comm,local_n0,local_0_start) &
|
||
|
|
bind(C, name='fftwl_mpi_local_size_many_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
integer(C_INTPTR_T), value :: howmany
|
||
|
|
integer(C_INTPTR_T), value :: block0
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n0
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_0_start
|
||
|
|
end function fftwl_mpi_local_size_many
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_transposed(rnk,n,comm,local_n0,local_0_start,local_n1,local_1_start) &
|
||
|
|
bind(C, name='fftwl_mpi_local_size_transposed_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n0
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_0_start
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n1
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_1_start
|
||
|
|
end function fftwl_mpi_local_size_transposed
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size(rnk,n,comm,local_n0,local_0_start) bind(C, name='fftwl_mpi_local_size_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n0
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_0_start
|
||
|
|
end function fftwl_mpi_local_size
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_many_1d(n0,howmany,comm,sign,flags,local_ni,local_i_start,local_no, &
|
||
|
|
local_o_start) bind(C, name='fftwl_mpi_local_size_many_1d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: howmany
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: sign
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_ni
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_i_start
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_no
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_o_start
|
||
|
|
end function fftwl_mpi_local_size_many_1d
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_1d(n0,comm,sign,flags,local_ni,local_i_start,local_no,local_o_start) &
|
||
|
|
bind(C, name='fftwl_mpi_local_size_1d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: sign
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_ni
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_i_start
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_no
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_o_start
|
||
|
|
end function fftwl_mpi_local_size_1d
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_2d(n0,n1,comm,local_n0,local_0_start) &
|
||
|
|
bind(C, name='fftwl_mpi_local_size_2d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n0
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_0_start
|
||
|
|
end function fftwl_mpi_local_size_2d
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_2d_transposed(n0,n1,comm,local_n0,local_0_start,local_n1,local_1_start) &
|
||
|
|
bind(C, name='fftwl_mpi_local_size_2d_transposed_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n0
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_0_start
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n1
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_1_start
|
||
|
|
end function fftwl_mpi_local_size_2d_transposed
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_3d(n0,n1,n2,comm,local_n0,local_0_start) &
|
||
|
|
bind(C, name='fftwl_mpi_local_size_3d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_INTPTR_T), value :: n2
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n0
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_0_start
|
||
|
|
end function fftwl_mpi_local_size_3d
|
||
|
|
|
||
|
|
integer(C_INTPTR_T) function fftwl_mpi_local_size_3d_transposed(n0,n1,n2,comm,local_n0,local_0_start,local_n1,local_1_start) &
|
||
|
|
bind(C, name='fftwl_mpi_local_size_3d_transposed_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_INTPTR_T), value :: n2
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n0
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_0_start
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_n1
|
||
|
|
integer(C_INTPTR_T), intent(out) :: local_1_start
|
||
|
|
end function fftwl_mpi_local_size_3d_transposed
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_many_transpose(n0,n1,howmany,block0,block1,in,out,comm,flags) &
|
||
|
|
bind(C, name='fftwl_mpi_plan_many_transpose_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_INTPTR_T), value :: howmany
|
||
|
|
integer(C_INTPTR_T), value :: block0
|
||
|
|
integer(C_INTPTR_T), value :: block1
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_many_transpose
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_transpose(n0,n1,in,out,comm,flags) bind(C, name='fftwl_mpi_plan_transpose_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_transpose
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_many_dft(rnk,n,howmany,block,tblock,in,out,comm,sign,flags) &
|
||
|
|
bind(C, name='fftwl_mpi_plan_many_dft_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
integer(C_INTPTR_T), value :: howmany
|
||
|
|
integer(C_INTPTR_T), value :: block
|
||
|
|
integer(C_INTPTR_T), value :: tblock
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: sign
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_many_dft
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft(rnk,n,in,out,comm,sign,flags) bind(C, name='fftwl_mpi_plan_dft_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: sign
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_1d(n0,in,out,comm,sign,flags) bind(C, name='fftwl_mpi_plan_dft_1d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: sign
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_1d
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_2d(n0,n1,in,out,comm,sign,flags) bind(C, name='fftwl_mpi_plan_dft_2d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: sign
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_2d
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_3d(n0,n1,n2,in,out,comm,sign,flags) bind(C, name='fftwl_mpi_plan_dft_3d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_INTPTR_T), value :: n2
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: sign
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_3d
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_many_r2r(rnk,n,howmany,iblock,oblock,in,out,comm,kind,flags) &
|
||
|
|
bind(C, name='fftwl_mpi_plan_many_r2r_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
integer(C_INTPTR_T), value :: howmany
|
||
|
|
integer(C_INTPTR_T), value :: iblock
|
||
|
|
integer(C_INTPTR_T), value :: oblock
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_many_r2r
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_r2r(rnk,n,in,out,comm,kind,flags) bind(C, name='fftwl_mpi_plan_r2r_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_FFTW_R2R_KIND), dimension(*), intent(in) :: kind
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_r2r
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_r2r_2d(n0,n1,in,out,comm,kind0,kind1,flags) bind(C, name='fftwl_mpi_plan_r2r_2d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_FFTW_R2R_KIND), value :: kind0
|
||
|
|
integer(C_FFTW_R2R_KIND), value :: kind1
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_r2r_2d
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_r2r_3d(n0,n1,n2,in,out,comm,kind0,kind1,kind2,flags) &
|
||
|
|
bind(C, name='fftwl_mpi_plan_r2r_3d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_INTPTR_T), value :: n2
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_FFTW_R2R_KIND), value :: kind0
|
||
|
|
integer(C_FFTW_R2R_KIND), value :: kind1
|
||
|
|
integer(C_FFTW_R2R_KIND), value :: kind2
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_r2r_3d
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_many_dft_r2c(rnk,n,howmany,iblock,oblock,in,out,comm,flags) &
|
||
|
|
bind(C, name='fftwl_mpi_plan_many_dft_r2c_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
integer(C_INTPTR_T), value :: howmany
|
||
|
|
integer(C_INTPTR_T), value :: iblock
|
||
|
|
integer(C_INTPTR_T), value :: oblock
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_many_dft_r2c
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_r2c(rnk,n,in,out,comm,flags) bind(C, name='fftwl_mpi_plan_dft_r2c_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_r2c
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_r2c_2d(n0,n1,in,out,comm,flags) bind(C, name='fftwl_mpi_plan_dft_r2c_2d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_r2c_2d
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_r2c_3d(n0,n1,n2,in,out,comm,flags) bind(C, name='fftwl_mpi_plan_dft_r2c_3d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_INTPTR_T), value :: n2
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_r2c_3d
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_many_dft_c2r(rnk,n,howmany,iblock,oblock,in,out,comm,flags) &
|
||
|
|
bind(C, name='fftwl_mpi_plan_many_dft_c2r_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
integer(C_INTPTR_T), value :: howmany
|
||
|
|
integer(C_INTPTR_T), value :: iblock
|
||
|
|
integer(C_INTPTR_T), value :: oblock
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_many_dft_c2r
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_c2r(rnk,n,in,out,comm,flags) bind(C, name='fftwl_mpi_plan_dft_c2r_f03')
|
||
|
|
import
|
||
|
|
integer(C_INT), value :: rnk
|
||
|
|
integer(C_INTPTR_T), dimension(*), intent(in) :: n
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_c2r
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_c2r_2d(n0,n1,in,out,comm,flags) bind(C, name='fftwl_mpi_plan_dft_c2r_2d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_c2r_2d
|
||
|
|
|
||
|
|
type(C_PTR) function fftwl_mpi_plan_dft_c2r_3d(n0,n1,n2,in,out,comm,flags) bind(C, name='fftwl_mpi_plan_dft_c2r_3d_f03')
|
||
|
|
import
|
||
|
|
integer(C_INTPTR_T), value :: n0
|
||
|
|
integer(C_INTPTR_T), value :: n1
|
||
|
|
integer(C_INTPTR_T), value :: n2
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
integer(C_MPI_FINT), value :: comm
|
||
|
|
integer(C_INT), value :: flags
|
||
|
|
end function fftwl_mpi_plan_dft_c2r_3d
|
||
|
|
|
||
|
|
subroutine fftwl_mpi_gather_wisdom(comm_) bind(C, name='fftwl_mpi_gather_wisdom_f03')
|
||
|
|
import
|
||
|
|
integer(C_MPI_FINT), value :: comm_
|
||
|
|
end subroutine fftwl_mpi_gather_wisdom
|
||
|
|
|
||
|
|
subroutine fftwl_mpi_broadcast_wisdom(comm_) bind(C, name='fftwl_mpi_broadcast_wisdom_f03')
|
||
|
|
import
|
||
|
|
integer(C_MPI_FINT), value :: comm_
|
||
|
|
end subroutine fftwl_mpi_broadcast_wisdom
|
||
|
|
|
||
|
|
subroutine fftwl_mpi_execute_dft(p,in,out) bind(C, name='fftwl_mpi_execute_dft')
|
||
|
|
import
|
||
|
|
type(C_PTR), value :: p
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(inout) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
end subroutine fftwl_mpi_execute_dft
|
||
|
|
|
||
|
|
subroutine fftwl_mpi_execute_dft_r2c(p,in,out) bind(C, name='fftwl_mpi_execute_dft_r2c')
|
||
|
|
import
|
||
|
|
type(C_PTR), value :: p
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(inout) :: in
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(out) :: out
|
||
|
|
end subroutine fftwl_mpi_execute_dft_r2c
|
||
|
|
|
||
|
|
subroutine fftwl_mpi_execute_dft_c2r(p,in,out) bind(C, name='fftwl_mpi_execute_dft_c2r')
|
||
|
|
import
|
||
|
|
type(C_PTR), value :: p
|
||
|
|
complex(C_LONG_DOUBLE_COMPLEX), dimension(*), intent(inout) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
end subroutine fftwl_mpi_execute_dft_c2r
|
||
|
|
|
||
|
|
subroutine fftwl_mpi_execute_r2r(p,in,out) bind(C, name='fftwl_mpi_execute_r2r')
|
||
|
|
import
|
||
|
|
type(C_PTR), value :: p
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(inout) :: in
|
||
|
|
real(C_LONG_DOUBLE), dimension(*), intent(out) :: out
|
||
|
|
end subroutine fftwl_mpi_execute_r2r
|
||
|
|
|
||
|
|
end interface
|