#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         T R A N S F O R M E E   D E   F O U R I E R   D I R E C T E                                                                 #
#         D ' U N   C O U P L E   D ' I M A G E S   F L O T T A N T E S  :                                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/fftdf$Z        <nomPR> <nomPI> <nomTF> [<centrer>]                                                           #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/fftdf$Z' :                                                                                                  #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20030415142327).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nomPR=$1
set       nomPI=$2
set       nomTF=$3
set       Centrer=$4

setArgum  Centrer                       FAUX
                                        # On ne centre pas a priori (pour des raisons de compatibilite anterieure)...                 #

$xci/RI_J$X         AR=$nomPR AI=$nomPI                                                                                                 \
                    standard=FAUX                                                                                                       \
                    R=$nomTF$J                                                                                                          \
                                                                                                                        $formatI
                                        # Conversion images flottantes (AR=PR=$nomPR,AI=PI=$nomPI) --> image complexe (R=$nomTF$J).   #
$xci/fft.01$X       A=$nomTF$J                                                                                                          \
                    centrer=$Centrer                                                                                                    \
                    TF=$nomTF$TF                                                                                                        \
                                                                                                                        $formatI
                                        # Calcul de la transformee de Fourier ($nomTF$TF) de l'image complexe $nomTF$J.               #

$DELETE   $nomTF$J
                                        # Puis destruction de l'image complexe ($nomTF$J).                                            #