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

$Z        SETParam            _____Dimension                2

$Z        setParam            _____MailleX                  3

$Z        setParam            _____MailleY                  3

$Z        setParam            _____MailleZ                  3

$Z                  if                  (($_____Dimension != 2) && ($_____Dimension != 3)) then
$Z                                      EROR                "Le nombre de dimensions est invalide et il est donc force a 2."
$Z                                      SET                 _____Dimension=2
$Z                  else
$Z                  endif