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