void __ddot_sub__(const int* N, double* X, const int* incX, double* Y, const int* incY, double* dot) { *dot = EigenFunc_ddot(INTCAST(N), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(Y), INTCAST(incY)); }
void __idamax_sub__(const int* N, double* X, const int* incX, int* iamax) { *iamax = EigenFunc_idamax(INTCAST(N), DOUBLECAST(X), INTCAST(incX)); }
void __zherk__(char* Uplo, char* Trans, const int* N, const int* K, const double* alpha, const void* A, const int* lda, const double* beta, void* C, const int* ldc) { EigenFunc_zherk(Uplo, Trans, INTCAST(N), INTCAST(K), DOUBLECAST(alpha), VDOUBLECAST(A), INTCAST(lda), DOUBLECAST(beta), RDOUBLECAST(C), INTCAST(ldc)); }
void __dtrsm__(char* Side, char* Uplo, char* TransA, char* Diag, const int* M, const int* N, const double* alpha, const double* A, const int* lda, double* B, const int* ldb) { EigenFunc_dtrsm(Side, Uplo, TransA, Diag, INTCAST(M), INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(A), INTCAST(lda), DOUBLECAST(B), INTCAST(ldb)); }
void __drotg__(double* a, double* b, double* c, double* s) { EigenFunc_drotg(DOUBLECAST(a), DOUBLECAST(b), DOUBLECAST(c), DOUBLECAST(s)); }
void __dscal__(const int* N, const double* alpha, double* X, const int* incX) { EigenFunc_dscal(INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(X), INTCAST(incX)); }
void __dspr__(char* Uplo, const int* N, const double* alpha, const double* X, const int* incX, double* Ap) { EigenFunc_dspr(Uplo, INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(Ap)); }
void __dswap__(const int* N, double* X, const int* incX, double* Y, const int* incY) { EigenFunc_dswap(INTCAST(N), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(Y), INTCAST(incY)); }
void __dsymv__(char* Uplo, const int* N, const double* alpha, const double* A, const int* lda, const double* X, const int* incX, const double* beta, double* Y, const int* incY) { EigenFunc_dsymv(Uplo, INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(A), INTCAST(lda), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(beta), DOUBLECAST(Y), INTCAST(incY)); }
void __dger__(const int* M, const int* N, const double* alpha, const double* X, const int* incX, const double* Y, const int* incY, double* A, const int* lda) { EigenFunc_dger(INTCAST(M), INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(Y), INTCAST(incY), DOUBLECAST(A), INTCAST(lda)); }
void __dtpsv__(char* Uplo, char* TransA, char* Diag, const int* N, const double* Ap, double* X, const int* incX) { EigenFunc_dtpsv(Uplo, TransA, Diag, INTCAST(N), DOUBLECAST(Ap), DOUBLECAST(X), INTCAST(incX)); }
void __dtbsv__(char* Uplo, char* TransA, char* Diag, const int* N, const int* K, const double* A, const int* lda, double* X, const int* incX) { EigenFunc_dtbsv(Uplo, TransA, Diag, INTCAST(N), INTCAST(K), DOUBLECAST(A), INTCAST(lda), DOUBLECAST(X), INTCAST(incX)); }
void cblas_zdrot(const int N, void* X, const int incX, void* Y, const int incY, const double c, const double s) { EigenFunc_zdrot(INTCAST(&N), VDOUBLECAST(X), INTCAST(&incX), VDOUBLECAST(Y), INTCAST(&incY), DOUBLECAST(&c), DOUBLECAST(&s)); }
void __dasum_sub__(const int* N, const double* X, const int* incX, double* asum) { *asum = EigenFunc_dasum(INTCAST(N), DOUBLECAST(X), INTCAST(incX)); }
void __dspr2__(char* Uplo, const int* N, const double* alpha, const double* X, const int* incX, const double* Y, const int* incY, double* A) { EigenFunc_dspr2(Uplo, INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(Y), INTCAST(incY), DOUBLECAST(A)); }
void __dnrm2_sub__(const int* N, double* X, const int* incX, double* nrm2) { *nrm2 = EigenFunc_dnrm2(INTCAST(N), DOUBLECAST(X), INTCAST(incX)); }
void __dgemm__(char* TransA, char* TransB, const int* M, const int* N, const int* K, const double* alpha, const double* A, const int* lda, const double* B, const int* ldb, const double* beta, double* C, const int* ldc) { EigenFunc_dgemm(TransA, TransB, INTCAST(M), INTCAST(N), INTCAST(K), DOUBLECAST(alpha), DOUBLECAST(A), INTCAST(lda), DOUBLECAST(B), INTCAST(ldb), DOUBLECAST(beta), DOUBLECAST(C), INTCAST(ldc)); }
void __daxpy__(const int* N, const double* alpha, const double* X, const int* incX, double* Y, const int* incY) { EigenFunc_daxpy(INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(Y), INTCAST(incY)); }
void __dsymm__(char* Side, char* Uplo, const int* M, const int* N, const double* alpha, const double* A, const int* lda, const double* B, const int* ldb, const double* beta, double* C, const int* ldc) { EigenFunc_dsymm(Side, Uplo, INTCAST(M), INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(A), INTCAST(lda), DOUBLECAST(B), INTCAST(ldb), DOUBLECAST(beta), DOUBLECAST(C), INTCAST(ldc)); }
void __drot__(const int* N, double* X, const int* incX, double* Y, const int* incY, const double* c, const double* s) { EigenFunc_drot(INTCAST(N), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(Y), INTCAST(incY), DOUBLECAST(c), DOUBLECAST(s)); }
void __dsyr2k__(char* Uplo, char* Trans, const int* N, const int* K, const double* alpha, const double* A, const int* lda, const double* B, const int* ldb, const double* beta, double* C, const int* ldc) { EigenFunc_dsyr2k(Uplo, Trans, INTCAST(N), INTCAST(K), DOUBLECAST(alpha), DOUBLECAST(A), INTCAST(lda), DOUBLECAST(B), INTCAST(ldb), DOUBLECAST(beta), DOUBLECAST(C), INTCAST(ldc)); }
void __dgemv__(char* TransA, const int* M, const int* N, const double* alpha, const double* A, const int* lda, const double* X, const int* incX, const double* beta, double* Y, const int* incY) { EigenFunc_dgemv(TransA, INTCAST(M), INTCAST(N), DOUBLECAST(alpha), DOUBLECAST(A), INTCAST(lda), DOUBLECAST(X), INTCAST(incX), DOUBLECAST(beta), DOUBLECAST(Y), INTCAST(incY)); }
void __zhpr__(char* Uplo, const int* N, const double* alpha, const void* X, const int* incX, void* A) { EigenFunc_zhpr(Uplo, INTCAST(N), DOUBLECAST(alpha), VDOUBLECAST(X), INTCAST(incX), RDOUBLECAST(A)); }