amax1.c
Go to the documentation of this file.
1 /* amax1 gives the maximum value of floating point numbers
2 
3  Ver1.0 Apr.12,1988. */
4 
5 #include "arith.h"
6 
7 REAL amax1(va_alist)
8 va_dcl
9 {
10  va_list ap;
11  int i,n;
12  double max,x;
13 
14  va_start(ap);
15 
16  n=va_arg(ap, int);
17  max=va_arg(ap, double);
18 
19  for(i=0; i<n-1; i++){
20  x=va_arg(ap, double);
21  if(x>max)
22  max=x;
23  }
24 
25  return(max);
26 
27  va_end(ap);
28 }
29 
30 
31 
32 
33 
34 
35 
36 
amax1
REAL amax1(va_alist)
Definition: amax1.c:7
arith.h
max
#define max(I1, I2)
Definition: eustags.c:134
REAL
double REAL
Definition: arith.h:25
n
GLfloat n[6][3]
Definition: cube.c:15


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 15 2023 02:06:42