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

$Z        SETParam            _____CalculerR16              $EXIST
$Z                                      # Parametre introduit le 20110119105444...                                                    #

$Z        SETParam            _____CalculerR64              $EXIST
$Z                                      # Parametre introduit le 20110119105444...                                                    #

$Z                  if                  ($_____CalculerR16 == $EXIST) then
$Z                                      # Test introduit le 20110119105544...                                                         #
$Z                                      $xci/reduction_16$Z $_____images.  $_____animation          $Premiere $Derniere
$Z                  else
$Z                  endif

$Z                  if                  ($_____CalculerR64 == $EXIST) then
$Z                                      # Test introduit le 20110119105544...                                                         #
$Z                                      SET       Nombre=$UNDEF
$Z                                      # Pour eviter des problemes de generation avec 'listN' avec les 'if(...)' qui suivent...      #
$Z                                      @         Nombre = $Derniere - $Premiere
$Z                                      @         Nombre = $Nombre + 1
$Z                                      if        ($Nombre < 0) then
$Z                                                @         Nombre = 0 - $Nombre
$Z                                      else
$Z                                      endif

$Z                                      if        ($Nombre >= 64) then
$Z                                      # Ce test a ete ajoute le 20010529172735 par symetrie avec ce qui a ete fait a cette date     #
$Z                                      # dans 'v _____xivPdf_09_2/.REFL.f.14.$U 20010529172735'.                                     #
$Z                                                $xci/reduction_64$Z $_____images.  $_____animation          $Premiere $Derniere
$Z                                      else
$Z                                      endif
$Z                  else
$Z                  endif

$Z                  unset     _____CalculerR64
$Z                  unset     _____CalculerR16
$Z                                      # Introduit le 20200115100431 afin de permettre des usages successifs dans un meme '$Z'       #
$Z                                      # tel, par exemple, dans 'v $xiirv/$Fnota Debut_listG_STRX_21'...                             #