/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        S O M M E   D E   D E U X   F I C H I E R S   N U M E R I Q U E S  :                                                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/ADD2.11$K' :                                                                                               */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 1997??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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  :                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
@define   PRAGMA_CL_____PAS_DE_LIBRAIRIES_DYNAMIQUES
                                        /* Le 20060516133415, je note que l'on pourrait mettre ici :                                 */
                                        /*                                                                                           */
                                        /*                  @define   PRAGMA_CL_____PAS_DE_LIBRAIRIES_DYNAMIQUES                     */
                                        /*                                                                                           */
                                        /* a cause de l'usage qui en est fait dans 'v $xcg/LArgTypFo$vv$Z .xrv.ADD2.11.X'. Ceci      */
                                        /* fut introduit le 20060516120132 lors des transferts qui ont ete effectues entre           */
                                        /* 'v $xiii/vecteurs$FON 20060516114214' et 'v $xiii/Images$STR 20060516091854'. En effet,   */
                                        /* avant d'effectuer ce transfert vital, la commande 'v $xcg/gen$EXT$Z .xcg.LArgTypFo.vv.Z'  */
                                        /* etait interrompue par un defaut dans '$xrv/ADD2.11$X', commande qui ne pouvait plus       */
                                        /* s'executer car 'rapport_de_zoom_cumule_courant' etait necessaire au chargement de         */
                                        /* '$xbii/mono_image$SO' alors que '$xrv/ADD2.11$X' ne charge pas 'image_image_VECTEURS_EXT' */
                                        /* alors qu'il aurait ete necessaire pour 'rapport_de_zoom_cumule_courant'. Tout ceci etant  */
                                        /* du aux modifications 'v $xiii/mono_image$FON TRANSFORMATION_GEOMETRIQUE_3D_F.'...         */
                                        /* Il est donc plus prudent de compiler ce '$K' dans ce mode. En fait, le 20060516133415,    */
                                        /* je reviens en arriere car definir ici un '$K' de '$xrv' n'est pas tres "coherent"...      */
                                        /*                                                                                           */
                                        /* Finalement, le 20061114111321, je le retabli a cause des modifications                    */
                                        /* 'v $xau/LACT16.B1.modifier.S rapport_de_zoom_cumule_courant' via 'v $xau/LACT16.B2$Z'...  */
                                        /* D'une facon generale etant donne l'usage 'v $xcg/LArgTypFo$vv$Z .xrv.ADD2.11.X' et        */
                                        /* malgre sa presence dans '$xrv', le mode 'PRAGMA_CL_____PAS_DE_LIBRAIRIES_DYNAMIQUES' lui  */
                                        /* essentiel afin de ne pas rendre impossible les compilations dans certaines circonstances  */
                                        /* est (absence d'un certain 'Common' qui lui est necessaire en particulier...).             */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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"
                                        /* Passage a l'allocation dynamique le 20060214132914...                                     */
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   VALEUR_1_IMPLICITE                                                                                                            \
                    FZERO
#define   VALEUR_2_IMPLICITE                                                                                                            \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier1_des_valeurs,liste1_des_valeurs);
gGENERATION_D_UN_FICHIER(fichier2_des_valeurs,liste2_des_valeurs);
                                        /* Definition en memoire des fichiers.                                                       */

#define   ELEMENT_DU_FICHIER1(index)                                                                                                    \
                    gELEMENT_DU_FICHIER(liste1_des_valeurs,index)
#define   ELEMENT_DU_FICHIER2(index)                                                                                                    \
                    gELEMENT_DU_FICHIER(liste2_des_valeurs,index)
                                        /* Acces a un element courant des fichiers.                                                  */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        S O M M E   D E   D E U X   F I C H I E R S   N U M E R I Q U E S  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"
                                        /* Ceci fut introduit le 20070103170140...                                                   */

     GET_ARGUMENTS_(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("fichier1="
                                                 ,fichier1_des_valeurs
                                                 ,liste1_des_valeurs
                                                 ,VALEUR_1_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("fichier2="
                                                 ,fichier2_des_valeurs
                                                 ,liste2_des_valeurs
                                                 ,VALEUR_2_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_3;
                                        /* Cette procedure fut introduite le 20070103170140...                                       */

                         PROCESS_ARGUMENTS_DE_PARAMETRAGE_DE_LA_GENERATION_DE_SUITE_DE_VALEURS_1;
                                        /* Cette procedure fut introduite le 20061226190230...                                       */

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

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(valeur1_courante,ELEMENT_DU_FICHIER1(index)));
                                      DEFV(Float,INIT(valeur2_courante,ELEMENT_DU_FICHIER2(index)));
                                        /* Recuperation des valeurs courantes dans les fichiers.                                     */
                                      )
                                ,ADD2(valeur1_courante,valeur2_courante)
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );
                                        /* Somme des deux fichiers arguments.                                                        */

     lGENERATION_D_UN_FICHIER(liste2_des_valeurs,VALEUR_2_IMPLICITE);
     lGENERATION_D_UN_FICHIER(liste1_des_valeurs,VALEUR_1_IMPLICITE);

     RETU_Commande;
     Eblock
ECommande