;; make a vector from an array of doubles
;; number of doubles is elements
(bind-func Vmk
(lambda (ptr:double* elements:size_t)
(let ((v1 (Valloc elements))
(i:size_t 0))
(dotimes (i elements)
(gsl_vector_set v1 i (pref ptr i)))
v1)))