get_time Function

public function get_time() result(time)

Get current time

Arguments

None

Return Value real(kind=dp)

Contents

Source Code

get_time

Source Code

function get_time() result(time)

    real(dp) :: time

#if defined USE_OPENMP
    time = omp_get_wtime()
#else
    call cpu_time(time)
#endif

end function get_time