| 993 | /******************************************************************************/ |
| 994 | |
| 995 | double r8_max ( double x, double y ) |
| 996 | |
| 997 | /******************************************************************************/ |
| 998 | /* |
| 999 | Purpose: |
| 1000 | |
| 1001 | R8_MAX returns the maximum of two R8's. |
| 1002 | |
| 1003 | Modified: |
| 1004 | |
| 1005 | 18 August 2004 |
| 1006 | |
| 1007 | Author: |
| 1008 | |
| 1009 | John Burkardt |
| 1010 | |
| 1011 | Parameters: |
| 1012 | |
| 1013 | Input, double X, Y, the quantities to compare. |
| 1014 | |
| 1015 | Output, double R8_MAX, the maximum of X and Y. |
| 1016 | */ |
| 1017 | { |
| 1018 | double value; |
| 1019 | |
| 1020 | if ( y < x ) |
| 1021 | { |
| 1022 | value = x; |
| 1023 | } |
| 1024 | else |
| 1025 | { |
| 1026 | value = y; |
| 1027 | } |
| 1028 | return value; |
| 1029 | } |
| 1030 | /******************************************************************************/ |
| 1031 | |
| 1032 | double r8_random ( int iseed[4] ) |