sf_double_complex sf_dcrmul(sf_double_complex a, double b) /*< complex by real multiplication >*/ { ... }