function [MATRIX] = f_vec2mat(VECTOR,nl,nc)

% convert 1D set of blocks into 2D set of blocks ...
[n,m] = size(VECTOR);

if n*m ~= nc * nl, 
    disp('error! dimension missmatch...');
    break;
end;

MATRIX = [VECTOR(:, 1:nc)];

for k = 2 : nl / n,
    MATRIX = [MATRIX; VECTOR(:, (k-1)*nc + 1 : k*nc)];
end;