1 |
|
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 |
|
17 |
/* Paso: solver options */ |
18 |
|
19 |
/**************************************************************/ |
20 |
|
21 |
/* Copyrights by ACcESS Australia, 2003,2004 */ |
22 |
/* author: gross@access.edu.au */ |
23 |
|
24 |
/**************************************************************/ |
25 |
|
26 |
#include "Paso.h" |
27 |
#include "Options.h" |
28 |
|
29 |
/**************************************************************/ |
30 |
|
31 |
/* set the default values for solver options */ |
32 |
|
33 |
void Paso_Options_setDefaults(Paso_Options* options) { |
34 |
|
35 |
options->method=PASO_DEFAULT; |
36 |
options->package=PASO_DEFAULT; |
37 |
options->symmetric=FALSE; |
38 |
options->verbose=FALSE; |
39 |
options->reordering=PASO_NO_REORDERING; |
40 |
options->tolerance=1.E-8; |
41 |
options->absolute_tolerance=0.; |
42 |
options->inner_tolerance=0.9; |
43 |
options->adapt_inner_tolerance=TRUE; |
44 |
options->final_residual=0; |
45 |
options->preconditioner=PASO_JACOBI; |
46 |
options->iter_max=10000; |
47 |
options->inner_iter_max=10; |
48 |
options->iter=0; |
49 |
options->drop_tolerance=0.01; |
50 |
options->drop_storage=2.; |
51 |
options->restart=-1; |
52 |
options->truncation=20; |
53 |
options->sweeps=1; |
54 |
} |