Attention une mise à jour du service Gitlab va être effectuée le mardi 30 novembre entre 17h30 et 18h00. Cette mise à jour va générer une interruption du service dont nous ne maîtrisons pas complètement la durée mais qui ne devrait pas excéder quelques minutes. Cette mise à jour intermédiaire en version 14.0.12 nous permettra de rapidement pouvoir mettre à votre disposition une version plus récente.

Commit ca1ddd54 authored by Mathieu Faverge's avatar Mathieu Faverge
Browse files

Fix Quark compilation

parent b4b0b315
......@@ -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;
}
......@@ -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;
}
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