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

Diff of /trunk/finley/src/ElementFile_createColoring.c

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

revision 1325 by ksteube, Tue Sep 25 02:41:13 2007 UTC revision 1326 by ksteube, Mon Oct 1 08:10:41 2007 UTC
# Line 53  void Finley_ElementFile_createColoring(F Line 53  void Finley_ElementFile_createColoring(F
53                    if (in->Color[e]<0) {                    if (in->Color[e]<0) {
54                       /* find out if element e is independend from the elements already colored: */                       /* find out if element e is independend from the elements already colored: */
55                       independent=TRUE;                       independent=TRUE;
56                       for (i=0;i<NN;i++) if (maskDOF[degreeOfFreedom[in->Nodes[INDEX2(i,e,NN)]]-min_id]>0) independent=FALSE;                       for (i=0;i<NN;i++) {
57    #ifdef BOUNDS_CHECK
58    if ((degreeOfFreedom[in->Nodes[INDEX2(i,e,NN)]]-min_id) >= len || (degreeOfFreedom[in->Nodes[INDEX2(i,e,NN)]]-min_id) < 0) { printf("BOUNDS_CHECK %s %d i=%d e=%d NN=%d min_id=%d dof=%d\n", __FILE__, __LINE__, i, e, NN, min_id, degreeOfFreedom[in->Nodes[INDEX2(i,e,NN)]]-min_id); exit(1); }
59    #endif
60                    if (maskDOF[degreeOfFreedom[in->Nodes[INDEX2(i,e,NN)]]-min_id]>0) independent=FALSE;
61                 }
62                       /* if e is independend a new color is assigned and the nodes are marked as being used */                       /* if e is independend a new color is assigned and the nodes are marked as being used */
63                       if (independent) {                       if (independent) {
64                           for (i=0;i<NN;i++) maskDOF[degreeOfFreedom[in->Nodes[INDEX2(i,e,NN)]]-min_id]=1;                           for (i=0;i<NN;i++) maskDOF[degreeOfFreedom[in->Nodes[INDEX2(i,e,NN)]]-min_id]=1;

Legend:
Removed from v.1325  
changed lines
  Added in v.1326

  ViewVC Help
Powered by ViewVC 1.1.26