1 #include "gsl_math.h"
2 #include "gsl_cblas.h"
3 #include "gsl_cblas__cblas.h"
4 
5 CBLAS_INDEX
cblas_isamax(const int N,const float * X,const int incX)6 cblas_isamax (const int N, const float *X, const int incX)
7 {
8 #define BASE float
9 #include "gsl_cblas__source_iamax_r.h"
10 #undef BASE
11 }
12