measure_scatter_22 Subroutine

private subroutine measure_scatter_22(map, gin, gout)

Uses

FIXME : Add documentation

Arguments

Type IntentOptional Attributes Name
type(redist_type), intent(inout) :: map
complex, intent(in), dimension (:,:) :: gin
complex, intent(out), dimension (:,:) :: gout

Contents

Source Code


Source Code

  subroutine measure_scatter_22 (map, gin, gout)
    use job_manage, only: time_message
    use mp, only: get_mp_times
    implicit none
    type (redist_type), intent (in out) :: map
    complex, dimension (:,:), intent (in) :: gin
    complex, dimension (:,:), intent (out) :: gout
    real :: mp_total, mp_total_after
    if (using_measure_scatter) then
       call time_message(.false.,time_redist,' Redistribution')
       call get_mp_times(total_time = mp_total)
    end if

    call c_redist_22_inv (map, gin, gout)
    if (using_measure_scatter) then
       call time_message(.false.,time_redist,' Redistribution')
       call get_mp_times(total_time = mp_total_after)
       time_redist_mpi = time_redist_mpi + (mp_total_after - mp_total)
    end if

    scatter_count = scatter_count + 1

  end subroutine measure_scatter_22