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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1811 - (hide annotations)
Thu Sep 25 23:11:13 2008 UTC (11 years ago) by ksteube
File MIME type: text/plain
File size: 2100 byte(s)
Copyright updated in all files

1 ksteube 1312
2     /*******************************************************
3 ksteube 1811 *
4     * Copyright (c) 2003-2008 by University of Queensland
5     * Earth Systems Science Computational Center (ESSCC)
6     * http://www.uq.edu.au/esscc
7     *
8     * Primary Business: Queensland, Australia
9     * Licensed under the Open Software License version 3.0
10     * http://www.opensource.org/licenses/osl-3.0.php
11     *
12     *******************************************************/
13 dhawcroft 631
14 ksteube 1811
15 jgs 150 /**************************************************************/
16    
17     /* Paso: returns the package to be used */
18    
19     /**************************************************************/
20    
21     /* Copyrights by ACcESS Australia 2004,2005 */
22     /* Author: gross@access.edu.au */
23    
24     /**************************************************************/
25    
26     #include "Paso.h"
27     #include "Options.h"
28    
29     /**************************************************************/
30    
31     index_t Paso_Options_getPackage(index_t solver,index_t package, bool_t symmetry) {
32     index_t out=PASO_PASO;
33     if (package==PASO_DEFAULT) {
34     if (solver==PASO_DIRECT) {
35     #ifdef MKL
36     out=PASO_MKL;
37     #else
38     #ifdef SCSL
39     out=PASO_SCSL;
40     #else
41     #ifdef UMFPACK
42     out=PASO_UMFPACK;
43     #endif
44     #endif
45     #endif
46     } else {
47     out=PASO_PASO;
48     }
49     } else if (package==PASO_PASO) {
50     out=PASO_PASO;
51     } else if (package==PASO_SCSL) {
52     out=PASO_SCSL;
53     } else if (package==PASO_MKL) {
54     out=PASO_MKL;
55     } else if (package==PASO_UMFPACK) {
56     out=PASO_UMFPACK;
57 ksteube 1312 } else if (package==PASO_TRILINOS) {
58     out=PASO_TRILINOS;
59 jgs 150 } else {
60     Paso_setError(VALUE_ERROR,"Unidentified package.");
61     }
62     return out;
63     }
64    
65     /*
66     * $Log$
67     * Revision 1.2 2005/09/15 03:44:38 jgs
68     * Merge of development branch dev-02 back to main trunk on 2005-09-15
69     *
70     * Revision 1.1.2.1 2005/09/05 06:29:46 gross
71     * These files have been extracted from finley to define a stand alone libray for iterative
72     * linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but
73     * has not been tested yet.
74     *
75     *
76     */

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.26