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

Diff of /trunk-mpi-branch/finley/src/ElementFile_markNodes.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1222 by ksteube, Tue May 15 03:23:17 2007 UTC revision 1223 by gross, Fri Aug 3 02:40:39 2007 UTC
# Line 42  void Finley_ElementFile_markNodes(index_ Line 42  void Finley_ElementFile_markNodes(index_
42             NN=in->ReferenceElement->Type->numNodes;             NN=in->ReferenceElement->Type->numNodes;
43             lin_node=id;             lin_node=id;
44          }          }
45          NN2=in->ReferenceElement->Type->numNodes;          NN2=in->numNodes;
46          if ((in->maxColor-in->minColor+1)*NN<in->numElements) {          #pragma omp parallel for private(e,i) schedule(static)
47             #pragma omp parallel private(color)          for (e=0;e<in->numElements;e++) {
48             {              for (i=0;i<NN;i++) {
               for (color=in->minColor;color<=in->maxColor;color++) {  
                 #pragma omp for private(e,i) schedule(static)  
                 for (e=0;e<in->numElements;e++) {  
                   if (in->Color[e]==color) {  
                      for (i=0;i<NN;i++)  
                        mask[in->Nodes[INDEX2(lin_node[i],e,NN2)]-offset]=1;  
                   }  
                 }  
               }  
               #pragma omp barrier  
            }  
         } else {  
            #pragma omp parallel for private(e,i) schedule(static)  
            for (e=0;e<in->numElements;e++) {  
               for (i=0;i<NN;i++)  
49                  mask[in->Nodes[INDEX2(lin_node[i],e,NN2)]-offset]=1;                  mask[in->Nodes[INDEX2(lin_node[i],e,NN2)]-offset]=1;
50             }             }
51          }          }
# Line 68  void Finley_ElementFile_markNodes(index_ Line 53  void Finley_ElementFile_markNodes(index_
53       }       }
54     }     }
55  }  }
   
 /*  
 * $Log$  
 * Revision 1.4  2005/09/15 03:44:22  jgs  
 * Merge of development branch dev-02 back to main trunk on 2005-09-15  
 *  
 * Revision 1.3.2.1  2005/09/07 06:26:18  gross  
 * the solver from finley are put into the standalone package paso now  
 *  
 * Revision 1.3  2005/07/22 03:53:08  jgs  
 * Merge of development branch back to main trunk on 2005-07-22  
 *  
 * Revision 1.2  2005/07/08 04:07:50  jgs  
 * Merge of development branch back to main trunk on 2005-07-08  
 *  
 * Revision 1.1.1.1.2.2  2005/07/18 10:34:54  gross  
 * some informance improvements when reading meshes  
 *  
 * Revision 1.1.1.1.2.1  2005/06/29 02:34:49  gross  
 * some changes towards 64 integers in finley  
 *  
 * Revision 1.1.1.1  2004/10/26 06:53:57  jgs  
 * initial import of project esys2  
 *  
 * Revision 1.1.1.1  2004/06/24 04:00:40  johng  
 * Initial version of eys using boost-python.  
 *  
 *  
 */  

Legend:
Removed from v.1222  
changed lines
  Added in v.1223

  ViewVC Help
Powered by ViewVC 1.1.26