function retval = lsqgrad(x)
% usage:  y = lsqgrad(x)
% description: returns least squares
% function gradient

% no bulletproofing
retval = lsqjac(x)'*lsqvec(x);