#######################################################################################################################################
#                                                                                                                                     #
#         G E N E R A T I O N   D E S   L I S T E S   D ' I M M O B I L I S A T I O N  :                                              #
#                                                                                                                                     #
#                                                                                                                                     #
#         Author of '$xivP/disk.000000009/face.2/.REFL.c.53.3.$U' :                                                                                  #
#                                                                                                                                     #
#                     Jean-Francois Colonna (LACTAMME, 20160610112915).                                                               #
#                                                                                                                                     #
#######################################################################################################################################

$Z                  if                  ($?_____ImmobilisMin == $NEXIST) then
$Z                                      SET                 _____ImmobilisMin=`$xcp/Lconstantes$X c=INFINI Prme=VRAI`
$Z                                      SET                 _____ImmobilisMin=`$xcg/DIVZ.01$X a=$_____ImmobilisMin b=10`
$Z                                      # Pour eviter des problemes de debordement ulterieur...                                       #
$Z                  else
$Z                  endif

$Z                  if                  ($?_____ImmobilisMax == $NEXIST) then
$Z                                      SET                 _____ImmobilisMax=`$xcp/Lconstantes$X c=INFINI Prme=VRAI`
$Z                                      SET                 _____ImmobilisMax=`$xcg/DIVZ.01$X a=$_____ImmobilisMax b=10`
$Z                                      # Pour eviter des problemes de debordement ulterieur...                                       #
$Z                  else
$Z                  endif

$Z                  $DELETE   $xTV/IMMOBILISABLE

$Z                  if        (    (`$xcg/IFGE.01$X x=$_____ImmobilisMin y=0` == $EXIST)                                                \
$Z                            &&   (`$xcg/IFGE.01$X x=$_____ImmobilisMax y=0` == $EXIST)                                                \
$Z                             ) then

$Z   GenR $xTV/IMMOBILISABLE  $_____ImmobilisMin  $_____ImmobilisMax  g=9797    entiers=VRAI epsilon=0.5 compatibilite_20030926=VRAI

$Z                  else
$Z                            GenR      $xTV/IMMOBILISABLE  $_____ImmobilisMin  $_____ImmobilisMax  g=9797
$Z                  endif