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

Diff of /trunk-mpi-branch/paso/src/MKL.c

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

revision 1119 by ksteube, Tue Feb 13 22:56:57 2007 UTC revision 1120 by ksteube, Tue May 1 01:17:46 2007 UTC
# Line 38  void Paso_MKL_free(Paso_SystemMatrix* A) Line 38  void Paso_MKL_free(Paso_SystemMatrix* A)
38        if (A->solver!=NULL) {        if (A->solver!=NULL) {
39             _INTEGER_t mtype = MKL_MTYPE_UNSYM;             _INTEGER_t mtype = MKL_MTYPE_UNSYM;
40             if (A->type & MATRIX_FORMAT_SYM) mtype=MKL_MTYPE_SYM;             if (A->type & MATRIX_FORMAT_SYM) mtype=MKL_MTYPE_SYM;
41            _INTEGER_t n = A->num_rows;            _INTEGER_t n = A->numRows;
42            _INTEGER_t maxfct=1; /* number of factorizations on the same pattern */            _INTEGER_t maxfct=1; /* number of factorizations on the same pattern */
43            _INTEGER_t mnum =1; /* factoriztion to be handeled in this call */            _INTEGER_t mnum =1; /* factoriztion to be handeled in this call */
44            _INTEGER_t msglvl=0; /* message level */            _INTEGER_t msglvl=0; /* message level */
# Line 76  void Paso_MKL(Paso_SystemMatrix* A, Line 76  void Paso_MKL(Paso_SystemMatrix* A,
76       Performance_startMonitor(pp,PERFORMANCE_ALL);       Performance_startMonitor(pp,PERFORMANCE_ALL);
77       _INTEGER_t mtype = MKL_MTYPE_UNSYM;       _INTEGER_t mtype = MKL_MTYPE_UNSYM;
78       if (A->type & MATRIX_FORMAT_SYM) mtype=MKL_MTYPE_SYM;       if (A->type & MATRIX_FORMAT_SYM) mtype=MKL_MTYPE_SYM;
79       _INTEGER_t n = A->num_rows;       _INTEGER_t n = A->numRows;
80       _INTEGER_t maxfct=1; /* number of factorizations on the same pattern */       _INTEGER_t maxfct=1; /* number of factorizations on the same pattern */
81       _INTEGER_t mnum =1; /* factoriztion to be handeled in this call */       _INTEGER_t mnum =1; /* factoriztion to be handeled in this call */
82       _INTEGER_t msglvl=0; /* message level */       _INTEGER_t msglvl=0; /* message level */

Legend:
Removed from v.1119  
changed lines
  Added in v.1120

  ViewVC Help
Powered by ViewVC 1.1.26