Actual source code: ex7f.F

  1: !
  2: ! "$Id: ex7f.F,v 1.7 2000/09/27 20:04:43 bsmith Exp $";
  3: !
  4: !
  5: !     Formatted test for PetscSetCommWorld()
  6: !
  7:        program main
 8:  #include finclude/petsc.h

 10:       integer size,ierr

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

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