% puts the given tensor ts into the subtensor of t specified by the
% given index ranges; a range argument can be ':' (alas, with quotes)
% to denote the whole range; warning: matrix outputs are still
% represented as tensors; use tgetmatrix to get a regular matrix

function t = tputsubtensor(ts,t,ir,jr,kr)

[r,c] = tstorage(t,ir,jr,kr);
t(r,c) = ts(:,1:(size(ts,2)-1));
