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