NAME

GFT_end_fft - Frees the GFT handel.

SYNOPSIS

CALL GFT_end_fft(FFT=h, code=ierr)

PARAMETERS

<INOUT> h  : GFT handel can be typed to one of the following derived data types: 
               1) GFT_CC  : to perform a Complex-Complex FFT and inverse.
               2) GFT_RCR : to perform a Real-Complex FFT and inverse.
               3) GFT_MRCR: to perform a multiple 1D Real-Complex FFT and inverse.
               4) GFT_MCC : to perform a multiple 1D Complex-Complex FFT and inverse.
<OUT> ierr : Optional error code. It will always return 0 in this release.

EXAMPLES

In this example, we set the size of a 2D FFT, performs the FFT and frees the GFT handel.

     USE GFT
     INTEGER       :: n, m
     TYPE(GFT_RCR) :: h
     ...
     n=15; m=12
     CALL GFT_set_fft(Nx=n, Ny=m, FFT=h)
     ...Perform the FFT
     CALL GFT_end_fft(FFT=h)
     ...

DISCUSSION

This routine frees work and trigonometric arrays and reset the GFT handel to defaultvalues.

SEE ALSO

Back to the routines' list...
Last modified: Mon May 27 17:05:45 CEST 2002