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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1312 - (hide annotations)
Mon Sep 24 06:18:44 2007 UTC (11 years, 11 months ago) by ksteube
File MIME type: text/plain
File size: 2199 byte(s)
The MPI branch is hereby closed. All future work should be in trunk.

Previously in revision 1295 I merged the latest changes to trunk into trunk-mpi-branch.
In this revision I copied all files from trunk-mpi-branch over the corresponding
trunk files. I did not use 'svn merge', it was a copy.

1 gross 411
2 ksteube 1312 /* $Id$ */
3 dhawcroft 631
4 ksteube 1312 /*******************************************************
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 gross 411 /**************************************************************/
17    
18     /* Paso: interface to the SGI SCSL library */
19    
20     /**************************************************************/
21    
22     /* Copyrights by ACcESS Australia 2003,2004,2005 */
23     /* Author: gross@@access.edu.au */
24    
25     /**************************************************************/
26    
27     #include "Paso.h"
28     #include "SystemMatrix.h"
29     #include "SCSL.h"
30    
31     /**************************************************************/
32    
33     /* free any extra stuff possibly used by the SCSL library */
34    
35     void Paso_SCSL_free(Paso_SystemMatrix* A) {
36     Paso_SCSL_direct_free(A);
37     Paso_SCSL_iterative_free(A);
38     }
39     /* call the solver: */
40    
41     void Paso_SCSL(Paso_SystemMatrix* A,
42     double* out,
43     double* in,
44 gross 584 Paso_Options* options,
45     Paso_Performance* pp) {
46 gross 411
47     index_t method=Paso_Options_getSolver(options->method,PASO_SCSL,options->symmetric);
48    
49     if (Paso_noError()) {
50     if (method==PASO_CHOLEVSKY || method==PASO_DIRECT) {
51 gross 584 Paso_SCSL_direct(A,out,in,options,pp);
52 gross 411 } else {
53 gross 584 Paso_SCSL_iterative(A,out,in,options,pp);
54 gross 411 }
55     }
56     }
57     /*
58     * $Log$
59     * Revision 1.2 2005/09/15 03:44:39 jgs
60     * Merge of development branch dev-02 back to main trunk on 2005-09-15
61     *
62     * Revision 1.1.2.3 2005/09/07 00:59:08 gross
63     * some inconsistent renaming fixed to make the linking work.
64     *
65     * Revision 1.1.2.2 2005/09/05 10:05:06 gross
66     * naming error fixed
67     *
68     * Revision 1.1.2.1 2005/09/05 06:29:49 gross
69     * These files have been extracted from finley to define a stand alone libray for iterative
70     * linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but
71     * has not been tested yet.
72     *
73     *
74     */

  ViewVC Help
Powered by ViewVC 1.1.26