(bind-func Ccsc
(lambda (num1:gsl_complex*)
(let ((num3:gsl_complex* (alloc))
(cres (gsl_complex_csc (pref num1 0)))
(res (tref cres 0)))
(aset! (tref-ptr num3 0) 0 (aref res 0))
(aset! (tref-ptr num3 0) 1 (aref res 1))
num3)))