1! 2! Simple PETSc Program written in Fortran 3! 4#include <petsc/finclude/petscsys.h> 5program main 6 use petscsys 7 implicit none 8 9 PetscErrorCode ierr 10 PetscMPIInt rank 11 character*(80) arch 12 13 PetscCallA(PetscInitialize(ierr)) 14 PetscCallMPIA(MPI_Comm_rank(PETSC_COMM_WORLD, rank, ierr)) 15 print *, 'Greetings from rank', rank 16 17 PetscCallA(PetscGetArchType(arch, ierr)) 18 write (6, 100) arch 19100 format(' PETSC_ARCH ', A) 20 21 PetscCallA(PetscFinalize(ierr)) 22end 23 24! 25!/*TEST 26! 27! test: 28! filter: grep -v PETSC_ARCH 29! 30!TEST*/ 31