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*/