pub unsafe extern "C" fn drotg_( a: *mut c_double, b: *mut c_double, c: *mut c_double, s: *mut c_double, )