/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        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.13$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)                                                                            \
-_-_-_-             Ca1e(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                                                                                                         \
-_-_-_-             ECa1
                                        /* Calcul de l'harmonique spherique locale pour un couple (l,m).                             */