/[escript]/branches/domexper/finley/src/Mesh_read.c
ViewVC logotype

Diff of /branches/domexper/finley/src/Mesh_read.c

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

revision 3246 by jfenwick, Mon Oct 4 01:46:30 2010 UTC revision 3247 by caltinay, Wed Oct 6 05:53:06 2010 UTC
# Line 33  Finley_Mesh* Finley_Mesh_read(char* fnam Line 33  Finley_Mesh* Finley_Mesh_read(char* fnam
33      char name[LenString_MAX],element_type[LenString_MAX],frm[20];      char name[LenString_MAX],element_type[LenString_MAX],frm[20];
34      char error_msg[LenErrorMsg_MAX];      char error_msg[LenErrorMsg_MAX];
35      FILE *fileHandle_p = NULL;      FILE *fileHandle_p = NULL;
36      ElementTypeId typeID=NoRef;      Finley_ElementTypeId typeID=Finley_NoRef;
37      int scan_ret;      int scan_ret;
38    
39      Finley_resetError();      Finley_resetError();
# Line 192  Finley_Mesh* Finley_Mesh_read(char* fnam Line 192  Finley_Mesh* Finley_Mesh_read(char* fnam
192                      Finley_setError(ESYS_MPI_ERROR, "Finley_Mesh_read: broadcast of Element typeID failed");                      Finley_setError(ESYS_MPI_ERROR, "Finley_Mesh_read: broadcast of Element typeID failed");
193                      return NULL;                      return NULL;
194                  }                  }
195                  typeID = (ElementTypeId) temp1[0];                  typeID = (Finley_ElementTypeId) temp1[0];
196                  numEle = temp1[1];                  numEle = temp1[1];
197              }              }
198          #endif          #endif
199          if (typeID==NoRef) {          if (typeID==Finley_NoRef) {
200              sprintf(error_msg, "Finley_Mesh_read: Unidentified element type %s", element_type);              sprintf(error_msg, "Finley_Mesh_read: Unidentified element type %s", element_type);
201              Finley_setError(VALUE_ERROR, error_msg);              Finley_setError(VALUE_ERROR, error_msg);
202            }            }
# Line 295  Finley_Mesh* Finley_Mesh_read(char* fnam Line 295  Finley_Mesh* Finley_Mesh_read(char* fnam
295                  temp1[0] = (int) typeID;                  temp1[0] = (int) typeID;
296                  temp1[1] = numEle;                  temp1[1] = numEle;
297                  MPI_Bcast (temp1, 2, MPI_INT,  0, mpi_info->comm);                  MPI_Bcast (temp1, 2, MPI_INT,  0, mpi_info->comm);
298                  typeID = (ElementTypeId) temp1[0];                  typeID = (Finley_ElementTypeId) temp1[0];
299                  numEle = temp1[1];                  numEle = temp1[1];
300              }              }
301          #endif          #endif
302          if (typeID==NoRef) {          if (typeID==Finley_NoRef) {
303              sprintf(error_msg, "Finley_Mesh_read: Unidentified element type %s", element_type);              sprintf(error_msg, "Finley_Mesh_read: Unidentified element type %s", element_type);
304              Finley_setError(VALUE_ERROR, error_msg);              Finley_setError(VALUE_ERROR, error_msg);
305          }          }
# Line 397  Finley_Mesh* Finley_Mesh_read(char* fnam Line 397  Finley_Mesh* Finley_Mesh_read(char* fnam
397                  temp1[0] = (int) typeID;                  temp1[0] = (int) typeID;
398                  temp1[1] = numEle;                  temp1[1] = numEle;
399                  MPI_Bcast (temp1, 2, MPI_INT,  0, mpi_info->comm);                  MPI_Bcast (temp1, 2, MPI_INT,  0, mpi_info->comm);
400                  typeID = (ElementTypeId) temp1[0];                  typeID = (Finley_ElementTypeId) temp1[0];
401                  numEle = temp1[1];                  numEle = temp1[1];
402              }              }
403          #endif          #endif
404          if (typeID==NoRef) {          if (typeID==Finley_NoRef) {
405              sprintf(error_msg, "Finley_Mesh_read: Unidentified element type %s", element_type);              sprintf(error_msg, "Finley_Mesh_read: Unidentified element type %s", element_type);
406              Finley_setError(VALUE_ERROR, error_msg);              Finley_setError(VALUE_ERROR, error_msg);
407           }           }
# Line 494  Finley_Mesh* Finley_Mesh_read(char* fnam Line 494  Finley_Mesh* Finley_Mesh_read(char* fnam
494                  temp1[0] = (int) typeID;                  temp1[0] = (int) typeID;
495                  temp1[1] = numEle;                  temp1[1] = numEle;
496                  MPI_Bcast (temp1, 2, MPI_INT,  0, mpi_info->comm);                  MPI_Bcast (temp1, 2, MPI_INT,  0, mpi_info->comm);
497                  typeID = (ElementTypeId) temp1[0];                  typeID = (Finley_ElementTypeId) temp1[0];
498                  numEle = temp1[1];                  numEle = temp1[1];
499              }              }
500          #endif          #endif
501          if (typeID==NoRef) {          if (typeID==Finley_NoRef) {
502              sprintf(error_msg, "Finley_Mesh_read: Unidentified element type %s", element_type);              sprintf(error_msg, "Finley_Mesh_read: Unidentified element type %s", element_type);
503              Finley_setError(VALUE_ERROR, error_msg);              Finley_setError(VALUE_ERROR, error_msg);
504           }           }

Legend:
Removed from v.3246  
changed lines
  Added in v.3247

  ViewVC Help
Powered by ViewVC 1.1.26