/[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 726 by gross, Thu Apr 6 00:13:40 2006 UTC revision 727 by gross, Fri May 12 06:31:06 2006 UTC
# Line 58  void Paso_solve(Paso_SystemMatrix* A, Line 58  void Paso_solve(Paso_SystemMatrix* A,
58    
59          case PASO_PASO:          case PASO_PASO:
60            Paso_Solver(A,out,in,options,&pp);            Paso_Solver(A,out,in,options,&pp);
61            if (Paso_noError()) A->solver_package=PASO_PASO;            A->solver_package=PASO_PASO;
62            break;            break;
63    
64          #ifdef SCSL          #ifdef SCSL
65          case PASO_SCSL:          case PASO_SCSL:
66            Paso_SCSL(A,out,in,options,&pp);            Paso_SCSL(A,out,in,options,&pp);
67            if (Paso_noError()) A->solver_package=PASO_SCSL;            A->solver_package=PASO_SCSL;
68            break;            break;
69          #endif          #endif
70    
# Line 72  void Paso_solve(Paso_SystemMatrix* A, Line 72  void Paso_solve(Paso_SystemMatrix* A,
72          #ifdef MKL          #ifdef MKL
73          case PASO_MKL:          case PASO_MKL:
74            Paso_MKL(A,out,in,options,&pp);            Paso_MKL(A,out,in,options,&pp);
75            if (Paso_noError()) A->solver_package=PASO_MKL;            A->solver_package=PASO_MKL;
76            break;            break;
77          #endif          #endif
78    
79  /*  /*
80          case PASO_UMFPACK:          case PASO_UMFPACK:
81            Paso_UMFPACK(A,out,in,options);            Paso_UMFPACK(A,out,in,options);
82            if (Paso_noError()) A->solver_package=PASO_UMFPACK;            A->solver_package=PASO_UMFPACK;
83            break;            break;
84  */  */
85    
# Line 95  void Paso_solve(Paso_SystemMatrix* A, Line 95  void Paso_solve(Paso_SystemMatrix* A,
95  /*  free memory possibly resereved for a recall */  /*  free memory possibly resereved for a recall */
96    
97  void Paso_solve_free(Paso_SystemMatrix* in) {  void Paso_solve_free(Paso_SystemMatrix* in) {
98    
99       switch(in->solver_package) {       switch(in->solver_package) {
100    
101          case PASO_PASO:          case PASO_PASO:

Legend:
Removed from v.726  
changed lines
  Added in v.727

  ViewVC Help
Powered by ViewVC 1.1.26