get_mp_times Subroutine

public subroutine get_mp_times(total_time, overheads_time, collectives_time, ptp_time, sync_time)

Returns current requested timer values

Arguments

Type IntentOptional Attributes Name
real, intent(out), optional :: total_time
real, intent(out), optional :: overheads_time
real, intent(out), optional :: collectives_time
real, intent(out), optional :: ptp_time
real, intent(out), optional :: sync_time

Contents

Source Code

get_mp_times

Source Code

  subroutine get_mp_times(total_time, overheads_time, collectives_time, ptp_time, sync_time)
    implicit none
    real, intent(out), optional :: total_time, overheads_time, collectives_time, ptp_time, sync_time

    if (present(total_time)) then
       total_time = time_mp_other(1) + time_mp_collectives(1) + &
            time_mp_ptp(1) + time_mp_sync(1)
    end if

    if (present(overheads_time)) overheads_time = time_mp_other(1)
    if (present(collectives_time)) collectives_time = time_mp_collectives(1)
    if (present(ptp_time)) ptp_time = time_mp_ptp(1)
    if (present(sync_time)) sync_time = time_mp_sync(1)
  end subroutine get_mp_times