In Fortran the grid structure is hidden and is operated on by integer handles.

subroutine p3dfft_setup

*Function:* called once in the beginning of use to initialize P3DFFT++.

subroutine p3dfft_cleanup

*Function: *called once before exit and after the use to free up P3DFFT++ structures.

function p3dfft_init_grid(ldims, glob_start, gdims, pgrid, proc_order, mem_order, mpicomm)

integer(C_INT) p3dfft_init_grid

*Function:* initialize a new grid

*Arguments:*

IN:

integer gdims(3): three global grid dimensions (logical order - X, Y, Z)

integer pgrid(3): up to three dimensions of processor grid, decomposing the global grid array. Value =1 means the grid is not decomposed but is local in that logical dimension.

*integer proc_order(3): *a permutation of the 3 integers: 0, 1 and 2. Specifies the topology of processor grid on the interconnect. The dimension with lower value means the MPI tasks in that dimension are closer in ranks, e.g. value=0 means the ranks are adjacent (stride=1), value=1 means they are speard out with the stride equal to the pgrid value of the dimension with stride=1 etc

integer mem_order(3): a permutation of the 3 integers: 0, 1 and 2. Specifies mapping of the logical dimension and memory storage dimensions for local memory for each MPI task. mem_order(i0) = 0 means that the i0's logical dimension is stored with stride=1 in memory. Similarly, mem_order(i1) =1 means that i1's logical dimension is stored with stride=ldims(i0) etc

integer mpicomm: the MPI communicator in which this grid lives

OUT:

integer ldims(3):local dimensions of the grid for each MPI tasks, in order of logical dimensions numbering (XYZ). Essentially ldims = gdims / pgrid.

integer glob_start(3): starting coordinates of the local portion of the grid within the global grid.

*Return value: *an integer handle of the initialized grid, to be used later by various routines accessing the grid.

subroutine p3dfft_free_grid_f(grid)

*Function:* frees the grid handle

*Arguments: *

IN: *integer(C_INT) grid* - the handle of the grid to be freed

The following predefined 1D transforms are available:

P3DFFT_EMPTY_TYPE - empty transform

P3DFFT_R2CFFT_S, P3DFFT_R2CFFT_D - real-to-complex forward FFT (as defined in FFTW manual), in single and double precision respectively

P3DFFT_C2RFFT_S, P3DFFT_C2RFFT_D - complex-to-real backward FFT (as defined in FFTW manual), in single and double precision respectively

P3DFFT_CFFT_FORWARD_S, P3DFFT_CFFT_FORWARD_D - complex forward FFT (as defined in FFTW manual), in single and double precision respectively

P3DFFT_CFFT_BACKWARD_S, P3DFFT_CFFT_BACKWARD_D - complex backward FFT (as defined in FFTW manual), in single and double precision respectively

P3DFFT_COSTRAN_REAL_S, P3DFFT_COSTRAN_REAL_D - cosine transform for real-numbered data, in single and double precision

P3DFFT_SINTRAN_RE AL_S, P3DFFT_SINTRAN_REAL_D - sine transform for real-numbered data, in single and double precision

P3DFFT_COSTRAN_COMPLEX_S, P3DFFT_COSTRAN_COMPLEX_D - cosine transform for complex-numbered data, in single and double precision

P3DFFT_SINTRAN_COMPLEX_S, P3DFFT_SINTRAN_COMPLEX_D - sine transform for complex-numbered data, in single and double precision

P3DFFT_CHEB_REAL_S, P3DFFT_CHEB_ REAL_D - Chebyshev transform for real-numberes data, in single and double precision

P3DFFT_CHEB_COMPLEX_S, P3DFFT_CHEB_COMPLEX_D - Chebyshev transform for complex-numbered data, in single and double precision

function p3dfft_plan_1Dtrans_f(gridIn, gridOut, type, dim, inplace)

integer p3dfft_plan_1Dtrans

*Function:* defines and plans a 1D transform of a 3D array in a given dimension

*Arguments: *

IN:

integer gridIn:initial grid handle

integer gridOut: destination grid handle

integer type: 1D transform type

integer dim:dimension rank of the 3D array which should be transformed. valid values are 0, 1 or 2. Note that this is the logical dimension rank (0 for X, 1 for Y, 2 for Z), and may not be the same as the storage dimension, which depends on mem_order member of gridIn and gridOut. The transform dimension of the grid is assumed to be MPI task-local.

integer inplace: nonzero value if the transform is in-place.

subroutine p3dfft_exec_1Dtrans_single(mytrans,in,out)

subroutine p3dfft_exec_1Dtrans_double(mytrans,in,out)

*Function:* Executes a 1D transform of a 3D array, in single or double precision

*Arguments: *

IN:

mytrans: the handle of a 1D transform predefined earlier with p3dfft_plan_1Dtrans.

in: 3D array to be transformed

out: destination array (can be the same if inplace was nonzero when defining mytrans)

*Notes*:

1) If inplace was not defined the input and output arrays must be non-overlapping.

2) This transform is done in the dimension specified in p3dfft_plan_1Dtrans, and this dimension should be local for both input and output arrays.

3) This subroutine can be called multiple times with the same mytrans and same or different in/out.

function p3dfft_plan_3Dtrans_f(gridIn,gridOut,type,inplace)

integer p3dfft_plan_3Dtrans_f

*Function:* defines and plans a 3D transform

*Arguments: *

integer gridIn: initial grid handle

integer gridOut: destination grid handle

integer type(3): three 1D transform types making up the desired 3D transform

integer inplace: if nonzero, the transform takes place in-place

*Return value:* a handle of the 3D transform

*Notes:* The final grid may or may not be the same as the initial grid. First, in real-to-complex and complex-to-real transforms the global grid dimensions change for example from (n0,n1,n2) to (n0/2+1,n1,n2), since most applications attempt to save memory by using the conjugate symmetry of the Fourier transform of real data. Secondly, the final grid may have different processor distribution and memory ordering, since for example many applications with convolution and those solving partial differential equations do not need the initial grid configuration in Fourier space. The flow of these applications is typically 1) transform from physical to Fourier space, 2) apply convolution or derivative calculation in Fourier space, and 3) inverse FFT to physical space. Since forward FFT's last step is 1D FFT in the third dimension, it is more efficient to leave this dimension local and stride-1, and since the first step of the inverse FFT is to start with the third dimension 1D FFT, this format naturally fits the algorithm and results in big savings of time due to elimination of several extra transposes.

subroutine p3dfft_exec_3Dtrans_single(mytrans,in,out,overwrite)

subroutine p3dfft_exec_3Dtrans_double(mytrans,in,out,overwrite)

*Function:* Executes a predefined 3D transform in single or double precision

*Arguments: *

mytrans: the handle of the predefined 3D transform

in: input array

out: output array

overwrite: nonzero if the input can be overwritten

*Notes:* this subroutine can be called multiple times for the same mytrans and same or different in/out.