/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F O N C T I O N   ' F A M M A '   D ' U N   F I C H I E R   N U M E R I Q U E  :                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrv/famma.01$K' :                                                                                              */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20160719144330).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   PONDERATION_REELLE____                                                                                                        \
                    FU
#define   PONDERATION_IMAGINAIRE                                                                                                        \
                    FZERO
                                        /* Ponderation de selection des parties reelles ou imaginaires.                              */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D U   F I C H I E R  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrv/ARITHMET.1d.I"
                                        /* Passage a l'allocation dynamique le 20060214181159...                                     */
#include  xrv/ARITHMET.21.I"
#include  xrv/champs_5.41.I"

#define   PARTIE_REELLE_____IMPLICITE                                                                                                   \
                    FU
#define   PARTIE_IMAGINAIRE_IMPLICITE                                                                                                   \
                    FZERO

gGENERATION_D_UN_FICHIER(fichier_des_parties_reelles____,liste_des_parties_reelles____);
gGENERATION_D_UN_FICHIER(fichier_des_parties_imaginaires,liste_des_parties_imaginaires);
                                        /* Definition en memoire des fichiers parties reelles et imaginaires...                      */

#define   ELEMENT_DU_FICHIER_DES_PARTIE_REELLES____(index)                                                                              \
                    gELEMENT_DU_FICHIER(liste_des_parties_reelles____,index)
#define   ELEMENT_DU_FICHIER_DES_PARTIE_IMAGINAIRES(index)                                                                              \
                    gELEMENT_DU_FICHIER(liste_des_parties_imaginaires,index)
                                        /* Acces a un element courant des fichiers parties reelles et imaginaires...                 */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F O N C T I O N   ' F A M M A '   D ' U N   F I C H I E R   N U M E R I Q U E  :                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
#include  xrv/ARITHMET.22.I"
#include  xci/valeurs.03.I"

     DEFV(Float,INIT(ponderation_reelle____,PONDERATION_REELLE____));
     DEFV(Float,INIT(ponderation_imaginaire,PONDERATION_IMAGINAIRE));
                                        /* Ponderation de selection des parties reelles ou imaginaires.                              */
     /*..............................................................................................................................*/
#include  xrv/champs_5.1A.I"

     EGAL(nombre_de_chiffres_des_editions_flottantes,ABSO(LO1X(fFCfamma_sommation_Euler_MacLaurin_____precision_du_calcul)));
                                        /* Afin de rendre a priori compatible la precision des valeurs editees avec celle du calcul. */

     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("fichier_reel=""reel="
                                                 ,fichier_des_parties_reelles____
                                                 ,liste_des_parties_reelles____
                                                 ,PARTIE_REELLE_____IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );
                         PROKESF_ARGUMENT_FICHIER("fichier_imaginaire=""imaginaire="
                                                 ,fichier_des_parties_imaginaires
                                                 ,liste_des_parties_imaginaires
                                                 ,PARTIE_IMAGINAIRE_IMPLICITE
                                                 ,lTRANSFORMAT_0d
                                                 ,iGENERATION_D_UN_FICHIER
                                                  );

                         GET_ARGUMENT_F("precision=""p=",fFCfamma_sommation_Euler_MacLaurin_____precision_du_calcul);
                                        /* On n'oubliera pas l'option :                                                              */
                                        /*                                                                                           */
                                        /*                  ChiffresFlot=...                                                         */
                                        /*                                                                                           */
                                        /* qui permet de definir la precision des sorties...                                         */

                         GET_ARGUMENT_F("pReelle=""pr=""Pond1=",ponderation_reelle____);
                         GET_ARGUMENT_F("pImaginaire=""pi=""Pond2=",ponderation_imaginaire);

                         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 20211005105547...                                       */
                         )
                    );

     gOPERATION_SUR_LES_FICHIERS(BLOC(
                                      DEFV(Float,INIT(partie_reelle______courante,ELEMENT_DU_FICHIER_DES_PARTIE_REELLES____(index)));
                                      DEFV(Float,INIT(partie_imaginaire__courante,ELEMENT_DU_FICHIER_DES_PARTIE_IMAGINAIRES(index)));
                                        /* Recuperation des parties reelles et imaginaires courantes dans les fichiers.              */
                                      DEFV(complexe,nombre);
                                      DEFV(complexe,famma_de_nombre);
                                        /* Nombre complexe dont on veut la factorielle generalisee...                                */

                                      Cinitialisation(nombre,partie_reelle______courante,partie_imaginaire__courante);
                                      Cegal(famma_de_nombre,fFCfamma_sommation_Euler_MacLaurin(nombre));
                                      )
                                ,LIZ2(ponderation_reelle____,Reelle(famma_de_nombre)
                                     ,ponderation_imaginaire,Imaginaire(famma_de_nombre)
                                      )
                                ,EDITER_LA_VALEUR_RESULTANTE_DANS_gOPERATION_SUR_LES_FICHIERS
                                ,nombre_d_exemplaires_du_resultat_de_l_operation_sur_les_valeurs_courantes
                                 );
                                        /* Fonction 'famma(...)' du fichier argument (partie Reelle evidemment...).                  */

     lGENERATION_D_UN_FICHIER(liste_des_parties_reelles____,PARTIE_REELLE_____IMPLICITE);

     RETU_Commande;
     Eblock
ECommande