Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Nodes of different colours represent the following:
Solid arrows point from a procedure to one which it calls. Dashed
arrows point from an interface to procedures which implement that interface.
This could include the module procedures in a generic interface or the
implementation in a submodule of an interface in a parent module.
Source Code
subroutine StartMsg_MPI(comm)integer,optional::comminteger::comm_,sizeinteger::icomm_=MPI_COMM_WORLD;if(present(comm))comm_=commif(comm_/=Mpi_Comm_Null)thenrank=Get_Rank_MPI(comm_)size=Get_Size_MPI(comm_)if(rank==0)write(*,'(a)')"---------------MPI----------------"do i=0,size-1call MPI_Barrier(comm_,ierr)if(rank==i)write(*,"(A,I6,A,I6,A)")"rank:",rank," of ",size," alive"enddo call MPI_Barrier(comm_,ierr)if(rank==0)write(*,'(a)')"----------------------------------"if(rank==0)write(*,'(a)')""endif end subroutine StartMsg_MPI