/[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 2608 - (hide annotations)
Tue Aug 18 01:25:18 2009 UTC (10 years, 2 months ago) by jfenwick
File MIME type: text/plain
File size: 1960 byte(s)
Updating Lutz' email

1 ksteube 1312
2     /*******************************************************
3 ksteube 1811 *
4 jfenwick 2548 * Copyright (c) 2003-2009 by University of Queensland
5 ksteube 1811 * 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 jfenwick 2608 /* Author: Lutz Gross, l.gross@uq.edu.au */
23 jgs 150
24     /**************************************************************/
25    
26     #include "Paso.h"
27     #include "Options.h"
28    
29     /**************************************************************/
30    
31 gross 2315 index_t Paso_Options_getPackage(index_t solver,index_t package, bool_t symmetry, Paso_MPIInfo *mpi_info) {
32 jgs 150 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 gross 2315 #ifdef UMFPACK
39     out=PASO_UMFPACK;
40 jgs 150 #else
41 gross 2479 #ifdef PASTIX
42     out=PASO_PASTIX
43 jgs 150 #endif
44     #endif
45     #endif
46 gross 2479 if (( (out == PASO_MKL) || (out==PASO_UMFPACK) || (out == PASO_PASTIX) ) && (mpi_info->size>1) ) { /* these packages require CSC which is not supported with MPI */
47 gross 2315 out= PASO_PASO;
48     }
49 jgs 150 } else {
50     out=PASO_PASO;
51     }
52     } else if (package==PASO_PASO) {
53     out=PASO_PASO;
54 gross 2479 } else if (package==PASO_PASTIX) {
55     out=PASO_PASTIX;
56 jgs 150 } else if (package==PASO_MKL) {
57     out=PASO_MKL;
58     } else if (package==PASO_UMFPACK) {
59     out=PASO_UMFPACK;
60 ksteube 1312 } else if (package==PASO_TRILINOS) {
61     out=PASO_TRILINOS;
62 jgs 150 } else {
63     Paso_setError(VALUE_ERROR,"Unidentified package.");
64     }
65     return out;
66     }

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26