55 fprintf( stderr,
"core_dlrnrm: Only the Frobenius norm is available for now\n");
61 return LAPACKE_dlange_work( LAPACK_COL_MAJOR,
'f',
62 M, N, A->
u, M, NULL );
64 else if ( A->
rk == 0 ) {
70 normU = LAPACKE_dlange_work( LAPACK_COL_MAJOR,
'f',
71 M, A->
rk, A->
u, M, NULL );
73 normV = LAPACKE_dlange_work( LAPACK_COL_MAJOR,
'f',
77 normV = LAPACKE_dlange_work( LAPACK_COL_MAJOR,
'f',
78 N, A->
rk, A->
v, N, NULL );
BEGIN_C_DECLS typedef int pastix_int_t
The block low-rank structure to hold a matrix in low-rank form.
double core_dlrnrm(pastix_normtype_t ntype, int transV, pastix_int_t M, pastix_int_t N, const pastix_lrblock_t *A)
Compute the norm of a low-rank matrix.
enum pastix_normtype_e pastix_normtype_t
Norms.