/[escript]/branches/arrayview_from_1695_trunk/finley/src/ElementFile_relableNodes.c
ViewVC logotype

Annotation of /branches/arrayview_from_1695_trunk/finley/src/ElementFile_relableNodes.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 123 - (hide annotations)
Fri Jul 8 04:08:13 2005 UTC (14 years ago) by jgs
Original Path: trunk/esys2/finley/src/finleyC/ElementFile_relableNodes.c
File MIME type: text/plain
File size: 1480 byte(s)
Merge of development branch back to main trunk on 2005-07-08

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 jgs 123 void Finley_ElementFile_relableNodes(index_t* newNode,index_t offset,Finley_ElementFile* in) {
24     dim_t i,j,NN;
25 jgs 82 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 jgs 123 * Revision 1.2 2005/07/08 04:07:50 jgs
38     * Merge of development branch back to main trunk on 2005-07-08
39 jgs 82 *
40 jgs 123 * Revision 1.1.1.1.2.1 2005/06/29 02:34:50 gross
41     * some changes towards 64 integers in finley
42     *
43     * Revision 1.1.1.1 2004/10/26 06:53:57 jgs
44     * initial import of project esys2
45     *
46 jgs 82 * Revision 1.1.1.1 2004/06/24 04:00:40 johng
47     * Initial version of eys using boost-python.
48     *
49     *
50     */

Properties

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

  ViewVC Help
Powered by ViewVC 1.1.26