/[escript]/branches/arrayview_from_1695_trunk/finley/src/Mesh_write.c
ViewVC logotype

Diff of /branches/arrayview_from_1695_trunk/finley/src/Mesh_write.c

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

revision 1780 by jfenwick, Mon Aug 11 03:33:40 2008 UTC revision 1781 by jfenwick, Thu Sep 11 05:03:14 2008 UTC
# Line 158  void Finley_PrintMesh_Info(Finley_Mesh * Line 158  void Finley_PrintMesh_Info(Finley_Mesh *
158    
159    /* write elements: */    /* write elements: */
160    if (in->Elements!=NULL) {    if (in->Elements!=NULL) {
161      fprintf(stdout, "\tElements: %s %d (TypeId=%d)\n",in->Elements->ReferenceElement->Type->Name,in->Elements->numElements,in->Elements->ReferenceElement->Type->TypeId);      int mine=0, overlap=0;
162        for (i=0;i<in->Elements->numElements;i++) {
163          if (in->Elements->Owner[i] == in->MPIInfo->rank) mine++;
164          else overlap++;
165        }
166        fprintf(stdout, "\tElements: %s %d (TypeId=%d) owner=%d overlap=%d\n",in->Elements->ReferenceElement->Type->Name,in->Elements->numElements,in->Elements->ReferenceElement->Type->TypeId, mine, overlap);
167      NN=in->Elements->numNodes;      NN=in->Elements->numNodes;
168      if (full) {      if (full) {
169        fprintf(stdout, "\t     Id   Tag Owner Color:  Nodes\n");        fprintf(stdout, "\t     Id   Tag Owner Color:  Nodes\n");
# Line 174  void Finley_PrintMesh_Info(Finley_Mesh * Line 179  void Finley_PrintMesh_Info(Finley_Mesh *
179    
180    /* write face elements: */    /* write face elements: */
181    if (in->FaceElements!=NULL) {    if (in->FaceElements!=NULL) {
182      fprintf(stdout, "\tFace elements: %s %d (TypeId=%d)\n", in->FaceElements->ReferenceElement->Type->Name,in->FaceElements->numElements,in->FaceElements->ReferenceElement->Type->TypeId);      int mine=0, overlap=0;
183        for (i=0;i<in->FaceElements->numElements;i++) {
184          if (in->FaceElements->Owner[i] == in->MPIInfo->rank) mine++;
185          else overlap++;
186        }
187        fprintf(stdout, "\tFace elements: %s %d (TypeId=%d) owner=%d overlap=%d\n", in->FaceElements->ReferenceElement->Type->Name,in->FaceElements->numElements,in->FaceElements->ReferenceElement->Type->TypeId, mine, overlap);
188      NN=in->FaceElements->numNodes;      NN=in->FaceElements->numNodes;
189      if (full) {      if (full) {
190        fprintf(stdout, "\t     Id   Tag Owner Color:  Nodes\n");        fprintf(stdout, "\t     Id   Tag Owner Color:  Nodes\n");
# Line 190  void Finley_PrintMesh_Info(Finley_Mesh * Line 200  void Finley_PrintMesh_Info(Finley_Mesh *
200    
201    /* write Contact elements : */    /* write Contact elements : */
202    if (in->ContactElements!=NULL) {    if (in->ContactElements!=NULL) {
203      fprintf(stdout, "\tContact elements: %s %d (TypeId=%d)\n",in->ContactElements->ReferenceElement->Type->Name,in->ContactElements->numElements,in->ContactElements->ReferenceElement->Type->TypeId);      int mine=0, overlap=0;
204        for (i=0;i<in->ContactElements->numElements;i++) {
205          if (in->ContactElements->Owner[i] == in->MPIInfo->rank) mine++;
206          else overlap++;
207        }
208        fprintf(stdout, "\tContact elements: %s %d (TypeId=%d) owner=%d overlap=%d\n",in->ContactElements->ReferenceElement->Type->Name,in->ContactElements->numElements,in->ContactElements->ReferenceElement->Type->TypeId, mine, overlap);
209      NN=in->ContactElements->numNodes;      NN=in->ContactElements->numNodes;
210      if (full) {      if (full) {
211        fprintf(stdout, "\t     Id   Tag Owner Color:  Nodes\n");        fprintf(stdout, "\t     Id   Tag Owner Color:  Nodes\n");
# Line 206  void Finley_PrintMesh_Info(Finley_Mesh * Line 221  void Finley_PrintMesh_Info(Finley_Mesh *
221    
222    /* write points: */    /* write points: */
223    if (in->Points!=NULL) {    if (in->Points!=NULL) {
224      fprintf(stdout, "\tPoints: %s %d (TypeId=%d)\n",in->Points->ReferenceElement->Type->Name,in->Points->numElements,in->Points->ReferenceElement->Type->TypeId);      int mine=0, overlap=0;
225        for (i=0;i<in->Points->numElements;i++) {
226          if (in->Points->Owner[i] == in->MPIInfo->rank) mine++;
227          else overlap++;
228        }
229        fprintf(stdout, "\tPoints: %s %d (TypeId=%d) owner=%d overlap=%d\n",in->Points->ReferenceElement->Type->Name,in->Points->numElements,in->Points->ReferenceElement->Type->TypeId, mine, overlap);
230      if (full) {      if (full) {
231        fprintf(stdout, "\t     Id   Tag Owner Color:  Nodes\n");        fprintf(stdout, "\t     Id   Tag Owner Color:  Nodes\n");
232        for (i=0;i<in->Points->numElements;i++) {        for (i=0;i<in->Points->numElements;i++) {

Legend:
Removed from v.1780  
changed lines
  Added in v.1781

  ViewVC Help
Powered by ViewVC 1.1.26