1 #include "gsl_math.h"
2 #include "gsl_cblas.h"
3 #include "gsl_cblas__cblas.h"
4
5 #include "gsl_cblas__hypot.c"
6
7 void
cblas_ztrsm(const enum CBLAS_ORDER Order,const enum CBLAS_SIDE Side,const enum CBLAS_UPLO Uplo,const enum CBLAS_TRANSPOSE TransA,const enum CBLAS_DIAG Diag,const int M,const int N,const void * alpha,const void * A,const int lda,void * B,const int ldb)8 cblas_ztrsm (const enum CBLAS_ORDER Order, const enum CBLAS_SIDE Side,
9 const enum CBLAS_UPLO Uplo, const enum CBLAS_TRANSPOSE TransA,
10 const enum CBLAS_DIAG Diag, const int M, const int N,
11 const void *alpha, const void *A, const int lda, void *B,
12 const int ldb)
13 {
14 #define BASE double
15 #include "gsl_cblas__source_trsm_c.h"
16 #undef BASE
17 }
18