/[escript]/branches/domexper/dudley/src/ElementFile_relableNodes.c
ViewVC logotype

Contents of /branches/domexper/dudley/src/ElementFile_relableNodes.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3224 - (show annotations)
Wed Sep 29 05:19:37 2010 UTC (8 years, 6 months ago) by jfenwick
File MIME type: text/plain
File size: 1280 byte(s)
indent -linux -nce -i4 -bl -bli0 -l120

1
2 /*******************************************************
3 *
4 * Copyright (c) 2003-2010 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 /* Dudley: ElementFile */
17
18 /* */
19 /* assigns new node reference numbers to elements in element file in. */
20 /* if k is the old node, the new node is newNode[k-offset]. */
21
22 /**************************************************************/
23
24 #include "ElementFile.h"
25
26 /**************************************************************/
27
28 void Dudley_ElementFile_relableNodes(index_t * newNode, index_t offset, Dudley_ElementFile * in)
29 {
30 dim_t i, j, NN;
31
32 if (in != NULL)
33 {
34 NN = in->numNodes;
35 #pragma omp parallel for private(j,i) schedule(static)
36 for (j = 0; j < in->numElements; j++)
37 {
38 for (i = 0; i < NN; i++)
39 {
40 in->Nodes[INDEX2(i, j, NN)] = newNode[in->Nodes[INDEX2(i, j, NN)] - offset];
41 }
42 }
43 }
44 }

Properties

Name Value
svn:eol-style native
svn:keywords Author Date Id Revision

  ViewVC Help
Powered by ViewVC 1.1.26