proc lrange(nk,theta);
/*
  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
*/ 
   lall=1;
   retp(1);
endp;