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

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

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

revision 3439 by gross, Mon Oct 18 22:39:28 2010 UTC revision 3440 by gross, Fri Jan 14 00:04:53 2011 UTC
# Line 65  void Paso_solve(Paso_SystemMatrix* A, Line 65  void Paso_solve(Paso_SystemMatrix* A,
65        options->time=Esys_timer();        options->time=Esys_timer();
66        Performance_startMonitor(&pp,PERFORMANCE_ALL);        Performance_startMonitor(&pp,PERFORMANCE_ALL);
67        Paso_MKL(A->mainBlock, out, in, options->reordering, options->refinements, options->verbose);        Paso_MKL(A->mainBlock, out, in, options->reordering, options->refinements, options->verbose);
68              A->solver_package=PASO_MKL;
69        Performance_stopMonitor(&pp,PERFORMANCE_ALL);        Performance_stopMonitor(&pp,PERFORMANCE_ALL);
70        options->time=Esys_timer()-options->time;        options->time=Esys_timer()-options->time;
71        options->set_up_time=0;        options->set_up_time=0;
72        options->residual_norm=0.;        options->residual_norm=0.;
73        options->num_iter=0;        options->num_iter=0;
74        if (Esys_MPIInfo_noError(A->mpi_info)) options->converged=TRUE;        if (Esys_MPIInfo_noError(A->mpi_info)) options->converged=TRUE;
           A->solver_package=PASO_MKL;  
75            break;            break;
76    
77       case PASO_UMFPACK:       case PASO_UMFPACK:
# Line 83  void Paso_solve(Paso_SystemMatrix* A, Line 83  void Paso_solve(Paso_SystemMatrix* A,
83          options->time=Esys_timer();          options->time=Esys_timer();
84          Performance_startMonitor(&pp,PERFORMANCE_ALL);          Performance_startMonitor(&pp,PERFORMANCE_ALL);
85          Paso_UMFPACK(A->mainBlock, out, in, options->refinements, options->verbose);          Paso_UMFPACK(A->mainBlock, out, in, options->refinements, options->verbose);
86            A->solver_package=PASO_UMFPACK;
87          Performance_stopMonitor(&pp,PERFORMANCE_ALL);          Performance_stopMonitor(&pp,PERFORMANCE_ALL);
88          options->time=Esys_timer()-options->time;          options->time=Esys_timer()-options->time;
89          options->set_up_time=0;          options->set_up_time=0;
90          options->residual_norm=0.;          options->residual_norm=0.;
91          options->num_iter=0;          options->num_iter=0;
92          if (Esys_MPIInfo_noError(A->mpi_info)) options->converged=TRUE;          if (Esys_MPIInfo_noError(A->mpi_info)) options->converged=TRUE;
         A->solver_package=PASO_UMFPACK;  
93              break;              break;
94    
95          default:          default:

Legend:
Removed from v.3439  
changed lines
  Added in v.3440

  ViewVC Help
Powered by ViewVC 1.1.26