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
function make_BW_Benchmark(spec,comm,rc)result(benchmark)type(BW_Benchmark)::benchmarktype(BW_BenchmarkSpec),intent(in)::specinteger,intent(in)::comminteger,optional,intent(out)::rcinteger::statusinteger::rankassociate(packet_size=>int(spec%nx,kind=INT64)**2*6*spec%n_levs/spec%n_writers)allocate(benchmark%buffer(packet_size),_STAT)call random_number(benchmark%buffer)end associate call MPI_Comm_rank(comm,rank,status)_VERIFY(status)benchmark%filename=make_filename(base='scratch.',rank=rank,width=5,_RC)_RETURN(_SUCCESS)end function make_BW_Benchmark