/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        A C C E S   A U X   L I S T E S   D E   S U B S T I T U T I O N  :                                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xci/substitue.03$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20021005211912).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

     DEFV(CHAR,INIT(POINTERc(nom_substitution),NOM_SUBSTITUTION));
                                        /* Nom de la liste de substitution recherchee.                                               */
     DEFV(CHAR,INIC(POINTERc(nom_paletteA),NOM_PIPE));
                                        /* Nom de la palette Argument a utiliser au cas ou la 'substitution_courante' serait         */
                                        /* 'L_SUBSTITUTION_ROUGE', 'L_SUBSTITUTION_VERTE' ou encore 'L_SUBSTITUTION_BLEUE'.          */
     DEFV(genere_p,INIT(seuil_bas,SEUIL_BAS));
                                        /* Seuil bas de troncation,                                                                  */
     DEFV(genere_p,INIT(seuil_haut,SEUIL_HAUT));
                                        /* Seuil haut de troncation,                                                                 */
     DEFV(Int,INIT(substitution_courante,SUBSTITUTION_COURANTE));
                                        /* A priori, on ne substitue pas...                                                          */