#!/bin/csh

#######################################################################################################################################
#                                                                                                                                     #
#         T R A N S F O R M E E   D E   F O U R I E R   I N V E R S E  :                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Utilisation :                                                                                                               #
#                                                                                                                                     #
#                   $xci/ffti$Z         <nom> [<decentrer> [<generer_PR_PI_Mo_Ph> [<Facteur>]]]                                       #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xci/ffti$Z' :                                                                                                   #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

set       nom=$1
set       Decentrer=$2
set       G_PR_PI_Mo_Ph=$3
set       Facteur=$4

setArgum  Decentrer                     FAUX
                                        # On ne decentre 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 20030415143615).                                            #

setArgum  Facteur                       1
                                        # Facteur introduit le 20030506140922 pour 'v $xci/morlet.12$Z FaCtEuR'...                    #

$xci/fft.03$X       TF=$nom$TF                                                                                                          \
                    R=$nom$J                                                                                                            \
                    decentrer=$Decentrer                                                                                                \
                    facteur=$Facteur                                                                                                    \
                                                                                                    $formatI
                                        # Calcul de la transformee de Fourier inverse ($nom$J) de l'image argument $nom$TF.           #

if        ($G_PR_PI_Mo_Ph == $EXIST) then
                                        # Ce test a ete introduit le 20030415143615...                                                #
          FileTmpB  nomTR
          FileTmpB  nomTI
          FileTmpB  nomTM
          FileTmpB  nomTP

          $xci/J_RIMP$X       A=$nom$J                                                                                                  \
                              RR=$nomTR                                                                                                 \
                              RI=$nomTI                                                                                                 \
                              RM=$nomTM                                                                                                 \
                              RP=$nomTP                                                                                                 \
                              standard=FAUX                                                                                             \
                                                                                                                        $formatI
                                        # Puis conversion en quatre images non standards ($nom$PR,$nom$PI,$nom$Mo,$nom$Ph).           #

          $xci/acces$X        A=$nomTR                                                                                                  \
                              standard=FAUX                                                                                             \
                              zero=FAUX                                                                                                 \
                              R=$nom$PR                                                                                                 \
                                                                                                                        $formatI
          $xci/acces$X        A=$nomTI                                                                                                  \
                              standard=FAUX                                                                                             \
                              zero=FAUX                                                                                                 \
                              R=$nom$PI                                                                                                 \
                                                                                                                        $formatI
          $xci/acces$X        A=$nomTM                                                                                                  \
                              standard=FAUX                                                                                             \
                              zero=FAUX                                                                                                 \
                              R=$nom$Mo                                                                                                 \
                                                                                                                        $formatI
          $xci/acces$X        A=$nomTP                                                                                                  \
                              standard=FAUX                                                                                             \
                              zero=FAUX                                                                                                 \
                              R=$nom$Ph                                                                                                 \
                                                                                                                        $formatI
                                        # Puis conversion en quatre images standards ($nom$PR,$nom$PI,$nom$Mo,$nom$Ph).               #

          FileTmpE  nomTR
          FileTmpE  nomTI
          FileTmpE  nomTM
          FileTmpE  nomTP
else
endif