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

Diff of /trunk/paso/src/MKL.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 2506 by artak, Tue Jun 23 05:56:33 2009 UTC revision 2507 by artak, Thu Jul 2 03:14:35 2009 UTC
# Line 103  void Paso_MKL(Paso_SystemMatrix* A, Line 103  void Paso_MKL(Paso_SystemMatrix* A,
103                  break;                  break;
104       }       }
105       #ifdef _OPENMP       #ifdef _OPENMP
106       iparm[2] = omp_get_max_threads();       iparm[2] =omp_get_max_threads();
107       #else       #else
108       iparm[2] = 1;       iparm[2] = 1;
109       #endif       #endif
# Line 227  void Paso_MKL1(Paso_SparseMatrix* A, Line 227  void Paso_MKL1(Paso_SparseMatrix* A,
227       /* set iparm */       /* set iparm */
228       for (i=0;i<64;++i) iparm[i]=0;       for (i=0;i<64;++i) iparm[i]=0;
229       iparm[0] = 1; /* no default settings*/       iparm[0] = 1; /* no default settings*/
230       iparm[1]=MKL_REORDERING_NESTED_DISSECTION;       iparm[1]=MKL_REORDERING_MINIMUM_DEGREE;
231       #ifdef _OPENMP       #ifdef _OPENMP
232       iparm[2] = omp_get_max_threads();       iparm[2] = omp_get_max_threads();
233       #else       #else
Legend:
Removed from v.2506  
changed lines
  Added in v.2507
  ViewVC Help
Powered by ViewVC 1.1.26