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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1811 - (show 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
2 /*******************************************************
3 *
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
14
15 /**************************************************************/
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 } else if (package==PASO_TRILINOS) {
58 out=PASO_TRILINOS;
59 } 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