sparse_double function

Create sparse double vector