# include <math.h>
# include <stdio.h>
# include <stdlib.h>

# include "asa091.h"

/******************************************************************************/

double r8_min ( double x, double y )

/******************************************************************************/
/*
  Purpose:

    r8_min() returns the minimum of two R8's.

  Licensing:

    This code is distributed under the MIT license. 

  Modified:

    31 August 2004

  Author:

    John Burkardt

  Parameters:

    Input, double X, Y, the quantities to compare.

    Output, double R8_MIN, the minimum of X and Y.
*/
{
  double value;

  if ( y < x )
  {
    value = y;
  } 
  else
  {
    value = x;
  }
  return value;
}