/[escript]/trunk/paso/src/MKL.h
ViewVC logotype

Contents of /trunk/paso/src/MKL.h

Parent Directory Parent Directory | Revision Log Revision Log


Revision 584 - (show annotations)
Thu Mar 9 23:03:38 2006 UTC (13 years, 1 month ago) by gross
File MIME type: text/plain
File size: 1231 byte(s)
eigenvalues: compiles and passes tests on altix now
1 /* $Id$ */
2
3 /**************************************************************/
4
5 /* Paso: SystemMatrix: interface to intel MKL sparse solver */
6
7 /**************************************************************/
8
9 /* Copyrights by ACcESS Australia 2006 */
10 /* Author: gross@access.edu.au */
11
12 /**************************************************************/
13
14 #ifndef INC_PASO_MKL
15 #define INC_PASO_MKL
16
17 #include "SystemMatrix.h"
18 #include "performance.h"
19
20 # if defined(_WIN32) || defined(_WIN64)
21 #define PARDISO pardiso
22 #else
23 #define PARDISO pardiso_
24 #endif
25
26 #ifdef MKL
27 #include "mkl_solver.h"
28 #endif
29
30
31 #define MKL_ERROR_NO 0
32 #define MKL_MTYPE_SYM -2
33 #define MKL_MTYPE_UNSYM 11
34
35 #define MKL_REORDERING_MINIMUM_DEGREE 0
36 #define MKL_REORDERING_NESTED_DISSECTION 2
37 #define MKL_PHASE_SYMBOLIC_FACTORIZATION 11
38 #define MKL_PHASE_FACTORIZATION 22
39 #define MKL_PHASE_SOLVE 33
40 #define MKL_PHASE_RELEASE_MEMORY -1
41
42 /* extern int PARDISO
43 # (void *, int *, int *, int *, int *, int *,
44 # double *, int *, int *, int *, int *, int *,
45 # int *, double *, double *, int *);
46 */
47
48
49 void Paso_MKL_free(Paso_SystemMatrix* A);
50 void Paso_MKL(Paso_SystemMatrix* A, double* out, double* in, Paso_Options* options,Paso_Performance* pp);
51 #endif

  ViewVC Help
Powered by ViewVC 1.1.26