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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 584 - (hide annotations)
Thu Mar 9 23:03:38 2006 UTC (13 years, 11 months ago) by gross
File MIME type: text/plain
File size: 1231 byte(s)
eigenvalues: compiles and passes tests on altix now
1 gross 425 /* $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 gross 584 #include "performance.h"
19 gross 425
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 gross 584 void Paso_MKL(Paso_SystemMatrix* A, double* out, double* in, Paso_Options* options,Paso_Performance* pp);
51 gross 425 #endif

  ViewVC Help
Powered by ViewVC 1.1.26