reassign_pointers_int32 Subroutine

private subroutine reassign_pointers_int32(this)

Type Bound

shared_ragged_array_int32_t

Arguments

Type IntentOptional Attributes Name
class(shared_ragged_array_int32_t), intent(inout) :: this

Contents


Source Code

    subroutine reassign_pointers_int32(this)
        class(shared_ragged_array_int32_t), intent(inout) :: this
        integer(int64) :: n_entries
        integer(int64) :: i, win_start, win_end

        n_entries = size(this%store_sizes, kind=int64)
        win_start = 1
        do i = 1, n_entries
            win_end = win_start - 1 + this%store_sizes(i)
            this%ptr(i)%res => this%data_array%ptr(win_start:win_end)
            win_start = win_end + 1
        end do
    end subroutine reassign_pointers_int32