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: call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
14: if (ierr .ne. 0) then
15: print*, 'Unable to begin PETSc program'
16: endif
18: call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr)
19: print*, 'Greetings from rank', rank
21: call PetscGetArchType(arch,ierr)
22: write(6,100) arch
23: 100 format (' PETSC_ARCH ',A)
25: call PetscFinalize(ierr)
26: end
28: !
29: !/*TEST
30: !
31: ! test:
32: ! filter: grep -v PETSC_ARCH
33: !
34: !TEST*/