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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
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.
Where possible, edges connecting nodes are
given different colours to make them easier to distinguish in
large graphs.
Source Code
subroutine initialize_mpi(this,unusable,rc)class(ExtDataDriver),intent(inout)::thisclass(KeywordEnforcer),optional,intent(in)::unusableinteger,optional,intent(out)::rcinteger::ierrorinteger::npes_world_UNUSED_DUMMY(unusable)call MPI_Init(ierror)_VERIFY(ierror)this%comm_world=MPI_COMM_WORLDcall MPI_Comm_rank(this%comm_world,this%rank,ierror);_VERIFY(ierror)call MPI_Comm_size(this%comm_world,npes_world,ierror);_VERIFY(ierror)if(this%cap_options%npes_model==-1)then! just a feed back to cap_options to maintain integritythis%cap_options%npes_model=npes_worldendif_ASSERT(npes_world>=this%cap_options%npes_model,"npes_world is smaller than npes_model")_RETURN(_SUCCESS)end subroutine initialize_mpi