/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        H O M O G E N E I S A T I O N   D ' U N E   L I S T E   A   P A R T I R   D E   L I S T E S   { X , Y , Z }  :             */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/homogene.01$K' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20070721192809).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        I N T E R F A C E   ' listG '  :                                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        :Debut_listG:                                                                                                              */
/*        :Fin_listG:                                                                                                                */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D I R E C T I V E S   S P E C I F I Q U E S   D E   C O M P I L A T I O N  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F I C H I E R S   D ' I N C L U D E S  :                                                                                   */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  INCLUDES_BASE

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V A L E U R S   I M P L I C I T E S   D E S   P A R A M E T R E S  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E S   F I C H I E R S  :                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   X_IMPLICITE                                                                                                                   \
                    FZERO
#define   Y_IMPLICITE                                                                                                                   \
                    FZERO
#define   Z_IMPLICITE                                                                                                                   \
                    FZERO

#define   VALEUR_IMPLICITE                                                                                                              \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_LISTE_X,liste_initiale_des_X);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Y,liste_initiale_des_Y);
gGENERATION_D_UN_FICHIER(fichier_LISTE_Z,liste_initiale_des_Z);

gGENERATION_D_UN_FICHIER(fichier_LISTE_VALEUR,liste_initiale_des_VALEURS);
                                        /* Definition en memoire des fichiers de coordonnees cartesiennes et des valeurs.            */

#define   ELEMENT_DU_FICHIER_LISTE_X(index)                                                                                             \
                    gELEMENT_DU_FICHIER(liste_initiale_des_X,index)
#define   ELEMENT_DU_FICHIER_LISTE_Y(index)                                                                                             \
                    gELEMENT_DU_FICHIER(liste_initiale_des_Y,index)
#define   ELEMENT_DU_FICHIER_LISTE_Z(index)                                                                                             \
                    gELEMENT_DU_FICHIER(liste_initiale_des_Z,index)

#define   ELEMENT_DU_FICHIER_LISTE_VALEUR(index)                                                                                        \
                    gELEMENT_DU_FICHIER(liste_initiale_des_VALEURS,index)
                                        /* Acces a un element courant des fichiers de coordonnees cartesiennes et des valeurs.       */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        H O M O G E N E I S A T I O N   D ' U N E   L I S T E   A   P A R T I R   D E   L I S T E S   { X , Y , Z }  :             */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"

#include  xrv/champs_5.13.I"

     DEFV(Int,INIT(index1,UNDEF));
                                        /* Definition de l'index "externe"...                                                        */
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"

     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(PROCESS_ARGUMENT_I("nombre_elements=""ne=",nombre_d_elements
                                           ,BLOC(VIDE;)
                                           ,BLOC(Bblock
                                                 PRINT_AVERTISSEMENT("'ne=' doit etre defini avant toute entree de fichiers");
                                                 Eblock
                                                 )
                                            );

                         PROCESS_ARGUMENTS_DE_DEFINITION_DES_FICHIERS_01;

                         PROKESF_ARGUMENT_FICHIER("LISTE_X="
                                                 ,fichier_LISTE_X
                                                 ,liste_initiale_des_X
                                                 ,X_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("LISTE_Y="
                                                 ,fichier_LISTE_Y
                                                 ,liste_initiale_des_Y
                                                 ,Y_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("LISTE_Z="
                                                 ,fichier_LISTE_Z
                                                 ,liste_initiale_des_Z
                                                 ,Z_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         PROKESF_ARGUMENT_FICHIER("LISTE_VALEUR="
                                                 ,fichier_LISTE_VALEUR
                                                 ,liste_initiale_des_VALEURS
                                                 ,VALEUR_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_5;
                                        /* Cette procedure fut introduite le 20211005105608...                                       */
                         )
                    );

     DoIn(index1
         ,PREMIER_ELEMENT_D_UN_FICHIER
         ,PRED(DERNIER_ELEMENT_D_UN_FICHIER)
         ,I
          )
          Bblock
          DEFV(Float,INIT(Xf1,ELEMENT_DU_FICHIER_LISTE_X(index1)));
          DEFV(Float,INIT(Yf1,ELEMENT_DU_FICHIER_LISTE_Y(index1)));
          DEFV(Float,INIT(Zf1,ELEMENT_DU_FICHIER_LISTE_Z(index1)));
          DEFV(Float,INIT(valeur1,ELEMENT_DU_FICHIER_LISTE_VALEUR(index1)));
                                        /* Valeurs "externes" au "point de reference".                                               */

          DEFV(Int,INIT(index2,UNDEF));
                                        /* Definition de l'index "interne"...                                                        */

          DoIn(index2
              ,SUCC(index1)
              ,DERNIER_ELEMENT_D_UN_FICHIER
              ,I
               )
               Bblock
               DEFV(Float,INIT(Xf2,ELEMENT_DU_FICHIER_LISTE_X(index2)));
               DEFV(Float,INIT(Yf2,ELEMENT_DU_FICHIER_LISTE_Y(index2)));
               DEFV(Float,INIT(Zf2,ELEMENT_DU_FICHIER_LISTE_Z(index2)));
               DEFV(Float,INIT(valeur2,ELEMENT_DU_FICHIER_LISTE_VALEUR(index2)));
                                        /* Valeurs "internes" au "point courant". On notera, au passage, que 'valeur2' ne sert       */
                                        /* a rien, mais c'est par symetrie (et on ne sait jamais...).                                */

               Test(I3ET(IFEQ(Xf2,Xf1)
                        ,IFEQ(Yf2,Yf1)
                        ,IFEQ(Yf2,Yf1)
                         )
                    )
                    Bblock
                    EGAL(ELEMENT_DU_FICHIER_LISTE_VALEUR(index2),valeur1);
                                        /* Lorsque le point courant {Xf2,Yf2,Zf2} est confondu avec le point de reference            */
                                        /* {Xf1,Yf1,Zf1}, alors le point courant {Xf2,Yf2,Zf2} doit avoir la meme valeur que         */
                                        /* le point de reference {Xf1,Yf1,Zf1}...                                                    */
                    Eblock
               ATes
                    Bblock
                    Eblock
               ETes
               Eblock
          EDoI
          Eblock
     EDoI

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(valeur,ELEMENT_DU_FICHIER_LISTE_VALEUR(index)));
                                        /* Recuperation des valeurs homogeneisees...                                                 */
                                      )
                                ,valeur
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );
                                        /* Renvoi des valeurs homogeneisees...                                                       */

     lGENERATION_D_UN_FICHIER(liste_initiale_des_VALEURS,VALEUR_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste_initiale_des_Z,Z_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste_initiale_des_Y,Y_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste_initiale_des_X,X_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande