diff --git a/runtime/quark/codelets/codelet_zgeadd.c b/runtime/quark/codelets/codelet_zgeadd.c index 3fecba2480264c3d726f3b73a6456adf3e479b7c..ae704ac4a5e1c38917309202463312076a956ac9 100644 --- a/runtime/quark/codelets/codelet_zgeadd.c +++ b/runtime/quark/codelets/codelet_zgeadd.c @@ -28,6 +28,23 @@ **/ #include "runtime/quark/include/morse_quark.h" +void CORE_zgeadd_quark(Quark *quark) +{ + MORSE_enum trans; + int M; + int N; + MORSE_Complex64_t alpha; + MORSE_Complex64_t *A; + int LDA; + MORSE_Complex64_t beta; + MORSE_Complex64_t *B; + int LDB; + + quark_unpack_args_9(quark, trans, M, N, alpha, A, LDA, beta, B, LDB); + CORE_zgeadd(trans, M, N, alpha, A, LDA, beta, B, LDB); + return; +} + /** ****************************************************************************** * @@ -101,22 +118,3 @@ void MORSE_TASK_zgeadd(MORSE_option_t *options, sizeof(int), &ldb, VALUE, 0); } - - -void CORE_zgeadd_quark(Quark *quark) -{ - MORSE_enum trans; - int M; - int N; - MORSE_Complex64_t alpha; - MORSE_Complex64_t *A; - int LDA; - MORSE_Complex64_t beta; - MORSE_Complex64_t *B; - int LDB; - - quark_unpack_args_9(quark, trans, M, N, alpha, A, LDA, beta, B, LDB); - CORE_zgeadd(trans, M, N, alpha, A, LDA, beta, B, LDB); - return; -} - diff --git a/runtime/quark/codelets/codelet_ztradd.c b/runtime/quark/codelets/codelet_ztradd.c index 8694811ae47c22634a670085a6f202d696bd11d4..b645f08a7d229bd92695ef967881d8eca5562777 100644 --- a/runtime/quark/codelets/codelet_ztradd.c +++ b/runtime/quark/codelets/codelet_ztradd.c @@ -26,6 +26,24 @@ **/ #include "runtime/quark/include/morse_quark.h" +void CORE_ztradd_quark(Quark *quark) +{ + MORSE_enum uplo; + MORSE_enum trans; + int M; + int N; + MORSE_Complex64_t alpha; + MORSE_Complex64_t *A; + int LDA; + MORSE_Complex64_t beta; + MORSE_Complex64_t *B; + int LDB; + + quark_unpack_args_10(quark, uplo, trans, M, N, alpha, A, LDA, beta, B, LDB); + CORE_ztradd(uplo, trans, M, N, alpha, A, LDA, beta, B, LDB); + return; +} + /** ****************************************************************************** * @@ -107,22 +125,3 @@ void MORSE_TASK_ztradd(MORSE_option_t *options, 0); } - -void CORE_ztradd_quark(Quark *quark) -{ - MORSE_enum uplo; - MORSE_enum trans; - int M; - int N; - MORSE_Complex64_t alpha; - MORSE_Complex64_t *A; - int LDA; - MORSE_Complex64_t beta; - MORSE_Complex64_t *B; - int LDB; - - quark_unpack_args_9(quark, uplo, trans, M, N, alpha, A, LDA, beta, B, LDB); - CORE_ztradd(uplo, trans, M, N, alpha, A, LDA, beta, B, LDB); - return; -} -