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

$Z                  $DELETE             $xTV/COORDONNEES$COORD_X
$Z                  $DELETE             $xTV/COORDONNEES$COORD_Y
$Z                  $DELETE             $xTV/COORDONNEES$COORD_Z

$Z                  set                 Part0=1
$Z                  set                 PartN=$Part0

$Z                  Gen                 $xTV/COORDONNEES$COORD_X      0.0       0.0
$Z                  Gen                 $xTV/COORDONNEES$COORD_Y      0.0       0.0