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

$Z                  $xrv/RT_XY.01$X                                                                                                     \
$Z                                      ne=$Npart                                                                                       \
$Z                                      pX=1 LISTE_RHO=$xTV/MODULE                                                                      \
$Z                                      pY=0 LISTE_THETA=$xTV/THETA                                                                     \
$Z                                                                                                            >   $xTV/VITESSES$COORD_X
$Z                  $xrv/RT_XY.01$X                                                                                                     \
$Z                                      ne=$Npart                                                                                       \
$Z                                      pX=0 LISTE_RHO=$xTV/MODULE                                                                      \
$Z                                      pY=1 LISTE_THETA=$xTV/THETA                                                                     \
$Z                                                                                                            >   $xTV/VITESSES$COORD_Y

$Z                  Gen                 $xTV/VITESSES$COORD_Z         0.0       0.0

$Z                  $DELETE             $xTV/MODULE
$Z                  $DELETE             $xTV/THETA