spreadwork()

subroutine parautil::spreadwork	(	integer, intent(in)	nit,
		integer, intent(in)	nunits,
		integer, dimension(:), intent(out), allocatable	scheduling,
		integer, dimension(:,:), intent(out), allocatable	looping,
		integer, intent(in)	startpoint
	)

Definition at line 163 of file ompi_kronlininv.f08.

    integer,intent(in) :: nit,nunits,startpoint
    integer,allocatable,intent(out) :: scheduling(:),looping(:,:)
    integer :: i,nitcpu,resto
    if (nit<=nunits) then
       write(*,*) myrank,": spredwork(): nit<=nunits"
       write(*,*) nit,nunits
       stop
    end if
    if (allocated(scheduling) ) deallocate(scheduling)
    if (allocated(looping)) deallocate(looping)
    allocate(scheduling(nunits),looping(nunits,2))

    !! compute distribution of workload for Nb
    nitcpu = nit/nunits
    scheduling(:) = nitcpu
    resto = mod(nit,nunits)

    !! spread the remaining workload
    scheduling(1:resto) = scheduling(1:resto) + 1
    looping(1,:) = [startpoint,startpoint+scheduling(1)-1] 
    do i=2,nunits
       looping(i,1) = sum(scheduling(1:i-1)) + startpoint
       looping(i,2) = sum(scheduling(1:i)) + startpoint - 1
    end do

    !!print*,myrank,": loop 1",looping(:,1),&
    !! "| loop 2",looping(:,2)," | sched ",scheduling

Here is the caller graph for this function: