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