| 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 |
/* Finley: ElementFile */ |
| 18 |
|
| 19 |
/* gathers the ElementFile out from the ElementFile in using index[0:out->numElements-1]. */ |
| 20 |
/* index has to be between 0 and in->numElements-1. */ |
| 21 |
/* a conservative assumtion on the coloring is made */ |
| 22 |
|
| 23 |
/**************************************************************/ |
| 24 |
|
| 25 |
#include "ElementFile.h" |
| 26 |
|
| 27 |
/**************************************************************/ |
| 28 |
|
| 29 |
void Finley_ElementFile_gather(index_t* index, Finley_ElementFile* in, Finley_ElementFile* out) { |
| 30 |
index_t k; |
| 31 |
dim_t e,j; |
| 32 |
dim_t NN_in=in->numNodes; |
| 33 |
dim_t NN_out=out->numNodes; |
| 34 |
if (in!=NULL) { |
| 35 |
/*OMP */ |
| 36 |
#pragma omp parallel for private(e,k,j) schedule(static) |
| 37 |
for (e=0;e<out->numElements;e++) { |
| 38 |
k=index[e]; |
| 39 |
out->Id[e]=in->Id[k]; |
| 40 |
out->Tag[e]=in->Tag[k]; |
| 41 |
out->Owner[e]=in->Owner[k]; |
| 42 |
out->Color[e]=in->Color[k]+out->maxColor+1; |
| 43 |
for(j=0;j<MIN(NN_out,NN_in);j++) out->Nodes[INDEX2(j,e,NN_out)]=in->Nodes[INDEX2(j,k,NN_in)]; |
| 44 |
} |
| 45 |
out->minColor=MIN(out->minColor,in->minColor+out->maxColor+1); |
| 46 |
out->maxColor=MAX(out->maxColor,in->maxColor+out->maxColor+1); |
| 47 |
} |
| 48 |
} |
Parent Directory
| 
Revision Log