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