set_val_int64_int64 Subroutine

private subroutine set_val_int64_int64(this, i, j, val)

Type Bound

shared_ragged_array_int64_t

Arguments

Type IntentOptional Attributes Name
class(shared_ragged_array_int64_t), intent(inout) :: this
integer(kind=int64), intent(in) :: i
integer(kind=int64), intent(in) :: j
integer(kind=int64), intent(in) :: val

Source Code

    subroutine set_val_int64_int64(this, i, j, val)
        class(shared_ragged_array_int64_t), intent(inout) :: this
        integer(int64), intent(in) :: i, j
        integer(int64), intent(in) :: val

        this%ptr(i)%res(j) = val
    end subroutine set_val_int64_int64