1 #include "gsl_math.h"
2 #include "gsl_cblas.h"
3 #include "gsl_cblas__cblas.h"
4 
5 void
cblas_dsyr(const enum CBLAS_ORDER order,const enum CBLAS_UPLO Uplo,const int N,const double alpha,const double * X,const int incX,double * A,const int lda)6 cblas_dsyr (const enum CBLAS_ORDER order, const enum CBLAS_UPLO Uplo,
7             const int N, const double alpha, const double *X, const int incX,
8             double *A, const int lda)
9 {
10 #define BASE double
11 #include "gsl_cblas__source_syr.h"
12 #undef BASE
13 }
14