/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N S   D E   Q U E L Q U E S   P R O C E D U R E S   N E C E S S A I R E S                                */
/*        A   L ' E T U D E   D E   L ' A T O M E   D ' H Y D R O G E N E  :                                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrq/hydrogene.24$I' :                                                                                          */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1993??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        V A L I D A T I O N   D E S   O R D R E S  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#include  xrq/Hspherik.16.I"
#define   VALIDATION_DES_ORDRES_lmn                                                                                                     \
                    Bblock                                                                                                              \
                    VALIDATION_DES_ORDRES_lm;                                                                                           \
                                                                                                                                        \
                    Test(IFLT(ordre_n,ORDRE_n_01))                                                                                      \
                         Bblock                                                                                                         \
                         PRINT_ERREUR("l'ordre 'n' est trop petit, il prend une valeur egale a celle de 'ORDRE_n_01'");                 \
                         EGAL(ordre_n,ORDRE_n_01);                                                                                      \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                                                                                                                                        \
                    Test(IFGT(ordre_l,PRED(ordre_n)))                                                                                   \
                         Bblock                                                                                                         \
                         PRINT_ERREUR("l'ordre 'l' est superieur a l'ordre 'n-1', il prend une valeur egale a celle de 'n-1'");         \
                         EGAL(ordre_l,PRED(ordre_n));                                                                                   \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                    Eblock                                                                                                              \
                                        /* Validation des ordres (l,m,n).                                                            */