pub unsafe extern "C" fn zherk_(
uplo: *mut c_char,
trans: *mut c_char,
n: *mut c_int,
k: *mut c_int,
alpha: *mut c_double,
a: *mut Rcomplex,
lda: *mut c_int,
Rf_beta: *mut c_double,
c: *mut Rcomplex,
ldc: *mut c_int,
)