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 test_get_num_cycles(this)class(MpiTestMethod),intent(inout)::thistype(DistributedMeter)::distributedtype(DistributedInteger)::distributed_num_cyclesdistributed=DistributedMeter(MpiTimerGauge())select case(this%getProcessRank())case(0)call distributed%add_cycle(1.0_REAL64)call distributed%add_cycle(3.0_REAL64)case(1)call distributed%add_cycle(2.0_REAL64)end select call distributed%reduce(this%getMpiCommunicator(),0._REAL64)distributed_num_cycles=distributed%get_stats_num_cycles()if(this%getProcessRank()==0)then! Some of these are meaningless/pointless@assertEqual(3,distributed_num_cycles%total)@assertEqual(1,distributed_num_cycles%min)@assertEqual(2,distributed_num_cycles%max)@assertEqual(1,distributed_num_cycles%min_pe)@assertEqual(0,distributed_num_cycles%max_pe)@assertEqual(2,distributed_num_cycles%num_pes)end if end subroutine test_get_num_cycles