GFT_end_fft - Frees the GFT handel.
CALL GFT_end_fft(FFT=h, code=ierr)
<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.
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)
...
This routine frees work and trigonometric arrays and reset the GFT handel to defaultvalues.