Commit 7289434f authored by THIBAULT Samuel's avatar THIBAULT Samuel

fix build

parent 07d767f2
...@@ -115,7 +115,7 @@ void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T, ...@@ -115,7 +115,7 @@ void morse_pzgelqf(MORSE_desc_t *A, MORSE_desc_t *T,
#endif #endif
for (k = 0; k < minMNT; k++) { for (k = 0; k < minMNT; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
......
...@@ -119,7 +119,7 @@ void morse_pzgelqfrh(MORSE_desc_t *A, MORSE_desc_t *T, int BS, ...@@ -119,7 +119,7 @@ void morse_pzgelqfrh(MORSE_desc_t *A, MORSE_desc_t *T, int BS,
#endif #endif
for (k = 0; k < chameleon_min(A->mt, A->nt); k++) { for (k = 0; k < chameleon_min(A->mt, A->nt); k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
......
...@@ -110,7 +110,7 @@ void morse_pzgeqrf(MORSE_desc_t *A, MORSE_desc_t *T, ...@@ -110,7 +110,7 @@ void morse_pzgeqrf(MORSE_desc_t *A, MORSE_desc_t *T,
#endif #endif
for (k = 0; k < minMNT; k++) { for (k = 0; k < minMNT; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
......
...@@ -118,7 +118,7 @@ void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, int BS, ...@@ -118,7 +118,7 @@ void morse_pzgeqrfrh(MORSE_desc_t *A, MORSE_desc_t *T, int BS,
K = chameleon_min(A->mt, A->nt); K = chameleon_min(A->mt, A->nt);
for (k = 0; k < K; k++) { for (k = 0; k < K; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
for (M = k; M < A->mt; M += BS) { for (M = k; M < A->mt; M += BS) {
......
...@@ -78,7 +78,7 @@ void morse_pzgetrf_incpiv(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV, ...@@ -78,7 +78,7 @@ void morse_pzgetrf_incpiv(MORSE_desc_t *A, MORSE_desc_t *L, int *IPIV,
morse_zdesc_alloc_diag(*DIAG, A->mb, A->nb, chameleon_min(A->m, A->n), A->nb, 0, 0, chameleon_min(A->m, A->n), A->nb, A->p, A->q); morse_zdesc_alloc_diag(*DIAG, A->mb, A->nb, chameleon_min(A->m, A->n), A->nb, 0, 0, chameleon_min(A->m, A->n), A->nb, A->p, A->q);
for (k = 0; k < minMNT; k++) { for (k = 0; k < minMNT; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
......
...@@ -54,7 +54,7 @@ void morse_pzgetrf_nopiv(MORSE_desc_t *A, ...@@ -54,7 +54,7 @@ void morse_pzgetrf_nopiv(MORSE_desc_t *A,
ib = MORSE_IB; ib = MORSE_IB;
for (k = 0; k < chameleon_min(A->mt, A->nt); k++) { for (k = 0; k < chameleon_min(A->mt, A->nt); k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
......
...@@ -137,7 +137,7 @@ void morse_pzhetrd_he2hb(MORSE_enum uplo, ...@@ -137,7 +137,7 @@ void morse_pzhetrd_he2hb(MORSE_enum uplo,
if (uplo == MorseLower) { if (uplo == MorseLower) {
for (k = 0; k < A->nt-1; k++){ for (k = 0; k < A->nt-1; k++){
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k+1 == A->mt-1 ? A->m-(k+1)*A->mb : A->mb; tempkm = k+1 == A->mt-1 ? A->m-(k+1)*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n- k *A->nb : A->nb; tempkn = k == A->nt-1 ? A->n- k *A->nb : A->nb;
...@@ -292,7 +292,7 @@ void morse_pzhetrd_he2hb(MORSE_enum uplo, ...@@ -292,7 +292,7 @@ void morse_pzhetrd_he2hb(MORSE_enum uplo,
} }
else { else {
for (k = 0; k < A->nt-1; k++){ for (k = 0; k < A->nt-1; k++){
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k+1 == A->nt-1 ? A->n-(k+1)*A->nb : A->nb; tempkn = k+1 == A->nt-1 ? A->n-(k+1)*A->nb : A->nb;
tempkm = k == A->mt-1 ? A->m- k *A->mb : A->mb; tempkm = k == A->mt-1 ? A->m- k *A->mb : A->mb;
......
...@@ -71,7 +71,7 @@ void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A, ...@@ -71,7 +71,7 @@ void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A,
*/ */
if (uplo == MorseLower) { if (uplo == MorseLower) {
for (k = 0; k < A->mt; k++) { for (k = 0; k < A->mt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
...@@ -130,7 +130,7 @@ void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A, ...@@ -130,7 +130,7 @@ void morse_pzpotrf(MORSE_enum uplo, MORSE_desc_t *A,
*/ */
else { else {
for (k = 0; k < A->nt; k++) { for (k = 0; k < A->nt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
......
...@@ -76,7 +76,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de ...@@ -76,7 +76,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
* ZPOTRF * ZPOTRF
*/ */
for (k = 0; k < A->mt; k++) { for (k = 0; k < A->mt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
...@@ -277,7 +277,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de ...@@ -277,7 +277,7 @@ void morse_pzpotrimm(MORSE_enum uplo, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_de
* ZPOTRF * ZPOTRF
*/ */
for (k = 0; k < A->nt; k++) { for (k = 0; k < A->nt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
......
...@@ -60,7 +60,7 @@ void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A, ...@@ -60,7 +60,7 @@ void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A,
*/ */
if (uplo == MorseLower) { if (uplo == MorseLower) {
for (k = 0; k < A->mt; k++) { for (k = 0; k < A->mt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
...@@ -112,7 +112,7 @@ void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A, ...@@ -112,7 +112,7 @@ void morse_pzsytrf(MORSE_enum uplo, MORSE_desc_t *A,
*/ */
else { else {
for (k = 0; k < A->nt; k++) { for (k = 0; k < A->nt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkm = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
......
...@@ -101,7 +101,7 @@ void morse_pztpgqrt( int L, ...@@ -101,7 +101,7 @@ void morse_pztpgqrt( int L,
#endif #endif
for (k = V1->nt-1; k >= 0; k--) { for (k = V1->nt-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == V1->mt-1 ? V1->m-k*V1->mb : V1->mb; tempkm = k == V1->mt-1 ? V1->m-k*V1->mb : V1->mb;
tempkk = k == V1->nt-1 ? V1->n-k*V1->nb : V1->nb; tempkk = k == V1->nt-1 ? V1->n-k*V1->nb : V1->nb;
......
...@@ -91,7 +91,7 @@ void morse_pztpqrt( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T, ...@@ -91,7 +91,7 @@ void morse_pztpqrt( int L, MORSE_desc_t *A, MORSE_desc_t *B, MORSE_desc_t *T,
RUNTIME_options_ws_alloc( &options, ws_worker, ws_host ); RUNTIME_options_ws_alloc( &options, ws_worker, ws_host );
for (k = 0; k < A->nt; k++) { for (k = 0; k < A->nt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
......
...@@ -56,7 +56,7 @@ void morse_pztrtri(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A, ...@@ -56,7 +56,7 @@ void morse_pztrtri(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A,
*/ */
if (uplo == MorseLower) { if (uplo == MorseLower) {
for (k = 0; k < A->nt; k++) { for (k = 0; k < A->nt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
...@@ -106,7 +106,7 @@ void morse_pztrtri(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A, ...@@ -106,7 +106,7 @@ void morse_pztrtri(MORSE_enum uplo, MORSE_enum diag, MORSE_desc_t *A,
*/ */
else { else {
for (k = 0; k < A->mt; k++) { for (k = 0; k < A->mt; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
......
...@@ -98,7 +98,7 @@ void morse_pzunglq(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, ...@@ -98,7 +98,7 @@ void morse_pzunglq(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T,
#endif #endif
for (k = minMT-1; k >= 0; k--) { for (k = minMT-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempAkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempAkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempAkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempAkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
......
...@@ -99,7 +99,7 @@ void morse_pzunglqrh(MORSE_desc_t *A, MORSE_desc_t *Q, ...@@ -99,7 +99,7 @@ void morse_pzunglqrh(MORSE_desc_t *A, MORSE_desc_t *Q,
K = chameleon_min(A->mt, A->nt); K = chameleon_min(A->mt, A->nt);
for (k = K-1; k >= 0; k--) { for (k = K-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
......
...@@ -98,7 +98,7 @@ void morse_pzungqr(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T, ...@@ -98,7 +98,7 @@ void morse_pzungqr(MORSE_desc_t *A, MORSE_desc_t *Q, MORSE_desc_t *T,
#endif #endif
for (k = minMT-1; k >= 0; k--) { for (k = minMT-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempAkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempAkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
tempAkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempAkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
......
...@@ -101,7 +101,7 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q, ...@@ -101,7 +101,7 @@ void morse_pzungqrrh(MORSE_desc_t *A, MORSE_desc_t *Q,
K = chameleon_min(A->mt, A->nt); K = chameleon_min(A->mt, A->nt);
for (k = K-1; k >= 0; k--) { for (k = K-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
lastRD = 0; lastRD = 0;
......
...@@ -105,7 +105,7 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans, ...@@ -105,7 +105,7 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
* MorseLeft / MorseNoTrans * MorseLeft / MorseNoTrans
*/ */
for (k = 0; k < minMT; k++) { for (k = 0; k < minMT; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb; tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb; tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
...@@ -157,7 +157,7 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans, ...@@ -157,7 +157,7 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
* MorseLeft / MorseConjTrans * MorseLeft / MorseConjTrans
*/ */
for (k = minMT-1; k >= 0; k--) { for (k = minMT-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb; tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb; tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
...@@ -211,7 +211,7 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans, ...@@ -211,7 +211,7 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
* MorseRight / MorseNoTrans * MorseRight / MorseNoTrans
*/ */
for (k = minMT-1; k >= 0; k--) { for (k = minMT-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == B->nt -1 ? B->n -k*B->nb : B->nb; tempkn = k == B->nt -1 ? B->n -k*B->nb : B->nb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb; tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
...@@ -263,7 +263,7 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans, ...@@ -263,7 +263,7 @@ void morse_pzunmlq(MORSE_enum side, MORSE_enum trans,
* MorseRight / MorseConjTrans * MorseRight / MorseConjTrans
*/ */
for (k = 0; k < minMT; k++) { for (k = 0; k < minMT; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == B->nt -1 ? B->n -k*B->nb : B->nb; tempkn = k == B->nt -1 ? B->n -k*B->nb : B->nb;
tempkmin = k == minMT-1 ? minM-k*A->mb : A->mb; tempkmin = k == minMT-1 ? minM-k*A->mb : A->mb;
......
...@@ -105,7 +105,7 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans, ...@@ -105,7 +105,7 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
* MorseLeft / MorseNoTrans * MorseLeft / MorseNoTrans
*/ */
for (k = 0; k < K; k++) { for (k = 0; k < K; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
...@@ -180,7 +180,7 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans, ...@@ -180,7 +180,7 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
* MorseLeft / MorseConjTrans * MorseLeft / MorseConjTrans
*/ */
for (k = K-1; k >= 0; k--) { for (k = K-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
...@@ -261,7 +261,7 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans, ...@@ -261,7 +261,7 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
* MorseRight / MorseNoTrans * MorseRight / MorseNoTrans
*/ */
for (k = K-1; k >= 0; k--) { for (k = K-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
...@@ -338,7 +338,7 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans, ...@@ -338,7 +338,7 @@ void morse_pzunmlqrh(MORSE_enum side, MORSE_enum trans,
* MorseRight / MorseConjTrans * MorseRight / MorseConjTrans
*/ */
for (k = 0; k < K; k++) { for (k = 0; k < K; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb; tempkm = k == A->mt-1 ? A->m-k*A->mb : A->mb;
ldak = BLKLDD(A, k); ldak = BLKLDD(A, k);
......
...@@ -105,7 +105,7 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans, ...@@ -105,7 +105,7 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
* MorseLeft / MorseConjTrans * MorseLeft / MorseConjTrans
*/ */
for (k = 0; k < minMT; k++) { for (k = 0; k < minMT; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb; tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb; tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
...@@ -158,7 +158,7 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans, ...@@ -158,7 +158,7 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
*/ */
else { else {
for (k = minMT-1; k >= 0; k--) { for (k = minMT-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb; tempkm = k == B->mt-1 ? B->m-k*B->mb : B->mb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb; tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
...@@ -213,7 +213,7 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans, ...@@ -213,7 +213,7 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
else { else {
if (trans == MorseConjTrans) { if (trans == MorseConjTrans) {
for (k = minMT-1; k >= 0; k--) { for (k = minMT-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == B->nt-1 ? B->n-k*B->nb : B->nb; tempkn = k == B->nt-1 ? B->n-k*B->nb : B->nb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb; tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
...@@ -267,7 +267,7 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans, ...@@ -267,7 +267,7 @@ void morse_pzunmqr(MORSE_enum side, MORSE_enum trans,
*/ */
else { else {
for (k = 0; k < minMT; k++) { for (k = 0; k < minMT; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == B->nt-1 ? B->n-k*B->nb : B->nb; tempkn = k == B->nt-1 ? B->n-k*B->nb : B->nb;
tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb; tempkmin = k == minMT-1 ? minM-k*A->nb : A->nb;
......
...@@ -107,7 +107,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans, ...@@ -107,7 +107,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
* MorseLeft / MorseConjTrans * MorseLeft / MorseConjTrans
*/ */
for (k = 0; k < K; k++) { for (k = 0; k < K; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
for (M = k; M < A->mt; M += BS) { for (M = k; M < A->mt; M += BS) {
...@@ -184,7 +184,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans, ...@@ -184,7 +184,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
* MorseLeft / MorseNoTrans * MorseLeft / MorseNoTrans
*/ */
for (k = K-1; k >= 0; k--) { for (k = K-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
lastRD = 0; lastRD = 0;
...@@ -266,7 +266,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans, ...@@ -266,7 +266,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
* MorseRight / MorseConjTrans * MorseRight / MorseConjTrans
*/ */
for (k = K-1; k >= 0; k--) { for (k = K-1; k >= 0; k--) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
lastRD = 0; lastRD = 0;
...@@ -346,7 +346,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans, ...@@ -346,7 +346,7 @@ void morse_pzunmqrrh(MORSE_enum side, MORSE_enum trans,
* MorseRight / MorseNoTrans * MorseRight / MorseNoTrans
*/ */
for (k = 0; k < K; k++) { for (k = 0; k < K; k++) {
RUNTIME_set_iteration(k); RUNTIME_set_iteration(morse, k);
tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb; tempkn = k == A->nt-1 ? A->n-k*A->nb : A->nb;
for (M = k; M < A->mt; M += BS) { for (M = k; M < A->mt; M += BS) {
......
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