set_val_real_int32 Subroutine

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

Type Bound

shared_ragged_array_real_t

Arguments

Type IntentOptional Attributes Name
class(shared_ragged_array_real_t), intent(inout) :: this
integer(kind=int32), intent(in) :: i
integer(kind=int32), intent(in) :: j
real(kind=dp), intent(in) :: val

Source Code

    subroutine set_val_real_int32(this, i, j, val)
        class(shared_ragged_array_real_t), intent(inout) :: this
        integer(int32), intent(in) :: i, j
        real(dp), intent(in) :: val

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