parallel_obj_Time Function

private function parallel_obj_Time() result(wtime)

Returns the elapsed time since an arbitrary origin. Note that different ranks return different WTIMEs.

Type Bound

parallel_obj

Arguments

None

Return Value real(kind=wp)

Elasped time since arbitrary origin


Calls

proc~~parallel_obj_time~~CallsGraph proc~parallel_obj_time parallel_obj%parallel_obj_Time mpi_wtime mpi_wtime proc~parallel_obj_time->mpi_wtime

Source Code

    function parallel_obj_Time() result(wtime)
      !> Returns the elapsed time since an arbitrary origin. Note that
      ! different ranks return different WTIMEs.
      implicit none
      real(wp) :: wtime                                                        !! Elasped time since arbitrary origin

      wtime = MPI_WTIME()

      return
    end function parallel_obj_time