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

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

trunk/esys2/paso/src/Options_getPackage.c revision 150 by jgs, Thu Sep 15 03:44:45 2005 UTC trunk/paso/src/Options_getPackage.c revision 2315 by gross, Wed Mar 18 00:38:48 2009 UTC
# Line 1  Line 1 
1  /* $Id$ */  
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    
# Line 16  Line 28 
28    
29  /**************************************************************/  /**************************************************************/
30    
31  index_t Paso_Options_getPackage(index_t solver,index_t package, bool_t symmetry) {  index_t Paso_Options_getPackage(index_t solver,index_t package, bool_t symmetry, Paso_MPIInfo *mpi_info) {
32    index_t out=PASO_PASO;    index_t out=PASO_PASO;
33    if (package==PASO_DEFAULT) {    if (package==PASO_DEFAULT) {
34        if (solver==PASO_DIRECT) {        if (solver==PASO_DIRECT) {
35           #ifdef MKL           #ifdef MKL
36              out=PASO_MKL;              out=PASO_MKL;
37           #else           #else
38              #ifdef SCSL              #ifdef UMFPACK
39                out=PASO_SCSL;                out=PASO_UMFPACK;
40              #else              #else
41                #ifdef UMFPACK                #ifdef SCSL
42                  out=PASO_UMFPACK;                 out=PASO_SCSL;
43                #endif                #endif
44              #endif              #endif
45           #endif           #endif
46             if (((out==PASO_UMFPACK) || (out == PASO_SCSL)) && (mpi_info->size>1) ) {  /* these packages require CSC  which is not supported with MPI */
47                  out= PASO_PASO;
48             }
49        } else {        } else {
50           out=PASO_PASO;           out=PASO_PASO;
51        }        }
# Line 42  index_t Paso_Options_getPackage(index_t Line 57  index_t Paso_Options_getPackage(index_t
57        out=PASO_MKL;        out=PASO_MKL;
58    } else if (package==PASO_UMFPACK) {    } else if (package==PASO_UMFPACK) {
59        out=PASO_UMFPACK;        out=PASO_UMFPACK;
60      } else if (package==PASO_TRILINOS) {
61          out=PASO_TRILINOS;
62    } else {    } else {
63        Paso_setError(VALUE_ERROR,"Unidentified package.");        Paso_setError(VALUE_ERROR,"Unidentified package.");
64    }    }
65    return out;    return out;
66  }  }
   
 /*  
  * $Log$  
  * Revision 1.2  2005/09/15 03:44:38  jgs  
  * Merge of development branch dev-02 back to main trunk on 2005-09-15  
  *  
  * Revision 1.1.2.1  2005/09/05 06:29:46  gross  
  * These files have been extracted from finley to define a stand alone libray for iterative  
  * linear solvers on the ALTIX. main entry through Paso_solve. this version compiles but  
  * has not been tested yet.  
  *  
  *  
  */  

Legend:
Removed from v.150  
changed lines
  Added in v.2315

  ViewVC Help
Powered by ViewVC 1.1.26