00001 /* amax1 gives the maximum value of floating point numbers 00002 00003 Ver1.0 Apr.12,1988. */ 00004 00005 #include "arith.h" 00006 00007 REAL amax1(va_alist) 00008 va_dcl 00009 { 00010 va_list ap; 00011 int i,n; 00012 double max,x; 00013 00014 va_start(ap); 00015 00016 n=va_arg(ap, int); 00017 max=va_arg(ap, double); 00018 00019 for(i=0; i<n-1; i++){ 00020 x=va_arg(ap, double); 00021 if(x>max) 00022 max=x; 00023 } 00024 00025 return(max); 00026 00027 va_end(ap); 00028 } 00029 00030 00031 00032 00033 00034 00035 00036