/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   O P E R A T I O N S   D E   R E D U C T I O N  :                                             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/reduction.03$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20010613085805).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D O N N E E S  :                                                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
     DEFV(CHAR,INIC(POINTERc(nom_imageA),NOM_PIPE));
                                        /* Nom de la liste d'images a reduire.                                                       */
     DEFV(CHAR,INIC(POINTERc(nom_postfixe),NOM_UNDEF_VIDE));
                                        /* Nom d'un eventuel postfixe a placer derriere <nom_imageA><numero> (par exemple '$ROUGE'). */
     DEFV(Float,INIT(pas_des_images,PAS_DES_IMAGES));
                                        /* Pas de passage d'un numero d'image a une autre.                                           */
     DEFV(Logical,INIT(calculer_le_pas_des_images,CALCULER_LE_PAS_DES_IMAGES));
                                        /* Indique si le pas de passage d'un numero d'image a une autre est calcule ('VRAI') ou      */
                                        /* bien donne en argument ('FAUX').                                                          */
     DEFV(Logical,INIT(aller_de_la_premiere_a_la_derniere_image_lors_du_calcul_du_pas_des_images
                      ,ALLER_DE_LA_PREMIERE_A_LA_DERNIERE_IMAGE_LORS_DU_CALCUL_DU_PAS_DES_IMAGES
                       )
          );
                                        /* Indique si 'IL_FAUT(calculer_le_pas_des_images)' si la derniere image doit etre atteinte  */
                                        /* ('VRAI') ou pas ('FAUX'). Ceci a ete introduit le 20000523092915 car, le mode implicite   */
                                        /* ('FAUX') qui etait le mode anterieur n'atteignait pas la derniere image ; a titre         */
                                        /* d'exemple, avec 'v $xci/reduction_04$K' pour la sequence {1,2,...,41,42} les images       */
                                        /* {0001,0011,0022,0032} etaient utilisees...                                                */
     DEFV(Logical,INIT(permuter_l_eventuel_postfixe_et_le_numero,PERMUTER_L_EVENTUEL_POSTFIXE_ET_LE_NUMERO));
                                        /* Indique si le postfixe et le numero d'une image doivent etre permutes ('VRAI') ou par     */
                                        /* ('FAUX'). La valeur par defaut garantit la compatibilite anterieure au 20151021171729,    */
                                        /* date d'introduction de ce dispositif...                                                   */

     DEFV(Logical,INIT(editer_le_nom_des_images_reduites,EDITER_LE_NOM_DES_IMAGES_REDUITES));
                                        /* Indique si le nom des images qui sont reduites doit etre edite ('VRAI') ou pas ('FAUX').  */
     DEFV(Logical,INIT(editer_seulement_le_numero_des_images_reduites,EDITER_SEULEMENT_LE_NUMERO_DES_IMAGES_REDUITES));
                                        /* Si 'IL_FAUT(editer_le_nom_des_images_reduites)', indique s'il faut n'editer que le        */
                                        /* numero ('VRAI') ou bien le nom complet ('FAUX'). Ceci a ete introduit le 20030626091526.  */

     DEFV(Int,INIT(nombre_de_chiffres,NOMBRE_DE_CHIFFRES));
                                        /* Nombre de chiffres codant le numero des images de la serie...                             */
     DEFV(Int,INIT(premiere_image,PREMIERE_IMAGE));
                                        /* Numero de la premiere image.                                                              */
     DEFV(Int,INIT(derniere_image,DERNIERE_IMAGE));
                                        /* Numero de la derniere image ; ce parametre n'est utilise que s'il faut calculer le pas... */
     DEFV(Float,INIT(numero_d_image,UNDEF));
                                        /* Numero de l'image courante. On notera le passage en mode 'Float' le 19970205093733        */
                                        /* en ce qui concerne 'pas_des_images' et 'numero_d_image' ce qui permet d'exploiter une     */
                                        /* sequence d'images dont le nombre n'est pas divisible par la taille de la matrice          */
                                        /* d'images que l'on genere (soit ici 'nxn').                                                */
     DEFV(Logical,INIT(gerer_modulo_les_numeros_des_images,GERER_MODULO_LES_NUMEROS_DES_IMAGES));
                                        /* Indique si les numeros des images doivent etre geres "modulo" ('VRAI'), c'est-a-dire      */
                                        /* revenir a 'premiere_image' lorsqu'ils depassent 'derniere_image', ou pas ('FAUX').        */
     DEFV(CHAR,INIT(POINTERc(nom_image),NOM_UNDEF));
                                        /* Nom courant des images.                                                                   */
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));
                                        /* Nom de l'image nxn a generer.                                                             */

#include  xci/reduction.13.I"

     DEFV(Logical,INIT(moyennage,MOYENNAGE));
                                        /* Indique si l'on moyenne ('VRAI'), ou bien si l'on prend le 'MAXI' ('FAUX').               */
     DEFV(Logical,INIT(calculer_le_maximum,CALCULER_LE_MAXIMUM));
                                        /* Dans le cas ou il ne faut pas calculer la moyenne, indique s'il faut calculer le          */
                                        /* maximum ('VRAI') ou pas ('FAUX'), c'est-a-dire prendre le point courant...                */

     DEFV(Logical,INIT(compatibilite_20070824,COMPATIBILITE_20070824));
                                        /* Permet d'utiliser la procedure 'v $xci/reduction.02$I VERITABLE_PAS_DES_IMAGES' comme     */
                                        /* anterieurement au 20070824145514.                                                         */