mg_timer_end Subroutine

public subroutine mg_timer_end(timer)

Uses

  • proc~~mg_timer_end~3~~UsesGraph proc~mg_timer_end~3 mg_timer_end mpi mpi proc~mg_timer_end~3->mpi

Arguments

Type IntentOptional Attributes Name
type(mg_timer_t), intent(inout) :: timer

Calls

proc~~mg_timer_end~3~~CallsGraph proc~mg_timer_end~3 mg_timer_end mpi_wtime mpi_wtime proc~mg_timer_end~3->mpi_wtime

Called by

proc~~mg_timer_end~3~~CalledByGraph proc~mg_timer_end~3 mg_timer_end proc~mg_fas_fmg~3 mg_fas_fmg proc~mg_fas_fmg~3->proc~mg_timer_end~3 proc~mg_fas_vcycle~3 mg_fas_vcycle proc~mg_fas_fmg~3->proc~mg_fas_vcycle~3 proc~mg_fas_vcycle~3->proc~mg_timer_end~3 proc~smooth_boxes~3 smooth_boxes proc~mg_fas_vcycle~3->proc~smooth_boxes~3 proc~smooth_boxes~3->proc~mg_timer_end~3 proc~diffusion_solve_acoeff~3 diffusion_solve_acoeff proc~diffusion_solve_acoeff~3->proc~mg_fas_fmg~3 proc~diffusion_solve_acoeff~3->proc~mg_fas_vcycle~3 proc~diffusion_solve_vcoeff~3 diffusion_solve_vcoeff proc~diffusion_solve_vcoeff~3->proc~mg_fas_fmg~3 proc~diffusion_solve_vcoeff~3->proc~mg_fas_vcycle~3 proc~diffusion_solve~3 diffusion_solve proc~diffusion_solve~3->proc~mg_fas_fmg~3 proc~diffusion_solve~3->proc~mg_fas_vcycle~3

Source Code

  subroutine mg_timer_end(timer)
    use mpi
    type(mg_timer_t), intent(inout) :: timer
    timer%t = timer%t + mpi_wtime() - timer%t0
  end subroutine mg_timer_end