dmi.c (538318a316cfae7430227984011e7de461d7658d) dmi.c (bdfec8b8a186e2cd4f335d45bbaf42e486bc9d79)
1#include <petsc/private/dmimpl.h> /*I "petscdm.h" I*/
2#include <petscds.h>
3
4#undef __FUNCT__
5#define __FUNCT__ "DMCreateGlobalVector_Section_Private"
6PetscErrorCode DMCreateGlobalVector_Section_Private(DM dm,Vec *vec)
7{
8 PetscSection gSection;

--- 19 unchanged lines hidden (view full) ---

28 blockSize = 1;
29 break;
30 }
31 }
32 }
33
34 in[0] = -blockSize;
35 in[1] = blockSize;
1#include <petsc/private/dmimpl.h> /*I "petscdm.h" I*/
2#include <petscds.h>
3
4#undef __FUNCT__
5#define __FUNCT__ "DMCreateGlobalVector_Section_Private"
6PetscErrorCode DMCreateGlobalVector_Section_Private(DM dm,Vec *vec)
7{
8 PetscSection gSection;

--- 19 unchanged lines hidden (view full) ---

28 blockSize = 1;
29 break;
30 }
31 }
32 }
33
34 in[0] = -blockSize;
35 in[1] = blockSize;
36 ierr = MPIU_Allreduce(&in,&out,2,MPIU_INT,MPI_MAX,PetscObjectComm((PetscObject)dm));CHKERRQ(ierr);
36 ierr = MPIU_Allreduce(in,out,2,MPIU_INT,MPI_MAX,PetscObjectComm((PetscObject)dm));CHKERRQ(ierr);
37 /* -out[0] = min(blockSize), out[1] = max(blockSize) */
38 if (-out[0] == out[1]) {
39 bs = out[1];
40 } else bs = 1;
41
42 if (bs < 0) { /* Everyone was empty */
43 blockSize = 1;
44 bs = 1;

--- 186 unchanged lines hidden --- 		37 /* -out[0] = min(blockSize), out[1] = max(blockSize) */
38 if (-out[0] == out[1]) {
39 bs = out[1];
40 } else bs = 1;
41
42 if (bs < 0) { /* Everyone was empty */
43 blockSize = 1;
44 bs = 1;

--- 186 unchanged lines hidden ---