Mentions légales du service

Skip to content
Snippets Groups Projects
Commit 6a293833 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Update the geadd kernel to a more generic function, adn move a step forward in LR3 version

parent 04ca5f13
No related branches found
No related tags found
Loading
......@@ -374,7 +374,9 @@ z_spmCheckAxb( int nrhs,
*/
if ( x0 != NULL ) {
normX0 = LAPACKE_zlange( LAPACK_COL_MAJOR, 'I', spm->n, nrhs, x0, ldx0 );
core_zgeadd( PastixNoTrans, spm->n, nrhs, -1., x, ldx, x0, ldx0 );
core_zgeadd( PastixNoTrans, spm->n, nrhs,
-1., x, ldx,
1., x0, ldx0 );
normR = LAPACKE_zlange( LAPACK_COL_MAJOR, 'I', spm->n, nrhs, x0, ldx0 );
forward = normR / normX0;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment