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

$Z                  $DELETE             $xTV/CARACTERIS.T

$Z                  $xrv/MUL2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.CX                                                                     \
$Z                                      fichier2=$xTV/COORDONNEES$COORD_X                                                               \
$Z                                                                                                            >   $xTV/CARACTERIS.T

$Z                  $DELETE             $xTV/COORDONNEES$COORD_X
$Z                  $MV                 $xTV/CARACTERIS.T  $xTV/COORDONNEES$COORD_X

$Z                  $DELETE             $xTV/CARACTERIS.CX

$Z                  $DELETE             $xTV/CARACTERIS.T

$Z                  $xrv/MUL2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.CY                                                                     \
$Z                                      fichier2=$xTV/COORDONNEES$COORD_Y                                                               \
$Z                                                                                                            >   $xTV/CARACTERIS.T

$Z                  $DELETE             $xTV/COORDONNEES$COORD_Y
$Z                  $MV                 $xTV/CARACTERIS.T  $xTV/COORDONNEES$COORD_Y

$Z                  $DELETE             $xTV/CARACTERIS.CY

$Z                  $DELETE             $xTV/CARACTERIS.T

$Z                  $xrv/MUL2.11$X                                                                                                      \
$Z                                      ne=$Npart                                                                                       \
$Z                                      fichier1=$xTV/CARACTERIS.CZ                                                                     \
$Z                                      fichier2=$xTV/COORDONNEES$COORD_Z                                                               \
$Z                                                                                                            >   $xTV/CARACTERIS.T

$Z                  $DELETE             $xTV/COORDONNEES$COORD_Z
$Z                  $MV                 $xTV/CARACTERIS.T  $xTV/COORDONNEES$COORD_Z

$Z                  $DELETE             $xTV/CARACTERIS.CZ