/[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 969 - (show annotations)
Tue Feb 13 23:02:23 2007 UTC (12 years, 8 months ago) by ksteube
File MIME type: text/plain
File size: 2352 byte(s)
Parallelization using MPI for solution of implicit problems.

Parallelization for explicit problems has already been accomplished in
the main SVN branch.

This is incomplete and is not ready for use.


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 if (package==PASO_TRILINOS) {
57 out=PASO_TRILINOS;
58 } else {
59 Paso_setError(VALUE_ERROR,"Unidentified package.");
60 }
61 return out;
62 }
63
64 /*
65 * $Log$
66 * Revision 1.2 2005/09/15 03:44:38 jgs
67 * Merge of development branch dev-02 back to main trunk on 2005-09-15
68 *
69 * Revision 1.1.2.1 2005/09/05 06:29:46 gross
70 * These files have been extracted from finley to define a stand alone libray for iterative
71 * linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but
72 * has not been tested yet.
73 *
74 *
75 */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26