Actual source code: ex7f.F

  1: !
  2: !
  3: !     Formatted test for PetscSetCommWorld()
  4: !
  5:        program main
 6:  #include finclude/petsc.h

  8:       PetscMPIInt size
  9:       PetscErrorCode ierr

 11:       call MPI_Init(ierr)
 12:       call PetscSetCommWorld(MPI_COMM_SELF,ierr)
 13:       call PetscInitialize(PETSC_NULL_CHARACTER,ierr)
 14: 
 15:       call MPI_Comm_size(PETSC_COMM_WORLD,size,ierr)
 16:       if (size .ne. 1) then
 17:         print*,'main:Error from PetscSetCommWorld()'
 18:       endif

 20:       call PetscFinalize(ierr)
 21:       call MPI_Finalize(ierr)
 22:       end