/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   D E   L A   T R A C E   " E C R I T E "   D E S   E V E N E M E N T S  :                           */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrq/nucleon.LF$I' :                                                                                            */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1991??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        T R A C E   " E C R I T E "   D E S   E V E N E M E N T S  :                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   TRACER_LES_EVENEMENTS                                                                                                         \
                    FAUX
DEFV(Local,DEFV(Logical,INIT(tracer_les_evenements,TRACER_LES_EVENEMENTS)));
                                        /* Indique s'il faut ('VRAI') ou pas  ('FAUX') tracer les evenements.                        */
#define   TRACE_D_UN_EVENEMENT(sequence_de_trace)                                                                                       \
                    Bblock                                                                                                              \
                    Test(IL_FAUT(tracer_les_evenements))                                                                                \
                         Bblock                                                                                                         \
                         CAL2(Prin2("Trace (n=%06d,t=%e) : \n",numero_de_la_periode_courante,temps_courant));                           \
                         BLOC(CALS(sequence_de_trace););                                                                                \
                                        /* Trace de l'evenement...                                                                   */ \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                    Eblock                                                                                                              \
                                        /* Trace d'un evenement particulier...                                                       */