1 |
phornby |
1913 |
|
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: Pattern_coupling */ |
18 |
|
|
|
19 |
|
|
/**************************************************************/ |
20 |
|
|
|
21 |
|
|
/* Author: PGH */ |
22 |
|
|
|
23 |
|
|
/**************************************************************/ |
24 |
|
|
|
25 |
|
|
#ifndef INC_PASO_PATTERN_COUPLING |
26 |
|
|
#define INC_PASO_PATTERN_COUPLING |
27 |
|
|
|
28 |
artak |
1932 |
#include "SparseMatrix.h" |
29 |
phornby |
1913 |
|
30 |
|
|
/**************************************************************/ |
31 |
|
|
|
32 |
artak |
1932 |
void Paso_Pattern_coup(Paso_SparseMatrix* A, index_t* mis_marker, double thershold); |
33 |
artak |
2381 |
void Paso_Pattern_RS(Paso_SparseMatrix* A, index_t* mis_marker, double theta); |
34 |
|
|
void Paso_Pattern_Aggregiation(Paso_SparseMatrix* A, index_t* mis_marker, double theta); |
35 |
artak |
2307 |
|
36 |
phornby |
1913 |
#endif |