/*************************************************************************************************************************************/
/*                                                                                                                                   */
/*        D E F I N I T I O N   D E   L A   F O N C T I O N   M O D U L O  :                                                         */
/*                                                                                                                                   */
/*                                                                                                                                   */
/*        Author of '$xrC/Fmodulo.01$vv$I' :                                                                                         */
/*                                                                                                                                   */
/*                    Jean-Francois Colonna (LACTAMME, 20130516094702).                                                              */
/*                                                                                                                                   */
/*************************************************************************************************************************************/

double    FonctionPrivee_Fmodulo(double x,double y)
          {
          long      int       quotient=DIVIf(x,y);

          return(SOUSf(x,MUL2f(quotient,y)));
          }