dfft2i - initialize the array WSAVE, which is used in both the forward and backward transforms.
SUBROUTINE DFFT2I( M, N, WORK) INTEGER M, N DOUBLE PRECISION WORK(*)
SUBROUTINE DFFT2I_64( M, N, WORK) INTEGER*8 M, N DOUBLE PRECISION WORK(*)
SUBROUTINE FFT2I( M, N, WORK) INTEGER :: M, N REAL(8), DIMENSION(:) :: WORK
SUBROUTINE FFT2I_64( M, N, WORK) INTEGER(8) :: M, N REAL(8), DIMENSION(:) :: WORK
#include <sunperf.h>
void dfft2i(int m, int n, double *work);
void dfft2i_64(long m, long n, double *work);