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