/[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

trunk/paso/src/SCSL.c revision 411 by gross, Tue Jan 3 00:23:48 2006 UTC temp_trunk_copy/paso/src/SCSL.c revision 1384 by phornby, Fri Jan 11 02:29:38 2008 UTC
# Line 1  Line 1 
1  /* $Id: SCSL.c 150 2005-09-15 03:44:45Z jgs $ */  
2    /* $Id$ */
3    
4    /*******************************************************
5     *
6     *           Copyright 2003-2007 by ACceSS MNRF
7     *       Copyright 2007 by University of Queensland
8     *
9     *                http://esscc.uq.edu.au
10     *        Primary Business: Queensland, Australia
11     *  Licensed under the Open Software License version 3.0
12     *     http://www.opensource.org/licenses/osl-3.0.php
13     *
14     *******************************************************/
15    
16  /**************************************************************/  /**************************************************************/
17    
# Line 28  void Paso_SCSL_free(Paso_SystemMatrix* A Line 41  void Paso_SCSL_free(Paso_SystemMatrix* A
41  void Paso_SCSL(Paso_SystemMatrix* A,  void Paso_SCSL(Paso_SystemMatrix* A,
42                            double* out,                            double* out,
43                            double* in,                            double* in,
44                            Paso_Options* options) {                            Paso_Options* options,
45                              Paso_Performance* pp) {
46    
47    index_t method=Paso_Options_getSolver(options->method,PASO_SCSL,options->symmetric);    index_t method=Paso_Options_getSolver(options->method,PASO_SCSL,options->symmetric);
48    
49    if (Paso_noError()) {    if (Paso_noError()) {
50        if (method==PASO_CHOLEVSKY || method==PASO_DIRECT) {        if (method==PASO_CHOLEVSKY || method==PASO_DIRECT) {
51            Paso_SCSL_direct(A,out,in,options);            Paso_SCSL_direct(A,out,in,options,pp);
52        } else {        } else {
53            Paso_SCSL_iterative(A,out,in,options);            Paso_SCSL_iterative(A,out,in,options,pp);
54        }        }
55    }    }
56  }  }

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

  ViewVC Help
Powered by ViewVC 1.1.26