#######################################################################################################################################
#                                                                                                                                     #
#         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.m.53.2.$U' :                                                                                  #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

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

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