FIXME : Add documentation
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(redist_type), | intent(inout) | :: | map | |||
complex, | intent(in), | dimension (:,:) | :: | gin | ||
complex, | intent(out), | dimension (:,:) | :: | gout |
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