| /dports/math/armadillo/armadillo-10.7.1/include/armadillo_bits/ |
| H A D | translate_superlu.hpp | 35 arma_wrapper(sgssv)(options, A, perm_c, perm_r, L, U, B, stat, info); in gssv()
40 arma_wrapper(dgssv)(options, A, perm_c, perm_r, L, U, B, stat, info); in gssv()
45 arma_wrapper(cgssv)(options, A, perm_c, perm_r, L, U, B, stat, info); in gssv()
50 arma_wrapper(zgssv)(options, A, perm_c, perm_r, L, U, B, stat, info); in gssv()
62 int* perm_c, int* perm_r, in gssvx() argument
110 int* perm_c, int* perm_r, in gstrf() argument
145 int* perm_c, int* perm_r, in gstrs() argument
153 arma_wrapper(sgstrs)(trans, L, U, perm_c, perm_r, B, stat, info); in gstrs()
158 arma_wrapper(dgstrs)(trans, L, U, perm_c, perm_r, B, stat, info); in gstrs()
163 arma_wrapper(cgstrs)(trans, L, U, perm_c, perm_r, B, stat, info); in gstrs()
[all …]
|
| /dports/math/R-cran-RcppArmadillo/RcppArmadillo/inst/include/armadillo_bits/ |
| H A D | translate_superlu.hpp | 35 arma_wrapper(sgssv)(options, A, perm_c, perm_r, L, U, B, stat, info); in gssv()
40 arma_wrapper(dgssv)(options, A, perm_c, perm_r, L, U, B, stat, info); in gssv()
45 arma_wrapper(cgssv)(options, A, perm_c, perm_r, L, U, B, stat, info); in gssv()
50 arma_wrapper(zgssv)(options, A, perm_c, perm_r, L, U, B, stat, info); in gssv()
62 int* perm_c, int* perm_r, in gssvx() argument
110 int* perm_c, int* perm_r, in gstrf() argument
145 int* perm_c, int* perm_r, in gstrs() argument
153 arma_wrapper(sgstrs)(trans, L, U, perm_c, perm_r, B, stat, info); in gstrs()
158 arma_wrapper(dgstrs)(trans, L, U, perm_c, perm_r, B, stat, info); in gstrs()
163 arma_wrapper(cgstrs)(trans, L, U, perm_c, perm_r, B, stat, info); in gstrs()
[all …]
|
| /dports/science/elmerfem/elmerfem-release-9.0/fem/src/ |
| H A D | SolveSuperLU.c | 26 int *perm_r; member
53 int *perm_r; /* row permutations from partial pivoting */ in FC_FUNC_() local
92 perm_r = intMalloc(*n); in FC_FUNC_()
106 diag_pivot_thresh, usepr, drop_tol, perm_c, perm_r, in FC_FUNC_()
109 pdgstrf(&options, &AC, perm_r, L, U, &stat, info); in FC_FUNC_()
132 LUfactors->perm_r = perm_r; in FC_FUNC_()
151 perm_r = LUfactors->perm_r; in FC_FUNC_()
156 dgstrs (trans, L, U, perm_r, perm_c, &B, &stat, info); in FC_FUNC_()
165 SUPERLU_FREE (LUfactors->perm_r); in FC_FUNC_()
|
| /dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/FORTRAN/ |
| H A D | c_fortran_dgssv.c | 21 int *perm_r; member
51 int *perm_r; /* row permutations from partial pivoting */ in c_fortran_dgssv_() local
81 if ( !(perm_r = intMalloc(*n)) ) ABORT("Malloc fails for perm_r[]."); in c_fortran_dgssv_()
101 NULL, 0, perm_c, perm_r, L, U, &stat, info); in c_fortran_dgssv_()
130 LUfactors->perm_r = perm_r; in c_fortran_dgssv_()
148 perm_r = LUfactors->perm_r; in c_fortran_dgssv_()
153 dgstrs (trans, L, U, perm_c, perm_r, &B, &stat, info); in c_fortran_dgssv_()
161 SUPERLU_FREE (LUfactors->perm_r); in c_fortran_dgssv_()
|
| H A D | c_fortran_sgssv.c | 21 int *perm_r; member
51 int *perm_r; /* row permutations from partial pivoting */ in c_fortran_sgssv_() local
81 if ( !(perm_r = intMalloc(*n)) ) ABORT("Malloc fails for perm_r[]."); in c_fortran_sgssv_()
101 NULL, 0, perm_c, perm_r, L, U, &stat, info); in c_fortran_sgssv_()
130 LUfactors->perm_r = perm_r; in c_fortran_sgssv_()
148 perm_r = LUfactors->perm_r; in c_fortran_sgssv_()
153 sgstrs (trans, L, U, perm_c, perm_r, &B, &stat, info); in c_fortran_sgssv_()
161 SUPERLU_FREE (LUfactors->perm_r); in c_fortran_sgssv_()
|
| H A D | c_fortran_cgssv.c | 21 int *perm_r; member
51 int *perm_r; /* row permutations from partial pivoting */ in c_fortran_cgssv_() local
81 if ( !(perm_r = intMalloc(*n)) ) ABORT("Malloc fails for perm_r[]."); in c_fortran_cgssv_()
101 NULL, 0, perm_c, perm_r, L, U, &stat, info); in c_fortran_cgssv_()
130 LUfactors->perm_r = perm_r; in c_fortran_cgssv_()
148 perm_r = LUfactors->perm_r; in c_fortran_cgssv_()
153 cgstrs (trans, L, U, perm_c, perm_r, &B, &stat, info); in c_fortran_cgssv_()
161 SUPERLU_FREE (LUfactors->perm_r); in c_fortran_cgssv_()
|
| H A D | c_fortran_zgssv.c | 21 int *perm_r; member
51 int *perm_r; /* row permutations from partial pivoting */ in c_fortran_zgssv_() local
81 if ( !(perm_r = intMalloc(*n)) ) ABORT("Malloc fails for perm_r[]."); in c_fortran_zgssv_()
101 NULL, 0, perm_c, perm_r, L, U, &stat, info); in c_fortran_zgssv_()
130 LUfactors->perm_r = perm_r; in c_fortran_zgssv_()
148 perm_r = LUfactors->perm_r; in c_fortran_zgssv_()
153 zgstrs (trans, L, U, perm_c, perm_r, &B, &stat, info); in c_fortran_zgssv_()
161 SUPERLU_FREE (LUfactors->perm_r); in c_fortran_zgssv_()
|
| /dports/math/superlu/superlu-5.2.2/FORTRAN/ |
| H A D | c_fortran_dgssv.c | 31 int *perm_r; member
61 int *perm_r; /* row permutations from partial pivoting */ in c_fortran_dgssv_() local
97 if ( !(perm_r = intMalloc(*n)) ) ABORT("Malloc fails for perm_r[]."); in c_fortran_dgssv_()
117 NULL, 0, perm_c, perm_r, L, U, &Glu, &stat, info); in c_fortran_dgssv_()
142 LUfactors->perm_r = perm_r; in c_fortran_dgssv_()
162 perm_r = LUfactors->perm_r; in c_fortran_dgssv_()
167 dgstrs (trans, L, U, perm_c, perm_r, &B, &stat, info); in c_fortran_dgssv_()
175 SUPERLU_FREE (LUfactors->perm_r); in c_fortran_dgssv_()
|
| H A D | c_fortran_zgssv.c | 31 int *perm_r; member
61 int *perm_r; /* row permutations from partial pivoting */ in c_fortran_zgssv_() local
97 if ( !(perm_r = intMalloc(*n)) ) ABORT("Malloc fails for perm_r[]."); in c_fortran_zgssv_()
117 NULL, 0, perm_c, perm_r, L, U, &Glu, &stat, info); in c_fortran_zgssv_()
142 LUfactors->perm_r = perm_r; in c_fortran_zgssv_()
162 perm_r = LUfactors->perm_r; in c_fortran_zgssv_()
167 zgstrs (trans, L, U, perm_c, perm_r, &B, &stat, info); in c_fortran_zgssv_()
175 SUPERLU_FREE (LUfactors->perm_r); in c_fortran_zgssv_()
|
| H A D | c_fortran_cgssv.c | 31 int *perm_r; member
61 int *perm_r; /* row permutations from partial pivoting */ in c_fortran_cgssv_() local
97 if ( !(perm_r = intMalloc(*n)) ) ABORT("Malloc fails for perm_r[]."); in c_fortran_cgssv_()
117 NULL, 0, perm_c, perm_r, L, U, &Glu, &stat, info); in c_fortran_cgssv_()
142 LUfactors->perm_r = perm_r; in c_fortran_cgssv_()
162 perm_r = LUfactors->perm_r; in c_fortran_cgssv_()
167 cgstrs (trans, L, U, perm_c, perm_r, &B, &stat, info); in c_fortran_cgssv_()
175 SUPERLU_FREE (LUfactors->perm_r); in c_fortran_cgssv_()
|
| H A D | c_fortran_sgssv.c | 31 int *perm_r; member
61 int *perm_r; /* row permutations from partial pivoting */ in c_fortran_sgssv_() local
97 if ( !(perm_r = intMalloc(*n)) ) ABORT("Malloc fails for perm_r[]."); in c_fortran_sgssv_()
117 NULL, 0, perm_c, perm_r, L, U, &Glu, &stat, info); in c_fortran_sgssv_()
142 LUfactors->perm_r = perm_r; in c_fortran_sgssv_()
162 perm_r = LUfactors->perm_r; in c_fortran_sgssv_()
167 sgstrs (trans, L, U, perm_c, perm_r, &B, &stat, info); in c_fortran_sgssv_()
175 SUPERLU_FREE (LUfactors->perm_r); in c_fortran_sgssv_()
|
| /dports/science/liggghts/LIGGGHTS-PUBLIC-3.8.0-26-g6e873439/lib/hotint/HotInt_V1/SuperLU/ |
| H A D | SuperLUmain.cpp | 110 int *perm_r; /* row permutations from partial pivoting */ in CallSuperLUSparseCol() local
127 if ( !(perm_r = intMalloc(ncols)) ) ABORT("Malloc fails for perm_r[]."); in CallSuperLUSparseCol()
138 dgssv(&options, &A, perm_c, perm_r, &L, &U, &B, &stat, &info); in CallSuperLUSparseCol()
159 SUPERLU_FREE (perm_r); in CallSuperLUSparseCol()
178 int *perm_r; /* row permutations from partial pivoting */ in CallSuperLUSparseRow() local
192 if ( !(perm_r = intMalloc(ncols)) ) ABORT("Malloc fails for perm_r[]."); in CallSuperLUSparseRow()
206 dgssv(&options, &A, perm_c, perm_r, &L, &U, &B, &stat, &info); in CallSuperLUSparseRow()
222 SUPERLU_FREE (perm_r); in CallSuperLUSparseRow()
247 SUPERLU_FREE (perm_r); in CallSuperLUFactorize()
287 dgssv(&options, A, perm_c, perm_r, L, U, &B, &stat, &info); in CallSuperLUFactorize()
[all …]
|
| /dports/math/arpack++/arpackpp-2.3.0/include/ |
| H A D | superluc.h | 29 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in gstrf() argument
35 panel_size,etree,work,lwork,perm_c,perm_r,L,U,&Glu,stat,info); in gstrf()
40 panel_size,etree,work,lwork,perm_c,perm_r,L,U,&Glu,stat,info); in gstrf()
46 panel_size,etree,work,lwork,perm_c,perm_r,L,U,&Glu,stat,info); in gstrf()
53 panel_size,etree,work,lwork,perm_c,perm_r,L,U,&Glu,stat,info); in gstrf()
61 int *perm_c, int *perm_r, SuperMatrix *B, SuperLUStat_t* stat, int *info) in gstrs() argument
65 dgstrs(trans,L,U,perm_c,perm_r,B,stat,info); in gstrs()
68 sgstrs(trans,L,U,perm_c,perm_r,B,stat,info); in gstrs()
72 zgstrs(trans,L,U,perm_c,perm_r,B,stat,info); in gstrs()
77 cgstrs(trans,L,U,perm_c,perm_r,B,stat,info); in gstrs()
|
| /dports/math/algae/algae-4.3.6/superlu/ |
| H A D | zgstrf.c | 30 void *work, int lwork, int *perm_r, int *perm_c, in zgstrf() argument
254 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in zgstrf()
264 ifill (perm_r, m, EMPTY); in zgstrf()
310 if ( *info = zpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in zgstrf()
337 zpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in zgstrf()
362 perm_r, &dense[k], &Glu)) != 0) in zgstrf()
365 if ( *info = zpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in zgstrf()
370 zpruneL(jj, perm_r, pivrow, nseg, segrep, in zgstrf()
393 if ( perm_r[i] == EMPTY ) { in zgstrf()
394 perm_r[i] = n + k; in zgstrf()
[all …]
|
| H A D | dgstrf.c | 30 void *work, int lwork, int *perm_r, int *perm_c, in dgstrf() argument
254 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in dgstrf()
264 ifill (perm_r, m, EMPTY); in dgstrf()
310 if ( *info = dpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in dgstrf()
337 dpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in dgstrf()
362 perm_r, &dense[k], &Glu)) != 0) in dgstrf()
365 if ( *info = dpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in dgstrf()
370 dpruneL(jj, perm_r, pivrow, nseg, segrep, in dgstrf()
393 if ( perm_r[i] == EMPTY ) { in dgstrf()
394 perm_r[i] = n + k; in dgstrf()
[all …]
|
| /dports/multimedia/opentoonz/opentoonz-1.5.0/thirdparty/superlu/SuperLU_4.1/SRC/ |
| H A D | zgstrf.c | 181 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in zgstrf() argument
252 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in zgstrf()
266 ifill (perm_r, m, EMPTY); in zgstrf()
312 if ( (*info = zpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in zgstrf()
339 zpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in zgstrf()
364 perm_r, &dense[k], &Glu)) != 0) in zgstrf()
367 if ( (*info = zpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in zgstrf()
372 zpruneL(jj, perm_r, pivrow, nseg, segrep, in zgstrf()
395 if ( perm_r[i] == EMPTY ) { in zgstrf()
396 perm_r[i] = n + k; in zgstrf()
[all …]
|
| H A D | sgstrf.c | 181 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in sgstrf() argument
252 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in sgstrf()
266 ifill (perm_r, m, EMPTY); in sgstrf()
312 if ( (*info = spivotL(icol, diag_pivot_thresh, &usepr, perm_r, in sgstrf()
339 spanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in sgstrf()
364 perm_r, &dense[k], &Glu)) != 0) in sgstrf()
367 if ( (*info = spivotL(jj, diag_pivot_thresh, &usepr, perm_r, in sgstrf()
372 spruneL(jj, perm_r, pivrow, nseg, segrep, in sgstrf()
395 if ( perm_r[i] == EMPTY ) { in sgstrf()
396 perm_r[i] = n + k; in sgstrf()
[all …]
|
| H A D | dgstrf.c | 180 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in dgstrf() argument
254 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in dgstrf()
268 ifill (perm_r, m, EMPTY); in dgstrf()
314 if ( (*info = dpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in dgstrf()
341 dpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in dgstrf()
366 perm_r, &dense[k], &Glu)) != 0) in dgstrf()
369 if ( (*info = dpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in dgstrf()
374 dpruneL(jj, perm_r, pivrow, nseg, segrep, in dgstrf()
397 if ( perm_r[i] == EMPTY ) { in dgstrf()
398 perm_r[i] = n + k; in dgstrf()
[all …]
|
| H A D | cgstrf.c | 181 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in cgstrf() argument
252 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in cgstrf()
266 ifill (perm_r, m, EMPTY); in cgstrf()
312 if ( (*info = cpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in cgstrf()
339 cpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in cgstrf()
364 perm_r, &dense[k], &Glu)) != 0) in cgstrf()
367 if ( (*info = cpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in cgstrf()
372 cpruneL(jj, perm_r, pivrow, nseg, segrep, in cgstrf()
395 if ( perm_r[i] == EMPTY ) { in cgstrf()
396 perm_r[i] = n + k; in cgstrf()
[all …]
|
| /dports/math/geogram/geogram-1.7.7/src/lib/third_party/numerics/SUPERLU/ |
| H A D | zgstrf.c | 204 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in zgstrf() argument
275 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in zgstrf()
289 ifill (perm_r, m, EMPTY); in zgstrf()
335 if ( (*info = zpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in zgstrf()
362 zpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in zgstrf()
387 perm_r, &dense[k], Glu)) != 0) in zgstrf()
390 if ( (*info = zpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in zgstrf()
395 zpruneL(jj, perm_r, pivrow, nseg, segrep, in zgstrf()
418 if ( perm_r[i] == EMPTY ) { in zgstrf()
419 perm_r[i] = n + k; in zgstrf()
[all …]
|
| H A D | cgstrf.c | 204 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in cgstrf() argument
275 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in cgstrf()
289 ifill (perm_r, m, EMPTY); in cgstrf()
335 if ( (*info = cpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in cgstrf()
362 cpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in cgstrf()
387 perm_r, &dense[k], Glu)) != 0) in cgstrf()
390 if ( (*info = cpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in cgstrf()
395 cpruneL(jj, perm_r, pivrow, nseg, segrep, in cgstrf()
418 if ( perm_r[i] == EMPTY ) { in cgstrf()
419 perm_r[i] = n + k; in cgstrf()
[all …]
|
| /dports/science/apbs/apbs-pdb2pqr-apbs-1.5-102-g500c1473/apbs/externals/fetk/punc/src/superlu/ |
| H A D | cgstrf.c | 186 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in cgstrf() argument
256 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in cgstrf()
270 ifill (perm_r, m, EMPTY); in cgstrf()
316 if ( (*info = cpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in cgstrf()
343 cpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in cgstrf()
368 perm_r, &dense[k], &Glu)) != 0) in cgstrf()
371 if ( (*info = cpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in cgstrf()
376 cpruneL(jj, perm_r, pivrow, nseg, segrep, in cgstrf()
399 if ( perm_r[i] == EMPTY ) { in cgstrf()
400 perm_r[i] = n + k; in cgstrf()
[all …]
|
| H A D | sgstrf.c | 186 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in sgstrf() argument
256 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in sgstrf()
270 ifill (perm_r, m, EMPTY); in sgstrf()
316 if ( (*info = spivotL(icol, diag_pivot_thresh, &usepr, perm_r, in sgstrf()
343 spanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in sgstrf()
368 perm_r, &dense[k], &Glu)) != 0) in sgstrf()
371 if ( (*info = spivotL(jj, diag_pivot_thresh, &usepr, perm_r, in sgstrf()
376 spruneL(jj, perm_r, pivrow, nseg, segrep, in sgstrf()
399 if ( perm_r[i] == EMPTY ) { in sgstrf()
400 perm_r[i] = n + k; in sgstrf()
[all …]
|
| H A D | zgstrf.c | 186 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in zgstrf() argument
256 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in zgstrf()
270 ifill (perm_r, m, EMPTY); in zgstrf()
316 if ( (*info = zpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in zgstrf()
343 zpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in zgstrf()
368 perm_r, &dense[k], &Glu)) != 0) in zgstrf()
371 if ( (*info = zpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in zgstrf()
376 zpruneL(jj, perm_r, pivrow, nseg, segrep, in zgstrf()
399 if ( perm_r[i] == EMPTY ) { in zgstrf()
400 perm_r[i] = n + k; in zgstrf()
[all …]
|
| H A D | dgstrf.c | 186 int *perm_c, int *perm_r, SuperMatrix *L, SuperMatrix *U, in dgstrf() argument
256 for (k = 0; k < m; ++k) iperm_r[perm_r[k]] = k; in dgstrf()
270 ifill (perm_r, m, EMPTY); in dgstrf()
316 if ( (*info = dpivotL(icol, diag_pivot_thresh, &usepr, perm_r, in dgstrf()
343 dpanel_dfs(m, panel_size, jcol, A, perm_r, &nseg1, in dgstrf()
368 perm_r, &dense[k], &Glu)) != 0) in dgstrf()
371 if ( (*info = dpivotL(jj, diag_pivot_thresh, &usepr, perm_r, in dgstrf()
376 dpruneL(jj, perm_r, pivrow, nseg, segrep, in dgstrf()
399 if ( perm_r[i] == EMPTY ) { in dgstrf()
400 perm_r[i] = n + k; in dgstrf()
[all …]
|