Searched refs:MPIPetsc_Type_free (Results 1 – 1 of 1) sorted by relevance
13 static PetscErrorCode MPIPetsc_Type_free(MPI_Datatype *a) in MPIPetsc_Type_free() function99 if (*flg) PetscCall(MPIPetsc_Type_free(&types[0])); in MPIPetsc_Type_unwrap()102 PetscCall(MPIPetsc_Type_free(&types[0])); in MPIPetsc_Type_unwrap()162 PetscCall(MPIPetsc_Type_free(&atypes[i])); in MPIPetsc_Type_compare()163 PetscCall(MPIPetsc_Type_free(&btypes[i])); in MPIPetsc_Type_compare()170 if (freeatype) PetscCall(MPIPetsc_Type_free(&atype)); in MPIPetsc_Type_compare()171 if (freebtype) PetscCall(MPIPetsc_Type_free(&btype)); in MPIPetsc_Type_compare()214 for (MPIU_Count i = 0; i < atypecount; i++) PetscCall(MPIPetsc_Type_free(&atypes[i])); in MPIPetsc_Type_compare_contig()218 if (freeatype) PetscCall(MPIPetsc_Type_free(&atype)); in MPIPetsc_Type_compare_contig()219 if (freebtype) PetscCall(MPIPetsc_Type_free(&btype)); in MPIPetsc_Type_compare_contig()