time Function

function time(kernel, comm, rc)

Arguments

Type IntentOptional Attributes Name
class(Kernel_T), intent(in) :: kernel
integer, intent(in) :: comm
integer, intent(out), optional :: rc

Return Value real


Calls

proc~~time~3~~CallsGraph proc~time~3 time mpi_barrier mpi_barrier proc~time~3->mpi_barrier mpi_wtime mpi_wtime proc~time~3->mpi_wtime proc~mapl_return MAPL_Return proc~time~3->proc~mapl_return proc~mapl_verify MAPL_Verify proc~time~3->proc~mapl_verify run run proc~time~3->run at at proc~mapl_return->at insert insert proc~mapl_return->insert proc~mapl_throw_exception MAPL_throw_exception proc~mapl_return->proc~mapl_throw_exception proc~mapl_verify->proc~mapl_throw_exception

Source Code

   real function time(kernel, comm, rc)
      class(Kernel_T), intent(in) :: kernel
      integer, intent(in) :: comm
      integer, optional, intent(out) :: rc

      integer :: status
      real :: t0, t1

      call MPI_Barrier(comm, status)
      _VERIFY(status)
      t0 = MPI_Wtime()
      call kernel%run(_RC)
      call MPI_Barrier(comm, status)
      _VERIFY(status)
      t1 = MPI_Wtime()

      time = t1 - t0

      _RETURN(_SUCCESS)
   end function time