#######################################################################################################################################
#                                                                                                                                     #
#         C H A N G E M E N T   ( A N N U L A T I O N )   D E   L A   P H A S E   D E   L A   V I T E S S E                           #
#         D E   L A   F A M I L L E   C E N T R A L E  :                                                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.w.53.$U' :                                                                                    #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  $DELETE             $xTV/THETA.L

$Z                  set                 PhaseCentrale=0.0

$Z                  $xrv/BARY.21$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/THETA                                                                             \
$Z                                      fichier2=$PhaseCentrale                                                                         \
$Z                                      lambda=$xTV/CARACTERIS.L                                                                        \
$Z                                                                                                            >   $xTV/THETA.L
$Z                                      # ATTENTION : j'ai decouvert le 20051019103503 que le 'ne=$Npart' manquait a cette date...    #
$Z                                      # On notera que ce probleme ne se manifestait pas sur '$LACT15', mais sur '$LACT16'. Cela     #
$Z                                      # ressemble etrangement au probleme 'v $xig/fonct$vv$FON 20041020113351'. La aussi,           #
$Z                                      # l'absence de 'ne=$Npart' donnait le message :                                               #
$Z                                      #                                                                                             #
$Z                                      #                   Segmentation fault                                                        #
$Z                                      #                                                                                             #
$Z                                      # Les tests alors realises sont decrits dans 'v $xig/fonct$vv$FON 20051019113924'...          #

$Z                  $DELETE             $xTV/THETA
$Z                  $MV                 $xTV/THETA.L        $xTV/THETA