finished C code for bayesian group lasso, call from R