24 |
/* allocates a Mesh with name name for elements of type id using an integration order. If order is negative, */ |
/* allocates a Mesh with name name for elements of type id using an integration order. If order is negative, */ |
25 |
/* the most appropriate order is selected indepently. */ |
/* the most appropriate order is selected indepently. */ |
26 |
|
|
27 |
Finley_Mesh* Finley_Mesh_alloc(char* name,dim_t numDim, Paso_MPIInfo *mpi_info) |
Finley_Mesh* Finley_Mesh_alloc(char* name,dim_t numDim, Esys_MPIInfo *mpi_info) |
28 |
{ |
{ |
29 |
Finley_Mesh *out; |
Finley_Mesh *out; |
30 |
|
|
45 |
out->FullReducedPattern=NULL; |
out->FullReducedPattern=NULL; |
46 |
out->ReducedFullPattern=NULL; |
out->ReducedFullPattern=NULL; |
47 |
out->ReducedReducedPattern=NULL; |
out->ReducedReducedPattern=NULL; |
48 |
out->MPIInfo = Paso_MPIInfo_getReference( mpi_info ); |
out->MPIInfo = Esys_MPIInfo_getReference( mpi_info ); |
49 |
if (! Finley_noError()) { |
if (! Finley_noError()) { |
50 |
Finley_Mesh_free(out); |
Finley_Mesh_free(out); |
51 |
return NULL; |
return NULL; |
102 |
Paso_SystemMatrixPattern_free(in->FullReducedPattern); |
Paso_SystemMatrixPattern_free(in->FullReducedPattern); |
103 |
Paso_SystemMatrixPattern_free(in->ReducedFullPattern); |
Paso_SystemMatrixPattern_free(in->ReducedFullPattern); |
104 |
Paso_SystemMatrixPattern_free(in->ReducedReducedPattern); |
Paso_SystemMatrixPattern_free(in->ReducedReducedPattern); |
105 |
Paso_MPIInfo_free( in->MPIInfo ); |
Esys_MPIInfo_free( in->MPIInfo ); |
106 |
MEMFREE(in); |
MEMFREE(in); |
107 |
} |
} |
108 |
} |
} |