#!/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 E   I M A G E   C O M P L E X E  :                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/fftd$Z         <nom> [<centrer> [<generer_PR_PI_Mo_Ph>]]                                                     #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/fftd$Z' :                                                                                                   #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nom=$1
set       Centrer=$2
set       G_PR_PI_Mo_Ph=$3

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

setArgum  G_PR_PI_Mo_Ph                 $EXIST
                                        # On genere a priori (pour des raisons de compatibilite anterieure) les images                #
                                        # {$PR,$PI,$Mo,$Ph} (introduit le 20030415142803).                                            #

$xci/fft.01$X       A=$nom$J                                                                                                            \
                    centrer=$Centrer                                                                                                    \
                    TF=$nom$TF                                                                                                          \
                                                                                                              $formatI
                                        # Calcul de la transformee de Fourier ($nom$TF) de l'image complexe $nom$J.                   #

if        ($G_PR_PI_Mo_Ph == $EXIST) then
                                        # Ce test a ete introduit le 20030415142803...                                                #
          $xci/J_RIMP$X       A=$nom$TF                                                                                                 \
                              RR=$nom$PR                                                                                                \
                              RI=$nom$PI                                                                                                \
                              RM=$nom$Mo                                                                                                \
                              RP=$nom$Ph                                                                                                \
                              standard=FAUX                                                                                             \
                                                                                                                        $formatI
                                        # Puis conversion en quatre images non standards ($nom$PR,$nom$PI,$nom$Mo,$nom$Ph).           #
else
endif