/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        O P E R A T I O N S   A R I T H M E T I Q U E S   S U R   D E S   F I C H I E R S  :                                       */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/ARITHMET.22$I' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1997??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D O N N E S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
     DEFV(Int,INIT(nombre_d_elements,NOMBRE_D_ELEMENTS));
                                        /* Nombre d'elements attendus a priori dans les fichiers.                                    */
     DEFV(Int,INIT(index,UNDEF));
                                        /* Index de l'element courant dans les fichiers. On notera (le 20011008144608) que 'index'   */
                                        /* pourrait etre deplace de '$xrv/ARITHMET.22.I' a '$xrv/ARITHMET.21$I' dans la procedure    */
                                        /* 'v $xrv/ARITHMET.21$I gOPERATION_SUR_LES_FICHIERS' pour la plupart des utilisations ;     */
                                        /* mais, malheureusement, certains fichiers ('v $xrv/distance.01$K') utilisent 'index'       */
                                        /* ailleurs que dans cette procedure...                                                      */

     DEFV(Logical,INIT(utiliser_le_format_exponentiel,UTILISER_LE_FORMAT_EXPONENTIEL));
                                        /* Faut-il sortir en format "%g" ('VRAI') ou en format "%f" ('FAUX'). Ceci a ete introduit   */
                                        /* afin de permettre d'extraire la partie entiere d'un nombre en supprimant simplement tout  */
                                        /* ce qui suit le point decimal avec '$SE'...                                                */