%  This function indicates whether or not a parameter vector (as
%  reparameterized in repar) is in the support of the prior
%  Inputs:
%  nk         Number of parameters in the vector
%  theta      Parameter vector
%  Outputs:
%  lall       Set 1 if theta in Euclidean nk-space is in the
%             support of the prior; otherwise set 0
%  lrange     Set 1 if theta is in the support of the prior, else 0
function lrange=lrange(nk,theta);
   global lall;
   lall=1;
   lrange=1;
end;