phynexis-deps/armadillo-code
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

definitions of xlangs and xgscon

Browse Source
This commit is contained in:
conrad
2020-12-22 00:10:03 +10:00
parent a84d443bc5
commit a8bf6364bd
2 changed files with 65 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/wrapper1.cpp
+52 -8
View File
@@ -1602,10 +1602,10 @@ extern "C"
{
zgstrf(a, b, c, d, e, f, g, h, i, j, k, l, m, n, o);
}
void wrapper_sgstrs(superlu::trans_t a, superlu::SuperMatrix* b, superlu::SuperMatrix* c, int* d, int* e, superlu::SuperMatrix* f, superlu::SuperLUStat_t* g, int* h)
{
sgstrs(a, b, c, d, e, f, g, h);
@@ -1625,10 +1625,54 @@ extern "C"
{
zgstrs(a, b, c, d, e, f, g, h);
}
float wrapper_slangs(char* norm, superlu::SuperMatrix* A)
{
return slangs(norm, A);
}
double wrapper_dlangs(char* norm, superlu::SuperMatrix* A);
{
return dlangs(norm, A);
}
float wrapper_clangs(char* norm, superlu::SuperMatrix* A);
{
return clangs(norm, A);
}
double wrapper_zlangs(char* norm, superlu::SuperMatrix* A);
{
return zlangs(norm, A);
}
void wrapper_sgscon(char* norm, superlu::SuperMatrix* L, superlu::SuperMatrix* U, float anorm, float* rcond, superlu::SuperLUStat_t* stat, int* info)
{
sgscon(norm, L, U, anorm, rcond, stat, info);
}
void wrapper_dgscon(char* norm, superlu::SuperMatrix* L, superlu::SuperMatrix* U, double anorm, double* rcond, superlu::SuperLUStat_t* stat, int* info)
{
dgscon(norm, L, U, anorm, rcond, stat, info);
}
void wrapper_cgscon(char* norm, superlu::SuperMatrix* L, superlu::SuperMatrix* U, float anorm, float* rcond, superlu::SuperLUStat_t* stat, int* info)
{
cgscon(norm, L, U, anorm, rcond, stat, info);
}
void wrapper_zgscon(char* norm, superlu::SuperMatrix* L, superlu::SuperMatrix* U, double anorm, double* rcond, superlu::SuperLUStat_t* stat, int* info)
{
zgscon(norm, L, U, anorm, rcond, stat, info);
}
void wrapper_StatInit(superlu::SuperLUStat_t* a)
{
StatInit(a);