#######################################################################################################################################
#                                                                                                                                     #
#         C H O I X   D E   L A   P A R I T E   D E   L A                                                                             #
#         G E N E R A T I O N   D ' U N E   S T R U C T U R E   M U L T I - C O N N E C T E E  :                                      #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xiirv/.NDIM.21.3.$U' :                                                                                          #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, AAAAMMJJhhmmss).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z        set       Entiers="formater=VRAI signe="$K_VIDE" entiers=VRAI"

$Z        set  IndiceMinimum=`$xrv/tri.11$X ne=$_____Npoints fichier=$xTV/DUPLIQUE index=VRAI $Entiers | $HEA -1`
$Z        @    IndiceMinimum = $IndiceMinimum + $Point0

#200506:$Z   set CumulDuplique=`$xrv/cumul.01$X ne=$_____Npoints fichier=$xTV/DUPLIQUE en_tete=FAUX somme=VRAI produit=FAUX $Entiers` #
$Z        set  CumulDuplique=`$xrv/cumul.01$X ne=$_____Npoints fichier=$xTV/DUPLIQUE Men_tete=FAUX somme=VRAI produit=FAUX $Entiers`
$Z        @    PariteCumul = $CumulDuplique % 2

$Z                  set       Increment0=0
$Z                  set       Increment1=1

$Z                  if        ($PariteCumul == 0) then
$Z                            set       Increment=$Increment0
$Z                  else
$Z                            set       Increment=$Increment1
$Z                  endif

$Z                  $DELETE   $xTV/INCREMENT

$Z                  $xci/valeurs_alea$X premiere=$Point0 derniere=$_____Npoints                                                         \
$Z                                      graine=$UNDEF                                                                                   \
$Z                                      avertir_UNDEF=FAUX                                                                              \
$Z                                      inf=$Increment0 sup=$Increment0                                                                 \
$Z                                      forcer=VRAI Fnumero=$IndiceMinimum Fvaleur=$Increment                                           \
$Z                                      entiers=VRAI                                                                                    \
$Z                                      message_borne_superieure_entiere=FAUX                                                           \
$Z                                                                                                  > $xTV/INCREMENT

$Z                  $DELETE   $xTV/DUPLIQUE.1

$Z                  $xrv/ADD2.11$X      ne=$_____Npoints                                                                                \
$Z                                      fichier1=$xTV/DUPLIQUE                                                                          \
$Z                                      fichier2=$xTV/INCREMENT                                                                         \
$Z                                                                                                  > $xTV/DUPLIQUE.1

$Z                  $DELETE   $xTV/DUPLIQUE
$Z                  $MV       $xTV/DUPLIQUE.1 $xTV/DUPLIQUE

$Z                  set       RendrePair=1

$Z                  $DELETE   $xTV/INCREMENT