1 |
/* |
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 |
} |