diff options
| author | Maho Nakata <maho@FreeBSD.org> | 2006-02-13 02:45:09 +0000 |
|---|---|---|
| committer | Maho Nakata <maho@FreeBSD.org> | 2006-02-13 02:45:09 +0000 |
| commit | 5c117904635b0940f0f4aef0c758ae46080c3c00 (patch) | |
| tree | 527032b14b32c1d85024e2bd17b07e846514df85 /cad/tochnog/files/patch-so_suplu.c | |
| parent | Update to 20060201 version of SuperLU (diff) | |
o Update to tochnog accodingly (by version up of superlu)
o cleanup
PR: 92782
Submitted by: Pedro F.Giffuni <giffunip@asme.org>
Notes
Notes:
svn path=/head/; revision=155889
Diffstat (limited to 'cad/tochnog/files/patch-so_suplu.c')
| -rw-r--r-- | cad/tochnog/files/patch-so_suplu.c | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/cad/tochnog/files/patch-so_suplu.c b/cad/tochnog/files/patch-so_suplu.c new file mode 100644 index 000000000000..e865ccc3b0ff --- /dev/null +++ b/cad/tochnog/files/patch-so_suplu.c @@ -0,0 +1,43 @@ +--- so_suplu.c.orig Thu Nov 9 15:59:39 2000 ++++ so_suplu.c Sat Feb 4 20:21:59 2006 +@@ -22,14 +22,16 @@ + #if ( SUPERLU_USE || SUPERLU_MT_USE || SUPERLU_DIST_USE ) + + #if SUPERLU_USE +-#include "dsp_defs.h" ++#include "slu_ddefs.h" + #elif SUPERLU_MT_USE ++#include "util.h" + #include "pdsp_defs.h" + #elif SUPERLU_DIST_USE + #include <math.h> ++#include "superlu_util.h" + #include "superlu_ddefs.h" + #endif +-#include "util.h" ++ + + long int solve_superlu( double *superlu_A, int *superlu_asub, + int *superlu_xa, int superlu_nnz, double solve_b[], long int solve_nlocal, +@@ -53,6 +55,10 @@ + int *perm_r, *perm_c; + int perm_spec; + int nrhs; ++#if SUPERLU_USE ++ SuperLUStat_t stat; ++ superlu_options_t options; ++#endif + #endif + + /* Create Matrix A in the format expected by SuperLU */ +@@ -103,7 +109,9 @@ + + /* Solve */ + #if SUPERLU_USE +- dgssv( &A, perm_c, perm_r, &L, &U, &B, &info ); ++ /* Initialize the statistics variables. */ ++ StatInit(&stat); ++ dgssv(&options, &A, perm_c, perm_r, &L, &U, &B, &stat, &info ); + #elif SUPERLU_MT_USE + pdgssv( nthread, &A, perm_c, perm_r, &L, &U, &B, &info ); + #elif SUPERLU_DIST_USE |