function tsp = tspmak(knotsx,knotsy,coefs)
%TSPMAK	Make a tensor product spline.
%
%        tsp = tspmak(knotsx,knotsy,coefs)
%
% stores the information about a (scalar-valued) tensor product spline in 
% B-form in the array  tsp

% Carl de Boor: Feb. 4, 1991
% Copyright (c) 1990-92 by Carl de Boor and The MathWorks, Inc.

[r,c] = size(coefs);
kx = length(knotsx) - r;
ky = length(knotsy) - c;
if (kx<1|ky<1), fprintf('incompatible input\n'),return,end

tsp = [21 r c coefs(:)' kx knotsx(:)' ky knotsy(:)']; 
