io_time Function

  1. io.F90
  2. w90_io
  3. io_time

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~wannier_run wannier_run proc~wannier_run->proc~io_time proc~wann_main_gamma wann_main_gamma proc~wannier_run->proc~wann_main_gamma proc~dis_main dis_main proc~wannier_run->proc~dis_main program~postw90 postw90 program~postw90->proc~io_time proc~dis_extract_gamma dis_extract_gamma proc~dis_extract_gamma->proc~io_time proc~wann_main_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 program~wannier wannier program~wannier->proc~io_time program~wannier->proc~wann_main_gamma program~wannier->proc~dis_main proc~wannier_setup wannier_setup proc~wannier_setup->proc~io_time proc~dis_main->proc~dis_extract_gamma

Contents

Source Code

io_time

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
    endif
    return
  end function io_time