/[escript]/trunk/finley/src/ElementFile_relableNodes.c
ViewVC logotype

Annotation of /trunk/finley/src/ElementFile_relableNodes.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 82 - (hide annotations)
Tue Oct 26 06:53:54 2004 UTC (15 years 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 jgs 82 /* $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