(bind-func CmulR
(lambda (num1:gsl_complex* num2:double)
(let ((n1 (bitcast num1 |2,double|*))
(num3:gsl_complex* (alloc))
(n3 (bitcast num3 |2,double|*)))
(aset! n3 0 (* (aref n3 0) num2))
(aset! n3 1 (* (aref n3 1) num2))
num3)))