Actual source code: ex53f.F90
1: !
2: ! Program to test PetscSubcomm.
3: !
4: program main
6: #include <petsc/finclude/petscsys.h>
7: use petscsys
8: implicit none
10: PetscErrorCode ierr
11: PetscSubcomm r
12: PetscMPIInt rank,size
13: MPI_Comm scomm
15: PetscCallA(PetscInitialize(ierr))
16: PetscCallMPIA(MPI_Comm_size(PETSC_COMM_WORLD,size,ierr))
17: PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr))
18: PetscCallA(PetscSubcommCreate(PETSC_COMM_WORLD,r,ierr))
19: PetscCallA(PetscSubcommSetFromOptions(r,ierr))
20: PetscCallA(PetscSubcommSetTypeGeneral(r,rank,rank,ierr))
22: PetscCallA(PetscSubcommGetChild(r,scomm,ierr))
23: PetscCallA(PetscSubcommView(r,PETSC_VIEWER_STDOUT_WORLD,ierr))
24: PetscCallA(PetscSubcommDestroy(r,ierr))
25: PetscCallA(PetscFinalize(ierr))
26: end
28: !
29: !/*TEST
30: !
31: ! test:
32: ! nsize: 2
33: !
34: !TEST*/