/[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 631 - (show annotations)
Thu Mar 23 04:27:32 2006 UTC (13 years, 8 months ago) by dhawcroft
File MIME type: text/plain
File size: 2288 byte(s)
Prepended all paso source files with new Copyright notice
1 /* $Id$ */
2
3 /*
4 ********************************************************************************
5 * Copyright © 2006 by ACcESS MNRF *
6 * *
7 * http://www.access.edu.au *
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 /* Paso: returns the package to be used */
17
18 /**************************************************************/
19
20 /* Copyrights by ACcESS Australia 2004,2005 */
21 /* Author: gross@access.edu.au */
22
23 /**************************************************************/
24
25 #include "Paso.h"
26 #include "Options.h"
27
28 /**************************************************************/
29
30 index_t Paso_Options_getPackage(index_t solver,index_t package, bool_t symmetry) {
31 index_t out=PASO_PASO;
32 if (package==PASO_DEFAULT) {
33 if (solver==PASO_DIRECT) {
34 #ifdef MKL
35 out=PASO_MKL;
36 #else
37 #ifdef SCSL
38 out=PASO_SCSL;
39 #else
40 #ifdef UMFPACK
41 out=PASO_UMFPACK;
42 #endif
43 #endif
44 #endif
45 } else {
46 out=PASO_PASO;
47 }
48 } else if (package==PASO_PASO) {
49 out=PASO_PASO;
50 } else if (package==PASO_SCSL) {
51 out=PASO_SCSL;
52 } else if (package==PASO_MKL) {
53 out=PASO_MKL;
54 } else if (package==PASO_UMFPACK) {
55 out=PASO_UMFPACK;
56 } else {
57 Paso_setError(VALUE_ERROR,"Unidentified package.");
58 }
59 return out;
60 }
61
62 /*
63 * $Log$
64 * Revision 1.2 2005/09/15 03:44:38 jgs
65 * Merge of development branch dev-02 back to main trunk on 2005-09-15
66 *
67 * Revision 1.1.2.1 2005/09/05 06:29:46 gross
68 * These files have been extracted from finley to define a stand alone libray for iterative
69 * linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but
70 * has not been tested yet.
71 *
72 *
73 */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26