Commit 2f9dd95a authored by Mathieu Faverge's avatar Mathieu Faverge

Small changes to fix documentation and/or code

parent f343a4fa
......@@ -18,7 +18,7 @@
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2011-06-14
* @date 2018-11-09
* @precisions normal z -> c d s
*
*/
......@@ -139,7 +139,8 @@
*/
/* This kernel is never traced so return type on previous line for convert2eztrace.pl script */
int
CORE_zparfb(cham_side_t side, cham_trans_t trans, cham_dir_t direct, cham_store_t storev,
CORE_zparfb(cham_side_t side, cham_trans_t trans,
cham_dir_t direct, cham_store_t storev,
int M1, int N1, int M2, int N2, int K, int L,
CHAMELEON_Complex64_t *A1, int LDA1,
CHAMELEON_Complex64_t *A2, int LDA2,
......
......@@ -13,7 +13,7 @@
*
* @version 1.0.0
* @author Mathieu Faverge
* @date 2016-12-15
* @date 2018-11-09
* @precisions normal z -> c d s
*
*/
......@@ -24,9 +24,11 @@
*
* @ingroup CORE_CHAMELEON_Complex64_t
*
* CORE_ztpmlqt applies a complex orthogonal matrix Q obtained from a
* "triangular-pentagonal" complex block reflector H to a general complex matrix
* C, which consists of two blocks A and B.
* @brief Applies a complex orthogonal matrix Q.
*
* The matrix Q is obtained from a "triangular-pentagonal" complex block
* reflector H to a general complex matrix C, which consists of two blocks A and
* B.
*
*******************************************************************************
*
......@@ -128,9 +130,8 @@
*
*******************************************************************************
*
* @return
* \retval CHAMELEON_SUCCESS successful exit
* \retval <0 if -i, the i-th argument had an illegal value
* @retval CHAMELEON_SUCCESS successful exit
* @retval <0 if -i, the i-th argument had an illegal value
*
*/
......
......@@ -19,7 +19,7 @@
* @author Mathieu Faverge
* @author Emmanuel Agullo
* @author Cedric Castagnede
* @date 2010-11-15
* @date 2018-11-09
* @precisions normal z -> c d s
*
*/
......@@ -127,9 +127,9 @@ int CORE_zttmlq(cham_side_t side, cham_trans_t trans,
const CHAMELEON_Complex64_t *T, int LDT,
CHAMELEON_Complex64_t *WORK, int LDWORK)
{
int i, i1, i3, l;
int i, i1, i3;
int NW;
int kb;
int kb, l;
int ic = 0;
int jc = 0;
int mi1 = M1;
......@@ -205,11 +205,13 @@ int CORE_zttmlq(cham_side_t side, cham_trans_t trans,
}
/* Quick return */
if ((M1 == 0) || (N1 == 0) || (M2 == 0) || (N2 == 0) || (K == 0) || (IB == 0))
if ((M1 == 0) || (N1 == 0) || (M2 == 0) || (N2 == 0) || (K == 0) || (IB == 0)) {
return CHAMELEON_SUCCESS;
}
if (((side == ChamLeft) && (trans == ChamNoTrans))
|| ((side == ChamRight) && (trans != ChamNoTrans))) {
if ( ((side == ChamLeft ) && (trans == ChamNoTrans)) ||
((side == ChamRight) && (trans != ChamNoTrans)) )
{
i1 = 0;
i3 = IB;
}
......@@ -248,13 +250,11 @@ int CORE_zttmlq(cham_side_t side, cham_trans_t trans,
CORE_zparfb(
side, trans, ChamDirForward, ChamRowwise,
mi1, ni1, mi2, ni2, kb, l,
&A1[LDA1*jc+ic], LDA1,
A1 + LDA1 * jc + ic, LDA1,
A2, LDA2,
&V[i], LDV,
&T[LDT*i], LDT,
V + i, LDV,
T + LDT * i, LDT,
WORK, LDWORK);
}
return CHAMELEON_SUCCESS;
}
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