/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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.23$I' :                                                                                           */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 1993??????????).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C A L C U L   L O C A L   D ' U N E   H A R M O N I Q U E   S P H E R I Q U E  :                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   CALCUL_D_UNE_HARMONIQUE_SPHERIQUE(ordre_l,ordre_m)                                                                            \
                    Bblock                                                                                                              \
                    HARMONIQUES_SPHERIQUES_R(Reelle(harmonique_spherique)                                                               \
                                            ,THETA,PHI                                                                                  \
                                            ,ordre_l,ordre_m                                                                            \
                                             );                                                                                         \
                    Test(IL_FAUT(calculer_aussi_la_partie_Imaginaire))                                                                  \
                         Bblock                                                                                                         \
                         HARMONIQUES_SPHERIQUES_I(Imaginaire(harmonique_spherique)                                                      \
                                                 ,THETA,PHI                                                                             \
                                                 ,ordre_l,ordre_m                                                                       \
                                                  );                                                                                    \
                         Eblock                                                                                                         \
                    ATes                                                                                                                \
                         Bblock                                                                                                         \
                         EGAL(Imaginaire(harmonique_spherique),FZERO);                                                                  \
                                        /* Lorsque la partie Imaginaire n'est pas demandee, on lui donne une valeur nulle...         */ \
                         Eblock                                                                                                         \
                    ETes                                                                                                                \
                    Eblock                                                                                                              \
                                        /* Calcul de l'harmonique spherique locale pour un couple (l,m).                             */