Actual source code: ex5f.F

petsc-3.7.2 2016-06-05
Report Typos and Errors
  1: !
  2: !  Simple PETSc Program written in Fortran 77.
  3: !
  4:        program main
  5: #include <petsc/finclude/petscsys.h>
  6:        PetscErrorCode  ierr
  7:        PetscMPIInt     rank
  8:        character*(80) arch

 10:        call PetscInitialize(PETSC_NULL_CHARACTER,ierr)

 12:        if (ierr .ne. 0) then
 13:          print*, 'Unable to begin PETSc program'
 14:        endif

 16:        call MPI_Comm_rank(PETSC_COMM_WORLD,rank,ierr)
 17:        print*, 'Greetings from', rank

 19:        call PetscGetArchType(arch,ierr)
 20:        print*, 'Machine type ',arch

 22:        call PetscFinalize(ierr)
 23:        end