#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         P R O D U I T   D E   D E U X   T R A N S F O R M E E S   D E   F O U R I E R  :                                            #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/fftp$Z         <nomA1> <nomA2> <nomR> [<translationX> [<translationY>]]                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/fftp$Z' :                                                                                                   #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nomA1=$1
set       nomA2=$2
set       nomR=$3
set       translationX=$4
set       translationY=$5

if        ("$translationX" == "$K_VIDE") then
#20090629143847____:          set       translationX=`(use $xci/fft.02 "trX=") | $GRE "trX=" | $SE -e 's/^.* \([^ ][^ ]*\)$/\1/'`     #
          set       translationX=`GetParam $xci/fft.02 trX`
                                        # La recuperation de la valeur par defaut de "trX=" est destinee a assurer la compatibilite   #
                                        # anterieure au 20030507174509...                                                             #
else
endif

if        ("$translationY" == "$K_VIDE") then
#20090629143847____:          set       translationY=`(use $xci/fft.02 "trY=") | $GRE "trY=" | $SE -e 's/^.* \([^ ][^ ]*\)$/\1/'`     #
          set       translationY=`GetParam $xci/fft.02 trY`
                                        # La recuperation de la valeur par defaut de "trY=" est destinee a assurer la compatibilite   #
                                        # anterieure au 20030507174509...                                                             #
else
endif

$xci/fft.02$X                                                                                                                           \
                    A=$nomA1$TF                                                                                                         \
                    N=$nomA2$TF                                                                                                         \
                    R=$nomR$TF                                                                                                          \
                    trX=$translationX                                                                                                   \
                    trY=$translationY                                                                                                   \
                                                                                                                        $formatI
                                        # Calcul du produit ($nomR$TF) de deux transformees de Fourier ($nomA1$TF et $nomA2$TF), la   #
                                        # seconde etant translatee en (Xcentre,Ycentre), et est donc consideree comme le noyau        #
                                        # de convolution.                                                                             #
                                        #                                                                                             #
                                        # Les translations {trX,trY} ont ete introduites le 20030507174509.                           #