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