/[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 424 by gross, Wed Jan 4 05:37:33 2006 UTC revision 425 by gross, Tue Jan 10 04:10:39 2006 UTC
# Line 44  void Paso_solve(Paso_SystemMatrix* A, Line 44  void Paso_solve(Paso_SystemMatrix* A,
44    
45          case PASO_PASO:          case PASO_PASO:
46            Paso_Solver(A,out,in,options);            Paso_Solver(A,out,in,options);
47              if (Paso_noError()) A->solver_package=PASO_PASO;
48            break;            break;
49    
50          #ifdef SCSL          #ifdef SCSL
51          case PASO_SCSL:          case PASO_SCSL:
52            Paso_SCSL(A,out,in,options);            Paso_SCSL(A,out,in,options);
53              if (Paso_noError()) A->solver_package=PASO_SCSL;
54            break;            break;
55          #endif          #endif
56    
57  /*    
58            #ifdef MKL
59          case PASO_MKL:          case PASO_MKL:
60            Paso_MKL(A,out,in,options);            Paso_MKL(A,out,in,options);
61              if (Paso_noError()) A->solver_package=PASO_MKL;
62            break;            break;
63  */          #endif
64    
65  /*  /*
66          case PASO_UMFPACK:          case PASO_UMFPACK:
67            Paso_UMFPACK(A,out,in,options);            Paso_UMFPACK(A,out,in,options);
68              if (Paso_noError()) A->solver_package=PASO_UMFPACK;
69            break;            break;
70  */  */
71    
# Line 75  void Paso_solve(Paso_SystemMatrix* A, Line 80  void Paso_solve(Paso_SystemMatrix* A,
80  /*  free memory possibly resereved for a recall */  /*  free memory possibly resereved for a recall */
81    
82  void Paso_solve_free(Paso_SystemMatrix* in) {  void Paso_solve_free(Paso_SystemMatrix* in) {
83         switch(in->solver_package) {
84    
85            case PASO_PASO:
86            Paso_Solver_free(in);            Paso_Solver_free(in);
87            #ifdef SCSL            break;
88    
89            #ifdef SCSL
90            case PASO_SCSL:
91            Paso_SCSL_free(in);            Paso_SCSL_free(in);
92            #endif            break;
93            /* Paso_MKL_free(A,out,in,options); */          #endif
94            /* Paso_UMFPACK_free(A,out,in,options); */  
95            return;    
96            #ifdef MKL
97            case PASO_MKL:
98              Paso_MKL_free(in);
99              break;
100            #endif
101    
102    /*
103            case PASO_UMFPACK:
104              Paso_UMFPACK_free(in);
105              break;
106    */
107       }
108  }  }
109  /*  /*
110   * $Log$   * $Log$

Legend:
Removed from v.424  
changed lines
  Added in v.425

  ViewVC Help
Powered by ViewVC 1.1.26