!! Modified from ex52f.F for testing PETSc : Hello World
!! PETSc Hello World  : Oct 26, 2015 : Ajit Desai
!!-------------------------------------------------------

program main
implicit none

#include <petsc/finclude/petscsys.h>

PetscInt         rank, size
PetscErrorCode   ierr

    call PetscInitialize(PETSC_NULL_CHARACTER,ierr)

    call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr)
    call MPI_Comm_size(PETSC_COMM_WORLD,size,ierr)

    WRITE(*,*) 'Hello from PETSc World, rank:',rank, &
    ' of total',size,' processes.'

    call PetscFinalize(ierr)

end
!!-------------------------------------------------------