Commit abcb0f82 authored by Mathieu Faverge's avatar Mathieu Faverge

Fix matrix size for norm (Thanks @muxas)

parent 1f14c6b2
......@@ -436,7 +436,7 @@ void chameleon_pzlange_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_dia
alpha = 1.;
chameleon_desc_init( &Welt, CHAMELEON_MAT_ALLOC_GLOBAL, ChamRealDouble, 2, 1, 2,
workmt*2, workn, 0, 0, workmt*2, workn, A->p, A->q,
workmt*2, worknt, 0, 0, workmt*2, worknt, A->p, A->q,
NULL, NULL, NULL );
break;
......@@ -448,7 +448,7 @@ void chameleon_pzlange_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_dia
RUNTIME_options_ws_alloc( &options, 1, 0 );
chameleon_desc_init( &Welt, CHAMELEON_MAT_ALLOC_GLOBAL, ChamRealDouble, 1, 1, 1,
workmt, workn, 0, 0, workmt, workn, A->p, A->q,
workmt, worknt, 0, 0, workmt, worknt, A->p, A->q,
NULL, NULL, NULL );
}
......
......@@ -353,7 +353,7 @@ void chameleon_pzlansy_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_tra
alpha = 1.;
chameleon_desc_init( &Welt, CHAMELEON_MAT_ALLOC_GLOBAL, ChamRealDouble, 2, 1, 2,
workmt*2, workn, 0, 0, workmt*2, workn, A->p, A->q,
workmt*2, worknt, 0, 0, workmt*2, worknt, A->p, A->q,
NULL, NULL, NULL );
break;
......@@ -365,7 +365,7 @@ void chameleon_pzlansy_generic( cham_normtype_t norm, cham_uplo_t uplo, cham_tra
RUNTIME_options_ws_alloc( &options, 1, 0 );
chameleon_desc_init( &Welt, CHAMELEON_MAT_ALLOC_GLOBAL, ChamRealDouble, 1, 1, 1,
workmt, workn, 0, 0, workmt, workn, A->p, A->q,
workmt, worknt, 0, 0, workmt, worknt, A->p, A->q,
NULL, NULL, NULL );
}
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment