get_partial_concat_left_val Subroutine

  pure subroutine get_partial_concat_left_val(this, upstream_grad, output)
    implicit none
    class(array_type), intent(in) :: this
    real(real32), dimension(:,:), intent(in) :: upstream_grad
    real(real32), dimension(:,:), intent(out) :: output

    if(this%indices(1).eq.1)then
       output = upstream_grad(1:size(this%left_operand%val,1), :)
    else
       output = upstream_grad(:, 1:size(this%left_operand%val,2))
    end if

  end subroutine get_partial_concat_left_val