/[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

revision 1811 by ksteube, Thu Sep 25 23:11:13 2008 UTC revision 2315 by gross, Wed Mar 18 00:38:48 2009 UTC
# Line 28  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 61  index_t Paso_Options_getPackage(index_t Line 64  index_t Paso_Options_getPackage(index_t
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.1811  
changed lines
  Added in v.2315

  ViewVC Help
Powered by ViewVC 1.1.26