#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D ' U N E   D E F O R M A T I O N   N E U T R E  :                                                    #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.MAIL.11.2.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20150526102847).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  set                 LiStE=`$xci/nombres$X premiere=0 derniere=$_____MailleZ`

$Z                  foreach             NuMeRo ($LiStE)
$Z                                      $xci/init$X                                                                                     \
$Z                                                          standard=FAUX                                                               \
$Z                                                          valeur=0                                                                    \
$Z                                                          R=$xTV/DEFORMATION.$NuMeRo$COORD_X                                          \
$Z                                                                                                  $formatI

$Z                                      $xci/init$X                                                                                     \
$Z                                                          standard=FAUX                                                               \
$Z                                                          valeur=0                                                                    \
$Z                                                          R=$xTV/DEFORMATION.$NuMeRo$COORD_Y                                          \
$Z                                                                                                  $formatI

$Z                                      $xci/init$X                                                                                     \
$Z                                                          standard=FAUX                                                               \
$Z                                                          valeur=0                                                                    \
$Z                                                          R=$xTV/DEFORMATION.$NuMeRo$COORD_Z                                          \
$Z                                                                                                  $formatI
$Z                  end