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