add functions rokko/rokko_sparse.f90