/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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/Hspherik.16$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  :                                                                               */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   VALIDATION_DES_ORDRES_lm                                                                                                      \
                    Bblock                                                                                                              \
                    Test(IFLT(ordre_l,ORDRE_l_00))                                                                                      \
                         Bblock                                                                                                         \
                         PRINT_ERREUR("l'ordre 'l' est trop petit, il prend une valeur egale a celle de 'ORDRE_l_00'");                 \
                         EGAL(ordre_l,ORDRE_l_00);                                                                                      \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                                                                                                                                        \
                    Test(IFLT(ordre_m,ORDRE_m_00))                                                                                      \
                         Bblock                                                                                                         \
                         PRINT_ERREUR("l'ordre 'm' est trop petit, il prend une valeur egale a celle de 'ORDRE_m_00'");                 \
                         EGAL(ordre_m,ORDRE_m_00);                                                                                      \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                                                                                                                                        \
                    Test(IFGT(ordre_m,ordre_l))                                                                                         \
                         Bblock                                                                                                         \
                         PRINT_ERREUR("l'ordre 'm' est superieur a l'ordre 'l', il prend une valeur egale a celle de 'l'");             \
                         EGAL(ordre_m,ordre_l);                                                                                         \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                    Eblock                                                                                                              \
                                        /* Validation des ordres (l,m).                                                              */