1*c4762a1bSJed Brown! 2*c4762a1bSJed Brown! Simple PETSc Program written in Fortran 3*c4762a1bSJed Brown! 4*c4762a1bSJed Brown program main 5*c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 6*c4762a1bSJed Brown use petscsys 7*c4762a1bSJed Brown implicit none 8*c4762a1bSJed Brown 9*c4762a1bSJed Brown PetscErrorCode ierr 10*c4762a1bSJed Brown PetscInt f(1) 11*c4762a1bSJed Brown call PetscInitialize(PETSC_NULL_CHARACTER,ierr) 12*c4762a1bSJed Brown if (ierr .ne. 0) then 13*c4762a1bSJed Brown print*, 'Unable to begin PETSc program' 14*c4762a1bSJed Brown endif 15*c4762a1bSJed Brown 16*c4762a1bSJed Brown f(1) = 1 17*c4762a1bSJed Brown call MPI_Allreduce(MPI_IN_PLACE,f,1,MPIU_INTEGER,MPI_MIN,PETSC_COMM_WORLD,ierr) 18*c4762a1bSJed Brown call PetscFinalize(ierr) 19*c4762a1bSJed Brown end 20*c4762a1bSJed Brown 21*c4762a1bSJed Brown!/*TEST 22*c4762a1bSJed Brown! 23*c4762a1bSJed Brown! test: 24*c4762a1bSJed Brown! 25*c4762a1bSJed Brown!TEST*/ 26