Small changes to fix documentation and/or code

coreblas/compute/core_zparfb.c

@@ -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,

coreblas/compute/core_ztpmlqt.c

@@ -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
  *
  */
 

coreblas/compute/core_zttmlq.c

@@ -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;
 }
-
-