1c4762a1bSJed Brown! Synchronized printing: Fortran Example 2c4762a1bSJed Brown#include <petsc/finclude/petscsys.h> 3*c5e229c2SMartin Diehlprogram main 48c8af28eSPedro Ricardo C. Souza use petscmpi ! or mpi or mpi_f08 5c4762a1bSJed Brown use petscsys 6c4762a1bSJed Brown 7c4762a1bSJed Brown implicit none 8c4762a1bSJed Brown PetscErrorCode :: ierr 9f8402805SBarry Smith PetscMPIInt :: rank, size 1062ac926dSPierre Jolivet character(len=PETSC_MAX_PATH_LEN) :: outputString 11c4762a1bSJed Brown 12c4762a1bSJed Brown ! Every PETSc program should begin with the PetscInitialize() routine. 13c4762a1bSJed Brown 14d8606c27SBarry Smith PetscCallA(PetscInitialize(ierr)) 15c4762a1bSJed Brown 16c4762a1bSJed Brown ! The following MPI calls return the number of processes 17c4762a1bSJed Brown ! being used and the rank of this process in the group 18c4762a1bSJed Brown 19f8402805SBarry Smith PetscCallMPIA(MPI_Comm_size(MPI_COMM_WORLD, size, ierr)) 20f8402805SBarry Smith PetscCallMPIA(MPI_Comm_rank(MPI_COMM_WORLD, rank, ierr)) 21c4762a1bSJed Brown 22c4762a1bSJed Brown ! Here we would like to print only one message that represents 23c4762a1bSJed Brown ! all the processes in the group 24f8402805SBarry Smith write (outputString, *) 'No of Processors = ', size, ', rank = ', rank, '\n' 25f8402805SBarry Smith PetscCallA(PetscPrintf(PETSC_COMM_WORLD, outputString, ierr)) 26c4762a1bSJed Brown 27f8402805SBarry Smith write (outputString, *) rank, 'Synchronized Hello World\n' 28f8402805SBarry Smith PetscCallA(PetscSynchronizedPrintf(PETSC_COMM_WORLD, outputString, ierr)) 29f8402805SBarry Smith 30f8402805SBarry Smith write (outputString, *) rank, 'Synchronized Hello World - Part II\n' 31f8402805SBarry Smith PetscCallA(PetscSynchronizedPrintf(PETSC_COMM_WORLD, outputString, ierr)) 32f8402805SBarry Smith PetscCallA(PetscSynchronizedFlush(PETSC_COMM_WORLD, PETSC_STDOUT, ierr)) 33f8402805SBarry Smith 34c4762a1bSJed Brown ! Here a barrier is used to separate the two program states. 35f8402805SBarry Smith PetscCallMPIA(MPI_Barrier(PETSC_COMM_WORLD, ierr)) 36c4762a1bSJed Brown 37f8402805SBarry Smith write (outputString, *) rank, 'Jumbled Hello World\n' 38f8402805SBarry Smith PetscCallA(PetscPrintf(PETSC_COMM_SELF, outputString, ierr)) 39c4762a1bSJed Brown 40f8402805SBarry Smith PetscCallA(PetscFinalize(ierr)) 41c4762a1bSJed Brownend program main 42c4762a1bSJed Brown 43c4762a1bSJed Brown!/*TEST 44c4762a1bSJed Brown! 45c4762a1bSJed Brown! test: 46c4762a1bSJed Brown! 47c4762a1bSJed Brown!TEST*/ 48