1! 2! Simple PETSc Program written in Fortran 3! 4 program main 5#include <petsc/finclude/petscsys.h> 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 19 100 format (' PETSC_ARCH ',A) 20 21 PetscCallA(PetscFinalize(ierr)) 22 end 23 24! 25!/*TEST 26! 27! test: 28! filter: grep -v PETSC_ARCH 29! 30!TEST*/ 31