1 |
gross |
1156 |
/* |
2 |
|
|
************************************************************ |
3 |
|
|
* Copyright 2006, 2007 by ACcESS MNRF * |
4 |
|
|
* * |
5 |
|
|
* http://www.access.edu.au * |
6 |
|
|
* Primary Business: Queensland, Australia * |
7 |
|
|
* Licensed under the Open Software License version 3.0 * |
8 |
|
|
* http://www.opensource.org/licenses/osl-3.0.php * |
9 |
|
|
* * |
10 |
|
|
************************************************************ |
11 |
|
|
*/ |
12 |
|
|
|
13 |
|
|
/**************************************************************/ |
14 |
|
|
|
15 |
|
|
/* Finley: Mesh : optimizes the labeling of nodes */ |
16 |
|
|
|
17 |
|
|
/**************************************************************/ |
18 |
|
|
|
19 |
|
|
/* Author: gross@access.edu.au */ |
20 |
|
|
/* Version: $Id:$ */ |
21 |
|
|
|
22 |
|
|
/**************************************************************/ |
23 |
|
|
|
24 |
|
|
#include "Mesh.h" |
25 |
|
|
|
26 |
|
|
/**************************************************************/ |
27 |
|
|
|
28 |
|
|
void Finley_Mesh_optimizeNodeLabeling(Finley_Mesh* mesh_p) { |
29 |
|
|
|
30 |
|
|
index_t *DOF_permutation=NULL, i; |
31 |
|
|
/* |
32 |
|
|
Paso_SystemMatrixPattern* pattern_p=NULL; |
33 |
|
|
pattern_p=Finley_getPattern(mesh_p,FALSE,FALSE) |
34 |
|
|
|
35 |
|
|
DOF_permutation= (); |
36 |
|
|
if no error { |
37 |
|
|
#pragma omp for private(i) |
38 |
|
|
for (i=0;i< ;++i) { |
39 |
|
|
DOF_permutation[i]=i; |
40 |
|
|
} |
41 |
|
|
|
42 |
|
|
|
43 |
|
|
} |
44 |
|
|
*/ |
45 |
|
|
} |