Actual source code: ex5f.F

petsc-3.13.4 2020-08-01
Report Typos and Errors
  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*/