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

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

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

revision 411 by gross, Tue Jan 3 00:23:48 2006 UTC revision 584 by gross, Thu Mar 9 23:03:38 2006 UTC
# Line 28  void Paso_SCSL_free(Paso_SystemMatrix* A Line 28  void Paso_SCSL_free(Paso_SystemMatrix* A
28  void Paso_SCSL(Paso_SystemMatrix* A,  void Paso_SCSL(Paso_SystemMatrix* A,
29                            double* out,                            double* out,
30                            double* in,                            double* in,
31                            Paso_Options* options) {                            Paso_Options* options,
32                              Paso_Performance* pp) {
33    
34    index_t method=Paso_Options_getSolver(options->method,PASO_SCSL,options->symmetric);    index_t method=Paso_Options_getSolver(options->method,PASO_SCSL,options->symmetric);
35    
36    if (Paso_noError()) {    if (Paso_noError()) {
37        if (method==PASO_CHOLEVSKY || method==PASO_DIRECT) {        if (method==PASO_CHOLEVSKY || method==PASO_DIRECT) {
38            Paso_SCSL_direct(A,out,in,options);            Paso_SCSL_direct(A,out,in,options,pp);
39        } else {        } else {
40            Paso_SCSL_iterative(A,out,in,options);            Paso_SCSL_iterative(A,out,in,options,pp);
41        }        }
42    }    }
43  }  }

Legend:
Removed from v.411  
changed lines
  Added in v.584

  ViewVC Help
Powered by ViewVC 1.1.26