io_time Function

public function io_time()

Uses

  • proc~~io_time~~UsesGraph proc~io_time io_time module~w90_constants w90_constants proc~io_time->module~w90_constants

Returns elapsed CPU time in seconds since its first call. Uses standard f90 call

Arguments

None

Return Value real(kind=dp)


Called by

proc~~io_time~~CalledByGraph proc~io_time io_time proc~dis_extract_gamma dis_extract_gamma proc~dis_extract_gamma->proc~io_time proc~plot_fermi_surface plot_fermi_surface proc~plot_fermi_surface->proc~io_time proc~plot_interpolate_bands plot_interpolate_bands proc~plot_interpolate_bands->proc~io_time proc~wann_main_gamma wann_main_gamma proc~wann_main_gamma->proc~io_time program~postw90 postw90 program~postw90->proc~io_time program~wannier wannier program~wannier->proc~io_time proc~w90_wannierise~2 w90_wannierise program~wannier->proc~w90_wannierise~2 proc~w90_disentangle~2 w90_disentangle program~wannier->proc~w90_disentangle~2 proc~w90_plot w90_plot program~wannier->proc~w90_plot proc~dis_main dis_main proc~dis_main->proc~dis_extract_gamma proc~plot_main plot_main proc~plot_main->proc~plot_fermi_surface proc~plot_main->proc~plot_interpolate_bands proc~w90_wannierise~2->proc~wann_main_gamma proc~w90_disentangle~2->proc~dis_main proc~w90_plot->proc~plot_main proc~w90_wannierise w90_wannierise proc~w90_wannierise->proc~w90_wannierise~2 proc~w90_disentangle w90_disentangle proc~w90_disentangle->proc~w90_disentangle~2

Source Code

  function io_time()
    !================================================
    !
    !! Returns elapsed CPU time in seconds since its first call.
    !! Uses standard f90 call
    !
    !================================================
    use w90_constants, only: dp
    implicit none

    real(kind=dp) :: io_time

    ! t0 contains the time of the first call
    ! t1 contains the present time
    real(kind=dp) :: t0, t1
    logical :: first = .true.
    save first, t0
    !
    call cpu_time(t1)
    !
    if (first) then
      t0 = t1
      io_time = 0.0_dp
      first = .false.
    else
      io_time = t1 - t0
    end if
    return
  end function io_time