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

/*===================================================================================================================================*/
/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        C O O R D O N N E E S   C U R V I L I G N E S  :                                                                           */
/*                                                                                                                                   */
/*************************************************************************************************************************************/
                                        /* Ce qui suit fut introduit suite a la modification 'v $xrs/surfaces.12$I 20060602134331'   */
                                        /* qui a permis de declarer {u,v} localement dans les 'FDoIn(...)' et non plus dans des      */
                                        /* fichiers du type 'v $xrs/sphere.14$I' comme c'etait le cas avant cette date...            */

DEFV(Local,DEFV(Float,INIT(u,FLOT__UNDEF)));
                                        /* Definition de la coordonnee parametrique 'u' de la surface (appelee aussi 'distance       */
                                        /* polaire' ou 'theta').                                                                     */
DEFV(Local,DEFV(Float,INIT(v,FLOT__UNDEF)));
                                        /* Definition de la coordonnee parametrique 'v' de la surface (appelee aussi 'longitude'     */
                                        /* ou 'phi').                                                                                */