Actual source code: ex5f.F90

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