w90_print_timings Subroutine

public subroutine w90_print_timings(common_data, istdout)

Uses

  • proc~~w90_print_timings~~UsesGraph proc~w90_print_timings w90_print_timings module~w90_comms w90_comms proc~w90_print_timings->module~w90_comms module~w90_io w90_io proc~w90_print_timings->module~w90_io module~w90_constants w90_constants module~w90_comms->module~w90_constants module~w90_error_base w90_error_base module~w90_comms->module~w90_error_base module~w90_io->module~w90_constants

Arguments

Type IntentOptional Attributes Name
type(lib_common_type), intent(inout) :: common_data
integer, intent(in) :: istdout

Calls

proc~~w90_print_timings~~CallsGraph proc~w90_print_timings w90_print_timings proc~io_print_timings io_print_timings proc~w90_print_timings->proc~io_print_timings proc~mpirank mpirank proc~w90_print_timings->proc~mpirank

Source Code

  subroutine w90_print_timings(common_data, istdout)
    use w90_comms, only: mpisize, mpirank
    use w90_io, only: io_print_timings

    implicit none

    ! arguments
    integer, intent(in) :: istdout
    type(lib_common_type), intent(inout) :: common_data

    ! io_print_timings does not test for iprint or rank being root
    ! adopt latter condition here--iprint irrelevant when this function is explicitly requested
    if (mpirank(common_data%comm) == 0) then
      call io_print_timings(common_data%timer, istdout)
    end if
  end subroutine w90_print_timings