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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E   L ' A T O M E   D ' H Y D R O G E N E  :                                                       */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
#define   CONSTANTE_a                                                                                                                   \
                    PARAMETRE_R
DEFV(Local,DEFV(Float,INIT(constante_a,CONSTANTE_a)));
                                        /* Definition de la constante 'a'. En realite sa vraie valeur est :                          */
                                        /*                                                                                           */
                                        /*                       a                                                                   */
                                        /*                        0                                                                  */
                                        /*                  a = ----                                                                 */
                                        /*                       Z                                                                   */
                                        /*                                                                                           */
                                        /* ou 'a0' designe le rayon de l'orbite de Bohr...                                           */