/[escript]/trunk-mpi-branch/finley/src/ElementFile_setDomainFlags.c
ViewVC logotype

Contents of /trunk-mpi-branch/finley/src/ElementFile_setDomainFlags.c

Parent Directory Parent Directory | Revision Log Revision Log


Revision 968 - (show annotations)
Tue Feb 13 22:56:57 2007 UTC (12 years, 2 months ago) by ksteube
File MIME type: text/plain
File size: 679 byte(s)
Branch for MPI solution of implicit problems
1 #include "ElementFile.h"
2
3 /* created by Ben Cumming */
4
5 /* determines the number of internal and boundary elements
6 in an ElementFile and updates the relevant elementDistribution
7 information. */
8
9 #ifdef PASO_MPI
10 void Finley_ElementFile_setDomainFlags( Finley_ElementFile *in )
11 {
12 int i, internal, boundary;
13
14 internal = boundary = 0;
15
16 for( i=0; i<in->numElements; i++ )
17 switch( in->Dom[i] ){
18 case ELEMENT_INTERNAL :
19 internal++;
20 break;
21 case ELEMENT_BOUNDARY :
22 boundary++;
23 break;
24 }
25 in->elementDistribution->numInternal = internal;
26 in->elementDistribution->numBoundary = boundary;
27 in->elementDistribution->numLocal = internal+boundary;
28 }
29 #endif
30

  ViewVC Help
Powered by ViewVC 1.1.26