/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   D E   L ' E D I T I O N   D E S   P A R A M E T R E S  :                                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrq/nucleon.Lg$I' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1994??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        F O N C T I O N S   G E N E R A L E S   D ' E D I T I O N   E V E N T U E L L E S   D E S   P A R A M E T R E S  :         */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   EDITER_LES_PARAMETRES                                                                                                         \
                    FAUX
DEFV(Local,DEFV(Logical,INIT(editer_les_parametres,EDITER_LES_PARAMETRES)));
                                        /* Indicateur disant si les parametres doivent etre edites ou pas...                         */
#define   PRINT_CONSTANTE(Nconstante,Vconstante)                                                                                        \
                    Bblock                                                                                                              \
                    CAL2(Prin2("%s=%g\n",Nconstante,FLOT(Vconstante)));                                                                 \
                    Eblock
#define   PRINT_PARAMETER_CHAR(variable)                                                                                                \
                    Bblock                                                                                                              \
                    CAL2(Prin1("variable=%s\n",variable));                                                                              \
                    Eblock
#define   PRINT_PARAMETER_genere_p(variable)                                                                                            \
                    Bblock                                                                                                              \
                    CAL2(Prin1("variable=%d\n",variable));                                                                              \
                    Eblock
#define   PRINT_PARAMETER_Int(variable)                                                                                                 \
                    Bblock                                                                                                              \
                    CAL2(Prin1("variable=%d\n",variable));                                                                              \
                    Eblock
#define   PRINT_PARAMETER_Logical(variable)                                                                                             \
                    Bblock                                                                                                              \
                    CAL2(Prin1("variable=%s\n",ETAT_LOGIQUE(variable)));                                                                \
                    Eblock
#define   PRINT_PARAMETER_Positive(variable)                                                                                            \
                    Bblock                                                                                                              \
                    CAL2(Prin1("variable=%d\n",variable));                                                                              \
                    Eblock
#define   PRINT_PARAMETER_Float(variable)                                                                                               \
                    Bblock                                                                                                              \
                    CAL2(Prin1("variable=%g\n",variable));                                                                              \
                    Eblock