pub unsafe extern fn dporfs_(uplo: *const c_char,
n: *const lapack_int,
nrhs: *const lapack_int,
a: *const c_double,
lda: *const lapack_int,
af: *const c_double,
ldaf: *const lapack_int,
b: *const c_double,
ldb: *const lapack_int,
x: *mut c_double,
ldx: *const lapack_int,
ferr: *mut c_double,
berr: *mut c_double,
work: *mut c_double,
iwork: *mut lapack_int,
info: *mut lapack_int)