/[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 82 - (show annotations)
Tue Oct 26 06:53:54 2004 UTC (14 years, 5 months ago) by jgs
Original Path: trunk/esys2/finley/src/finleyC/ElementFile_relableNodes.c
File MIME type: text/plain
File size: 1253 byte(s)
Initial revision

1 /* $Id$ */
2 /**************************************************************/
3
4 /* Finley: ElementFile */
5
6 /* */
7 /* assigns new node reference numbers to elements in element file in. */
8 /* if k is the old node, the new node is newNode[k-offset]. */
9
10 /**************************************************************/
11
12 /* Copyrights by ACcESS Australia 2003 */
13 /* Author: gross@access.edu.au */
14 /* Version: $Id$ */
15
16 /**************************************************************/
17
18 #include "Common.h"
19 #include "ElementFile.h"
20
21 /**************************************************************/
22
23 void Finley_ElementFile_relableNodes(int* newNode,int offset,Finley_ElementFile* in) {
24 maybelong i,j,NN;
25 if (in!=NULL) {
26 NN=in->ReferenceElement->Type->numNodes;
27 #pragma omp parallel for private(j,i) schedule(static)
28 for (j=0;j<in->numElements;j++) {
29 for (i=0;i<NN;i++) {
30 in->Nodes[INDEX2(i,j,NN)]=newNode[in->Nodes[INDEX2(i,j,NN)]-offset];
31 }
32 }
33 }
34 }
35 /*
36 * $Log$
37 * Revision 1.1 2004/10/26 06:53:57 jgs
38 * Initial revision
39 *
40 * Revision 1.1.1.1 2004/06/24 04:00:40 johng
41 * Initial version of eys using boost-python.
42 *
43 *
44 */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26