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

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

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

revision 750 by bcumming, Mon May 15 04:09:52 2006 UTC revision 751 by bcumming, Mon Jun 26 01:46:34 2006 UTC
# Line 92  Finley_NodeGhostEdge* Finley_NodeGhostEd Line 92  Finley_NodeGhostEdge* Finley_NodeGhostEd
92    return in;    return in;
93  }  }
94    
95    /* print the local distribution data to fid */
96    void Finley_NodeDistribution_print( Finley_NodeDistribution *in, FILE *fid )
97    {
98      int n, i;
99    
100      fprintf( fid, "=======================================================================================\nNode Distribution\n---------------------\n\nInternal %d\nBoundary %d\nLocal %d\nExternal %d\nGlobal %d\n", in->numInternal, in->numBoundary, in->numLocal, in->numExternal, in->numGlobal );
101      fprintf( fid, "vtxdist [ " );
102      for( i=0; i<in->MPIInfo->size+1; i++ )
103        fprintf( fid, "%d ", in->vtxdist[i] );
104      fprintf( fid, "]\n" );
105      fprintf( fid, "indexExternal [ " );
106      for( i=0; i<in->numExternal; i++ )
107        fprintf( fid, "%d ", in->indexExternal[i] );
108      fprintf( fid, "]\n" );
109      fprintf( fid, "NumNeighbours %d\n", in->numNeighbours );
110      /* list each neighbour */
111      for( n=0; n<in->numNeighbours; n++ )
112      {
113    
114        fprintf( fid, "\nNeighbour %d - Domain %d\n=====================\n\n", n, in->neighbours[n] );
115        fprintf( fid, "numForward = %d\tnumBackward = %d\n", in->edges[n]->numForward, in->edges[n]->numBackward );
116        fprintf( fid, "indexForward\n[ " );
117        for( i=0; i<in->edges[n]->numForward; i++ )
118          fprintf( fid, "%d ", in->edges[n]->indexForward[i] );
119        fprintf( fid, "]\n" );
120        fprintf( fid, "indexBackward\n[ " );
121        for( i=0; i<in->edges[n]->numBackward; i++ )
122          fprintf( fid, "%d ", in->edges[n]->indexBackward[i] );
123        fprintf( fid, "]\n=======================================================================================\n" );
124      }
125    }
126    
127  #endif  #endif

Legend:
Removed from v.750  
changed lines
  Added in v.751

  ViewVC Help
Powered by ViewVC 1.1.26