Mentions légales du service

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

Use pointer arithmetic as in cudablas version

parent f477bf60
No related branches found
No related tags found
1 merge request!20Fix for the TPMQRT routine
...@@ -3,9 +3,8 @@ ...@@ -3,9 +3,8 @@
* @copyright (c) 2009-2014 The University of Tennessee and The University * @copyright (c) 2009-2014 The University of Tennessee and The University
* of Tennessee Research Foundation. * of Tennessee Research Foundation.
* All rights reserved. * All rights reserved.
* @copyright (c) 2012-2014 Inria. All rights reserved. * @copyright (c) 2012-2017 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria,
* @copyright (c) 2012-2014 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved. * Univ. Bordeaux. All rights reserved.
*
**/ **/
/** /**
...@@ -247,10 +246,10 @@ int CORE_zttmqr(MORSE_enum side, MORSE_enum trans, ...@@ -247,10 +246,10 @@ int CORE_zttmqr(MORSE_enum side, MORSE_enum trans,
CORE_zparfb( CORE_zparfb(
side, trans, MorseForward, MorseColumnwise, side, trans, MorseForward, MorseColumnwise,
mi1, ni1, mi2, ni2, kb, l, mi1, ni1, mi2, ni2, kb, l,
&A1[LDA1*jc+ic], LDA1, A1 + LDA1*jc+ic, LDA1,
A2, LDA2, A2, LDA2,
&V[LDV*i], LDV, V + LDV*i, LDV,
&T[LDT*i], LDT, T + LDT*i, LDT,
WORK, LDWORK); WORK, LDWORK);
} }
return MORSE_SUCCESS; return MORSE_SUCCESS;
......
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