diff --git a/runtime/parsec/codelets/codelet_zgeqrt.c b/runtime/parsec/codelets/codelet_zgeqrt.c
index f3881733d664386c7471d4e88df8563e3ab96299..df11a0939931b7f99305a8220c8223e942aa88e3 100644
--- a/runtime/parsec/codelets/codelet_zgeqrt.c
+++ b/runtime/parsec/codelets/codelet_zgeqrt.c
@@ -121,11 +121,11 @@ void MORSE_TASK_zgeqrt(const MORSE_option_t *options,
sizeof(int), &m, VALUE,
sizeof(int), &n, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INOUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT,
sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_ztpmqrt.c b/runtime/parsec/codelets/codelet_ztpmqrt.c
index 62fda5c0312ed39c8e50a74298c2a189471adbcb..a92b74727594f05f22f4aa39fa1194995c16a91d 100644
--- a/runtime/parsec/codelets/codelet_ztpmqrt.c
+++ b/runtime/parsec/codelets/codelet_ztpmqrt.c
@@ -48,7 +48,7 @@ CORE_ztpmqrt_parsec( parsec_execution_stream_t *context,
MORSE_Complex64_t *WORK;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &M, &N, &K, &L, &ib, &V, &ldv, &T, &ldt, &A, &lda, &B, &ldb, &WORK );
+ this_task, &side, &trans, &M, &N, &K, &L, &ib, &V, &ldv, &T, &ldt, &A, &lda, &B, &ldb, &WORK );
CORE_ztpmqrt( side, trans, M, N, K, L, ib,
V, ldv, T, ldt, A, lda, B, ldb, WORK );
diff --git a/runtime/parsec/codelets/codelet_ztpqrt.c b/runtime/parsec/codelets/codelet_ztpqrt.c
index e60b1ef5a89ba57c870e3fe9c7ca8f34b8ddec88..9c120a89acbdfaa0fe6bac1e1b7cc5ef87489d7c 100644
--- a/runtime/parsec/codelets/codelet_ztpqrt.c
+++ b/runtime/parsec/codelets/codelet_ztpqrt.c
@@ -43,7 +43,7 @@ CORE_ztpqrt_parsec( parsec_execution_stream_t *context,
MORSE_Complex64_t *WORK;
parsec_dtd_unpack_args(
- this_task, &M, &N, &L, &ib, &A, &lda, &B, &ldb, &T, &ldt, &WORK );
+ this_task, &M, &N, &L, &ib, &A, &lda, &B, &ldb, &T, &ldt, &WORK );
CORE_ztpqrt( M, N, L, ib,
A, lda, B, ldb, T, ldt, WORK );
@@ -72,6 +72,6 @@ void MORSE_TASK_ztpqrt( const MORSE_option_t *options,
sizeof(int), &ldb, VALUE,
PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), OUTPUT,
sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*(ib+1)*nb, NULL, SCRATCH,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_ztsmlq.c b/runtime/parsec/codelets/codelet_ztsmlq.c
index 4335db82909643e0bc1f30d81fe253ccf594740d..4d850e25076431ad1a7a953ecd7c6cb3f05ff853 100644
--- a/runtime/parsec/codelets/codelet_ztsmlq.c
+++ b/runtime/parsec/codelets/codelet_ztsmlq.c
@@ -48,10 +48,10 @@ CORE_ztsmlq_parsec( parsec_execution_stream_t *context,
int ldwork;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork );
+ this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork );
CORE_ztsmlq( side, trans, m1, n1, m2, n2, k, ib,
- A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
+ A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
(void)context;
return PARSEC_HOOK_RETURN_DONE;
diff --git a/runtime/parsec/codelets/codelet_ztsmlq_hetra1.c b/runtime/parsec/codelets/codelet_ztsmlq_hetra1.c
index f60300f8f83bf04c8bea08b7e8ebb3392de494c0..08b85b3ef2e930dc581a4d1a05d6f364a7750800 100644
--- a/runtime/parsec/codelets/codelet_ztsmlq_hetra1.c
+++ b/runtime/parsec/codelets/codelet_ztsmlq_hetra1.c
@@ -53,12 +53,12 @@ CORE_ztsmlq_hetra1_parsec( parsec_execution_stream_t *context,
int ldwork;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork);
+ this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork);
CORE_ztsmlq_hetra1( side, trans, m1, n1, m2, n2, k, ib,
- A1, lda1, A2, lda2,
- V, ldv, T, ldt,
- WORK, ldwork);
+ A1, lda1, A2, lda2,
+ V, ldv, T, ldt,
+ WORK, ldwork);
(void)context;
return PARSEC_HOOK_RETURN_DONE;
diff --git a/runtime/parsec/codelets/codelet_ztsmqr.c b/runtime/parsec/codelets/codelet_ztsmqr.c
index a0beb9f8bb6b83625edd519e2b8bcb625bcb83c3..a33948fd34aad0a63b56530e71308b0bdb8a2d88 100644
--- a/runtime/parsec/codelets/codelet_ztsmqr.c
+++ b/runtime/parsec/codelets/codelet_ztsmqr.c
@@ -48,10 +48,10 @@ CORE_ztsmqr_parsec( parsec_execution_stream_t *context,
int ldwork;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork );
+ this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork );
CORE_ztsmqr( side, trans, m1, n1, m2, n2, k, ib,
- A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
+ A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
(void)context;
return PARSEC_HOOK_RETURN_DONE;
@@ -79,13 +79,13 @@ void MORSE_TASK_ztsmqr(const MORSE_option_t *options,
sizeof(int), &n2, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT,
sizeof(int), &ldt, VALUE,
sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &ldwork, VALUE,
diff --git a/runtime/parsec/codelets/codelet_ztsmqr_hetra1.c b/runtime/parsec/codelets/codelet_ztsmqr_hetra1.c
index 0a83e4b58bae9fc49da5512ae143bd70833a9170..50d30f386d8e9c6111ccf68e7bd34e3732c8dc7b 100644
--- a/runtime/parsec/codelets/codelet_ztsmqr_hetra1.c
+++ b/runtime/parsec/codelets/codelet_ztsmqr_hetra1.c
@@ -53,12 +53,12 @@ CORE_ztsmqr_hetra1_parsec( parsec_execution_stream_t *context,
int ldwork;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork);
+ this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork);
CORE_ztsmqr_hetra1( side, trans, m1, n1, m2, n2, k, ib,
- A1, lda1, A2, lda2,
- V, ldv, T, ldt,
- WORK, ldwork);
+ A1, lda1, A2, lda2,
+ V, ldv, T, ldt,
+ WORK, ldwork);
(void)context;
return PARSEC_HOOK_RETURN_DONE;
diff --git a/runtime/parsec/codelets/codelet_zttlqt.c b/runtime/parsec/codelets/codelet_zttlqt.c
index ec4d4bb24166e93bcebdaa6446e2978c3b7d1d67..7981af03d7ed1f344f167b2f33a2392aaf4efa02 100644
--- a/runtime/parsec/codelets/codelet_zttlqt.c
+++ b/runtime/parsec/codelets/codelet_zttlqt.c
@@ -41,7 +41,7 @@ CORE_zttlqt_parsec( parsec_execution_stream_t *context,
MORSE_Complex64_t *WORK;
parsec_dtd_unpack_args(
- this_task, &m, &n, &ib, &A1, &lda1, &A2, &lda2, &T, &ldt, &TAU, &WORK );
+ this_task, &m, &n, &ib, &A1, &lda1, &A2, &lda2, &T, &ldt, &TAU, &WORK );
CORE_zttlqt( m, n, ib, A1, lda1, A2, lda2, T, ldt, TAU, WORK );
diff --git a/runtime/parsec/codelets/codelet_zttmlq.c b/runtime/parsec/codelets/codelet_zttmlq.c
index 430f594b2be0f4c8746b97fdb6b0793972e36e21..185ae1715f389266e861c74db18ce4a1a72f24ae 100644
--- a/runtime/parsec/codelets/codelet_zttmlq.c
+++ b/runtime/parsec/codelets/codelet_zttmlq.c
@@ -48,10 +48,10 @@ CORE_zttmlq_parsec( parsec_execution_stream_t *context,
int ldwork;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork );
+ this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork );
CORE_zttmlq( side, trans, m1, n1, m2, n2, k, ib, A1, lda1,
- A2, lda2, V, ldv, T, ldt, WORK, ldwork);
+ A2, lda2, V, ldv, T, ldt, WORK, ldwork);
(void)context;
return PARSEC_HOOK_RETURN_DONE;
diff --git a/runtime/parsec/codelets/codelet_zttmqr.c b/runtime/parsec/codelets/codelet_zttmqr.c
index 578107bcbbe57d5a57324ed3abecb2ebe367ff61..542706cab822c842f952985085f8cea6cf092170 100644
--- a/runtime/parsec/codelets/codelet_zttmqr.c
+++ b/runtime/parsec/codelets/codelet_zttmqr.c
@@ -48,10 +48,10 @@ CORE_zttmqr_parsec( parsec_execution_stream_t *context,
int ldwork;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork );
+ this_task, &side, &trans, &m1, &n1, &m2, &n2, &k, &ib, &A1, &lda1, &A2, &lda2, &V, &ldv, &T, &ldt, &WORK, &ldwork );
CORE_zttmqr( side, trans, m1, n1, m2, n2, k, ib,
- A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
+ A1, lda1, A2, lda2, V, ldv, T, ldt, WORK, ldwork);
(void)context;
return PARSEC_HOOK_RETURN_DONE;
@@ -80,15 +80,15 @@ void MORSE_TASK_zttmqr(const MORSE_option_t *options,
sizeof(int), &n2, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT,
+ PASSED_BY_REF, RTBLKADDR( A1, MORSE_Complex64_t, A1m, A1n ), INOUT,
sizeof(int), &lda1, VALUE,
- PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT,
+ PASSED_BY_REF, RTBLKADDR( A2, MORSE_Complex64_t, A2m, A2n ), INOUT,
sizeof(int), &lda2, VALUE,
- PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT,
+ PASSED_BY_REF, RTBLKADDR( V, MORSE_Complex64_t, Vm, Vn ), INPUT,
sizeof(int), &ldv, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT,
sizeof(int), &ldt, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &ldwork, VALUE,
PARSEC_DTD_ARG_END );
}
diff --git a/runtime/parsec/codelets/codelet_zunmlq.c b/runtime/parsec/codelets/codelet_zunmlq.c
index 362d499b29b13434cedeae19fb74d82505314abc..dd5e02aa3b174a575147e31620dafde411552b44 100644
--- a/runtime/parsec/codelets/codelet_zunmlq.c
+++ b/runtime/parsec/codelets/codelet_zunmlq.c
@@ -44,10 +44,10 @@ CORE_zunmlq_parsec( parsec_execution_stream_t *context,
int ldwork;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &m, &n, &k, &ib, &A, &lda, &T, &ldt, &C, &ldc, &WORK, &ldwork );
+ this_task, &side, &trans, &m, &n, &k, &ib, &A, &lda, &T, &ldt, &C, &ldc, &WORK, &ldwork );
CORE_zunmlq( side, trans, m, n, k, ib,
- A, lda, T, ldt, C, ldc, WORK, ldwork);
+ A, lda, T, ldt, C, ldc, WORK, ldwork);
(void)context;
return PARSEC_HOOK_RETURN_DONE;
diff --git a/runtime/parsec/codelets/codelet_zunmqr.c b/runtime/parsec/codelets/codelet_zunmqr.c
index 773811326a87482dfb41857082fd3bb77eb4b5e4..8bf9ea69bff08023f0d014b2483d5a5f90db9935 100644
--- a/runtime/parsec/codelets/codelet_zunmqr.c
+++ b/runtime/parsec/codelets/codelet_zunmqr.c
@@ -44,10 +44,10 @@ CORE_zunmqr_parsec( parsec_execution_stream_t *context,
int ldwork;
parsec_dtd_unpack_args(
- this_task, &side, &trans, &m, &n, &k, &ib, &A, &lda, &T, &ldt, &C, &ldc, &WORK, &ldwork );
+ this_task, &side, &trans, &m, &n, &k, &ib, &A, &lda, &T, &ldt, &C, &ldc, &WORK, &ldwork );
CORE_zunmqr( side, trans, m, n, k, ib,
- A, lda, T, ldt, C, ldc, WORK, ldwork);
+ A, lda, T, ldt, C, ldc, WORK, ldwork);
(void)context;
return PARSEC_HOOK_RETURN_DONE;
@@ -70,13 +70,13 @@ void MORSE_TASK_zunmqr(const MORSE_option_t *options,
sizeof(int), &n, VALUE,
sizeof(int), &k, VALUE,
sizeof(int), &ib, VALUE,
- PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT,
+ PASSED_BY_REF, RTBLKADDR( A, MORSE_Complex64_t, Am, An ), INPUT,
sizeof(int), &lda, VALUE,
- PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT,
+ PASSED_BY_REF, RTBLKADDR( T, MORSE_Complex64_t, Tm, Tn ), INPUT,
sizeof(int), &ldt, VALUE,
- PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT,
+ PASSED_BY_REF, RTBLKADDR( C, MORSE_Complex64_t, Cm, Cn ), INOUT,
sizeof(int), &ldc, VALUE,
- sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
+ sizeof(MORSE_Complex64_t)*ib*nb, NULL, SCRATCH,
sizeof(int), &nb, VALUE,
PARSEC_DTD_ARG_END );
}