1c4762a1bSJed Brown! 2c4762a1bSJed Brown! Simple PETSc Program written in Fortran 3c4762a1bSJed Brown! 4c4762a1bSJed Brown program main 5c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 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) 12*f8402805SBarry Smith PetscCallA(PetscInitialize(ierr)) 13c4762a1bSJed Brown f(1) = 1 14*f8402805SBarry Smith PetscCallMPIA(MPI_Allreduce(MPI_IN_PLACE,f,1,MPIU_INTEGER,MPI_MIN,PETSC_COMM_WORLD,ierr)) 15*f8402805SBarry Smith PetscCallA(PetscFinalize(ierr)) 16c4762a1bSJed Brown end 17c4762a1bSJed Brown 18c4762a1bSJed Brown!/*TEST 19c4762a1bSJed Brown! 20c4762a1bSJed Brown! test: 21c4762a1bSJed Brown! 22c4762a1bSJed Brown!TEST*/ 23