/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E T U D E   D E   L A   P E R S I S T A N C E   M U L T I P L I C A T I V E                                                */
/*        E T   A D D I T I V E   D E S   N O M B R E S  :                                                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrk/PersMulti.01$K' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois COLONNA (LACTAMME, 20130531090408).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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
#include  maths_fonct_NOMBRES_EXT

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        P A R A M E T R E S  :                                                                                                     */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   PAS_INTER_NOMBRES                                                                                                             \
                    I                                                                                                                   \
                                        /* Pas de passage d'un nombre au suivant...                                                  */

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        M A C R O S   U T I L E S  :                                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        E T U D E   D E   L A   P E R S I S T A N C E   M U L T I P L I C A T I V E                                                */
/*        E T   A D D I T I V E   D E S   N O M B R E S  :                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
BCommande(nombre_d_arguments,arguments)
/*-----------------------------------------------------------------------------------------------------------------------------------*/
     Bblock
     DEFV(CHAR,INIC(POINTERc(nom_imageR),NOM_PIPE));

     DEFV(Positive,INIT(pas_inter_nombres,PAS_INTER_NOMBRES));
                                        /* Pas de passage d'un nombre au suivant...                                                  */
     /*..............................................................................................................................*/
     GET_ARGUMENTSi(nombre_d_arguments
                   ,BLOC(GET_ARGUMENT_C("imageR=""R=",nom_imageR);

                         GET_ARGUMENT_I("pas_inter_nombres=""pin=""pas=""p=",pas_inter_nombres);
                         GET_ARGUMENT_L("additive=""add="
                                       ,Ipersistance_multiplicative_des_nombres_entiers_____persistance_additive
                                        );
                                        /* Arguments introduits le 20130531105458 pour plus de generalite...                         */
                         GET_ARGUMENT_N("multiplicative=""mul="
                                       ,Ipersistance_multiplicative_des_nombres_entiers_____persistance_additive
                                        );
                                        /* Arguments introduits le 20130531105458 pour plus de generalite...                         */
                         GET_ARGUMENT_I("base=""b=",Ipersistance_multiplicative_des_nombres_entiers_____base_de_numeration);
                         GET_ARGUMENT_L("editer=""lister=""ed="
                                       ,Ipersistance_multiplicative_des_nombres_entiers_____editer_la_persistance_des_nombres_entiers
                                        );
                                        /* Arguments introduits le 20130531094340 a des fins de validation principalement...         */
                         GET_ARGUMENT_I("maximum_persistance=""mp="
                                       ,Ipersistance_multiplicative_des_nombres_entiers_____maximum_de_la_Persistance
                                        );
                         GET_ARGUMENT_L("persistance=""per="
                                       ,Ipersistance_multiplicative_des_nombres_entiers_____renvoyer_la_Persistance
                                        );
                         GET_ARGUMENT_N("cumul=""cum="
                                       ,Ipersistance_multiplicative_des_nombres_entiers_____renvoyer_la_Persistance
                                        );
                                        /* Arguments introduits le 20150113093820 pour pouvoir, par exemple, reperer les nombres     */
                                        /* qui initialement contiennent au moins un zero. Il suffit pour ce faire de prendre un      */
                                        /* maximum de la 'Persistance' egal a 0 et de ne pas renvoyer la 'Persistance' (et donc      */
                                        /* renvoyer le 'CumulMultiplicatif_ou_Additif')...                                           */
                         )
                    );

     CALi(Inoir(ImageR));

     CALS(Ipersistance_multiplicative_des_nombres_entiers(ImageR,INFINI,pas_inter_nombres));

     CALi(Iupdate_image(nom_imageR,ImageR));

     RETU_Commande;
     Eblock
ECommande