16   PetscCallMPI(MPI_Reduce(&mem, &max_mem, 1, MPI_DOUBLE, MPI_MAX, 0, MPI_COMM_WORLD));  in Print_memory()
17   PetscCallMPI(MPI_Reduce(&mem, &min_mem, 1, MPI_DOUBLE, MPI_MIN, 0, MPI_COMM_WORLD));  in Print_memory()
37   PetscCallMPI(MPI_Comm_size(MPI_COMM_WORLD, &size));  in TestMPIDerivedDataType()
39   PetscCallMPI(MPI_Comm_rank(MPI_COMM_WORLD, &rank));  in TestMPIDerivedDataType()
47 … PetscCallMPI(MPI_Type_create_indexed_block(2, 1, (const PetscMPIInt *)disp, MPIU_SCALAR, &type1));  in TestMPIDerivedDataType()
49     PetscCallMPI(MPI_Type_create_resized(type1, 0, 4 * sizeof(PetscScalar), &type2));  in TestMPIDerivedDataType()
50     PetscCallMPI(MPI_Type_commit(&type2));  in TestMPIDerivedDataType()
51     PetscCallMPI(MPI_Send(buffer, 6, type2, 1, 123, MPI_COMM_WORLD));  in TestMPIDerivedDataType()
58 …PetscCallMPI(MPI_Type_create_indexed_block(1, 2, (const PetscMPIInt *)disp, MPIU_SCALAR, &rtype1));  in TestMPIDerivedDataType()
59     PetscCallMPI(MPI_Type_create_resized(rtype1, 0, 4 * sizeof(PetscScalar), &rtype2));  in TestMPIDerivedDataType()
61     PetscCallMPI(MPI_Type_commit(&rtype2));  in TestMPIDerivedDataType()
62     PetscCallMPI(MPI_Recv(buffer, 6, rtype2, 0, 123, MPI_COMM_WORLD, &status));  in TestMPIDerivedDataType()
70     PetscCallMPI(MPI_Type_free(&type1));  in TestMPIDerivedDataType()
71     PetscCallMPI(MPI_Type_free(&type2));  in TestMPIDerivedDataType()
73     PetscCallMPI(MPI_Type_free(&rtype1));  in TestMPIDerivedDataType()
74     PetscCallMPI(MPI_Type_free(&rtype2));  in TestMPIDerivedDataType()
76   PetscCallMPI(MPI_Barrier(MPI_COMM_WORLD));  in TestMPIDerivedDataType()