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

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

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

revision 1986 by jfenwick, Thu Nov 6 23:33:14 2008 UTC revision 2320 by gross, Thu Mar 19 03:40:16 2009 UTC
# Line 51  Finley_Mesh* Finley_Mesh_merge(dim_t num Line 51  Finley_Mesh* Finley_Mesh_merge(dim_t num
51    if (numMsh==0) {    if (numMsh==0) {
52       Finley_setError(VALUE_ERROR,"Finley_Mesh_merge: Empty mesh list");       Finley_setError(VALUE_ERROR,"Finley_Mesh_merge: Empty mesh list");
53    } else {    } else {
54        for  (i=0;i<numMsh;i++) }
55             if (mpi_info=msh[i]->MPIInfo->size > 1) {
56                  Finley_setError(TYPE_ERROR,"Finley_Mesh_merge: more than processor is not supported yet.");
57                  return NULL;
58             }
59        }
60      order=msh[0]->order;      order=msh[0]->order;
61      reduced_order=msh[0]->reduced_order;      reduced_order=msh[0]->reduced_order;
62      numDim=msh[0]->Nodes->numDim;      numDim=msh[0]->Nodes->numDim;
63      mpi_info=msh[0]->MPIInfo;      mpi_info=msh[0]->MPIInfo;
     if (mpi_info->size > 1) {  
          Finley_setError(TYPE_ERROR,"Finley_Mesh_merge: more than processor is not supported yet.");  
          return NULL;  
     }  
64      strcpy(newName,"");      strcpy(newName,"");
65      for (i=0;i<numMsh;i++) {      for (i=0;i<numMsh;i++) {
66         /* check if all mesh have the same type and dimensions */         /* check if all mesh have the same type and dimensions */

Legend:
Removed from v.1986  
changed lines
  Added in v.2320

  ViewVC Help
Powered by ViewVC 1.1.26