test_accumulate_multi Subroutine

public subroutine test_accumulate_multi()

Arguments

None

Calls

proc~~test_accumulate_multi~~CallsGraph proc~test_accumulate_multi test_accumulate_multi none~accumulate~4 BaseProfiler%accumulate proc~test_accumulate_multi->none~accumulate~4 none~finalize~6 BaseProfiler%finalize proc~test_accumulate_multi->none~finalize~6 none~reset~31 BaseProfiler%reset proc~test_accumulate_multi->none~reset~31 none~start~85 TimeProfiler%start proc~test_accumulate_multi->none~start~85 accumulate accumulate none~accumulate~4->accumulate none~back~64 MeterNodeStack%back none~accumulate~4->none~back~64 none~get_root_node BaseProfiler%get_root_node none~accumulate~4->none~get_root_node none~finalize~2 AbstractMeter%finalize none~finalize~6->none~finalize~2 none~get_meter~4 MeterNode%get_meter none~finalize~6->none~get_meter~4 none~pop_back~63 MeterNodeStack%pop_back none~finalize~6->none~pop_back~63 begin begin none~reset~31->begin get_meter get_meter none~reset~31->get_meter next next none~reset~31->next none~reset~31->none~get_root_node none~start~17 BaseProfiler%start none~reset~31->none~start~17 reset reset none~reset~31->reset none~start_self BaseProfiler%start_self none~start~85->none~start_self mpi_op_free mpi_op_free none~finalize~2->mpi_op_free mpi_type_free mpi_type_free none~finalize~2->mpi_type_free proc~mapl_verify MAPL_Verify none~finalize~2->proc~mapl_verify none~start_self->none~start~17 interface~mapl_assert MAPL_Assert none~start_self->interface~mapl_assert none~get_name~8 MeterNode%get_name none~start_self->none~get_name~8 proc~mapl_return MAPL_Return none~start_self->proc~mapl_return none~start~17->none~start_self at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   subroutine test_accumulate_multi()
      type(TimeProfiler), target :: main, lap

      main = TimeProfiler('main')
      call main%start()
      lap = TimeProfiler('lap')
      call lap%start()
      call lap%start('A')
      call lap%stop('A')
      call lap%finalize()
      call main%accumulate(lap)

      call lap%reset()
      call lap%start('A')
      call lap%stop('A')
      call lap%finalize()
      call main%accumulate(lap)
      
      
   end subroutine test_accumulate_multi