1c4762a1bSJed Brown! 2c4762a1bSJed Brown! Simple PETSc Program written in Fortran 3c4762a1bSJed Brown! 4c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 5c5e229c2SMartin Diehlprogram main 6c4762a1bSJed Brown use petscsys 7c4762a1bSJed Brown implicit none 8c4762a1bSJed Brown PetscErrorCode ierr 9c4762a1bSJed Brown PetscInt f(1) 10*b06eb4cdSBarry Smith 11f8402805SBarry Smith PetscCallA(PetscInitialize(ierr)) 12c4762a1bSJed Brown f(1) = 1 13f8402805SBarry Smith PetscCallMPIA(MPI_Allreduce(MPI_IN_PLACE, f, 1, MPIU_INTEGER, MPI_MIN, PETSC_COMM_WORLD, ierr)) 14f8402805SBarry Smith PetscCallA(PetscFinalize(ierr)) 15c4762a1bSJed Brownend 16c4762a1bSJed Brown 17c4762a1bSJed Brown!/*TEST 18c4762a1bSJed Brown! 19c4762a1bSJed Brown! test: 203886731fSPierre Jolivet! output_file: output/empty.out 21c4762a1bSJed Brown! 22c4762a1bSJed Brown!TEST*/ 23