← Back to branch summary

~vcs-imports/escript-finley/trunk

« back to all changes in this revision

Viewing changes to finley/src/NodeFile_setIdRange.c

  • Committer: jfenwick
  • Date: 2010-10-11 01:48:14 UTC
  • Revision ID: svn-v4:77569008-7704-0410-b7a0-a92fef0b09fd:trunk:3259
Merging dudley and scons updates from branches

Show diffs side-by-side

added added

removed removed

Lines of Context:
finley/src/NodeFile_setIdRange.c
28
28
 
29
29
void Finley_NodeFile_setGlobalIdRange(index_t* min_id,index_t* max_id,Finley_NodeFile* in) {
30
30
   index_t min_id_local, max_id_local;
31
 
   #ifdef PASO_MPI
 
31
   #ifdef ESYS_MPI
32
32
   index_t global_id_range[2], id_range[2];
33
33
   #endif
34
34
 
35
35
   min_id_local=Finley_Util_getMinInt(1,in->numNodes,in->Id);
36
36
   max_id_local=Finley_Util_getMaxInt(1,in->numNodes,in->Id);
37
37
 
38
 
   #ifdef PASO_MPI
 
38
   #ifdef ESYS_MPI
39
39
   id_range[0]=-min_id_local;
40
40
   id_range[1]=max_id_local;
41
41
   MPI_Allreduce( id_range, global_id_range, 2, MPI_INT, MPI_MAX, in->MPIInfo->comm );
61
61
}
62
62
void Finley_NodeFile_setGlobalDOFRange(index_t* min_id,index_t* max_id,Finley_NodeFile* in) {
63
63
   index_t min_id_local, max_id_local;
64
 
   #ifdef PASO_MPI
 
64
   #ifdef ESYS_MPI
65
65
   index_t global_id_range[2], id_range[2];
66
66
   #endif
67
67
 
68
68
   min_id_local=Finley_Util_getMinInt(1,in->numNodes,in->globalDegreesOfFreedom);
69
69
   max_id_local=Finley_Util_getMaxInt(1,in->numNodes,in->globalDegreesOfFreedom);
70
70
 
71
 
   #ifdef PASO_MPI
 
71
   #ifdef ESYS_MPI
72
72
   id_range[0]=-min_id_local;
73
73
   id_range[1]=max_id_local;
74
74
   MPI_Allreduce( id_range, global_id_range, 2, MPI_INT, MPI_MAX, in->MPIInfo->comm );
116
116
 
117
117
void Finley_NodeFile_setGlobalReducedDegreeOfFreedomRange(index_t* min_id,index_t* max_id,Finley_NodeFile* in) {
118
118
   index_t min_id_local, max_id_local;
119
 
   #ifdef PASO_MPI
 
119
   #ifdef ESYS_MPI
120
120
   index_t global_id_range[2], id_range[2];
121
121
   #endif
122
122
 
123
123
   min_id_local=Finley_Util_getFlaggedMaxInt(1,in->numNodes,in->globalReducedDOFIndex,-1);
124
124
   max_id_local=Finley_Util_getFlaggedMinInt(1,in->numNodes,in->globalReducedDOFIndex,-1);
125
125
 
126
 
   #ifdef PASO_MPI
 
126
   #ifdef ESYS_MPI
127
127
   id_range[0]=-min_id_local;
128
128
   id_range[1]=max_id_local;
129
129
   MPI_Allreduce( id_range, global_id_range, 2, MPI_INT, MPI_MAX, in->MPIInfo->comm );
147
147
 
148
148
void Finley_NodeFile_setGlobalNodeIDIndexRange(index_t* min_id,index_t* max_id,Finley_NodeFile* in) {
149
149
   index_t min_id_local, max_id_local;
150
 
   #ifdef PASO_MPI
 
150
   #ifdef ESYS_MPI
151
151
   index_t global_id_range[2], id_range[2];
152
152
   #endif
153
153
 
154
154
   max_id_local=Finley_Util_getMaxInt(1,in->numNodes,in->globalNodesIndex);
155
155
   min_id_local=Finley_Util_getMinInt(1,in->numNodes,in->globalNodesIndex);
156
156
 
157
 
   #ifdef PASO_MPI
 
157
   #ifdef ESYS_MPI
158
158
   id_range[0]=-min_id_local;
159
159
   id_range[1]=max_id_local;
160
160
   MPI_Allreduce( id_range, global_id_range, 2, MPI_INT, MPI_MAX, in->MPIInfo->comm );
178
178
 
179
179
void Finley_NodeFile_setGlobalReducedNodeIDIndexRange(index_t* min_id,index_t* max_id,Finley_NodeFile* in) {
180
180
   index_t min_id_local, max_id_local;
181
 
   #ifdef PASO_MPI
 
181
   #ifdef ESYS_MPI
182
182
   index_t global_id_range[2], id_range[2];
183
183
   #endif
184
184
 
185
185
   max_id_local=Finley_Util_getFlaggedMaxInt(1,in->numNodes,in->globalReducedNodesIndex,-1);
186
186
   min_id_local=Finley_Util_getFlaggedMinInt(1,in->numNodes,in->globalReducedNodesIndex,-1);
187
187
 
188
 
   #ifdef PASO_MPI
 
188
   #ifdef ESYS_MPI
189
189
   id_range[0]=-min_id_local;
190
190
   id_range[1]=max_id_local;
191
191
   MPI_Allreduce( id_range, global_id_range, 2, MPI_INT, MPI_MAX, in->MPIInfo->comm );