C++ (Cpp) quark_unpack_args_6 Examples

Example #1

File: zpotrf_mc.cpp Project: XapaJIaMnu/magma

// task execution code
void SCHED_zsyrk(Quark* quark)
{
  magma_int_t UPPER;
  magma_int_t N;
  cuDoubleComplex *A1;
  magma_int_t LDA;
  magma_int_t K;
  cuDoubleComplex *A2;

  double mone = -1.0;
  double one = 1.0;

  quark_unpack_args_6(quark, UPPER, N, K, A1, LDA, A2);

  if (UPPER) {

    blasf77_zherk(MagmaUpperStr, MagmaConjTransStr, &N, &K, &mone, A1, &LDA, &one, 
      A2, &LDA);

  } else {

    blasf77_zherk(MagmaLowerStr, MagmaNoTransStr, &N, &K, &mone, A1, &LDA, &one, 
      A2, &LDA);

  }

}

Example #2

File: zpotrf_mc.cpp Project: XapaJIaMnu/magma

// task execution code
void SCHED_ztrsm(Quark* quark)
{
  magma_int_t UPPER;
  magma_int_t M;
  magma_int_t N;
  cuDoubleComplex *A1;
  magma_int_t LDA;
  cuDoubleComplex *A2;

  cuDoubleComplex one = MAGMA_Z_ONE;

  quark_unpack_args_6(quark, UPPER, M, N, A1, LDA, A2);

  if (UPPER) {

    blasf77_ztrsm(MagmaLeftStr, MagmaUpperStr, MagmaConjTransStr, MagmaNonUnitStr,
      &M, &N, &one, A1, &LDA, A2, &LDA);

  } else {

    blasf77_ztrsm(MagmaRightStr, MagmaLowerStr, MagmaConjTransStr, MagmaNonUnitStr,
      &M, &N, &one, A1, &LDA, A2, &LDA);

  }

}

Example #3

File: core_zlaset2.c Project: joao-lima/plasma-kaapi

void CORE_zlaset2_quark(Quark *quark)
{
    int uplo;
    int M;
    int N;
    PLASMA_Complex64_t alpha;
    PLASMA_Complex64_t *A;
    int LDA;

    quark_unpack_args_6(quark, uplo, M, N, alpha, A, LDA);
    CORE_zlaset2(uplo, M, N, alpha, A, LDA);
}

Example #4

File: qwrapper_zlag2c.c Project: gpichon/eigenproblems

void CORE_clag2z_quark(Quark *quark)
{
    int m;
    int n;
    PLASMA_Complex32_t *A;
    int lda;
    PLASMA_Complex64_t *B;
    int ldb;

    quark_unpack_args_6(quark, m, n, A, lda, B, ldb);
    LAPACKE_clag2z_work(LAPACK_COL_MAJOR, m, n, A, lda, B, ldb);
}

Example #5

File: core_dgetrip.c Project: joao-lima/plasma-kaapi

void CORE_dgetrip_f2_quark(Quark *quark)
{
    int m;
    int n;
    double *A;
    double *W;
    double *fake1;
    double *fake2;

    quark_unpack_args_6(quark, m, n, A, W, fake1, fake2);
    CORE_dgetrip(m, n, A, W);
}

Example #6

File: core_zgetrip.c Project: joao-lima/plasma-kaapi

void CORE_zgetrip_f2_quark(Quark *quark)
{
    int m;
    int n;
    PLASMA_Complex64_t *A;
    PLASMA_Complex64_t *W;
    PLASMA_Complex64_t *fake1;
    PLASMA_Complex64_t *fake2;

    quark_unpack_args_6(quark, m, n, A, W, fake1, fake2);
    CORE_zgetrip(m, n, A, W);
}

Example #7

File: pztile.c Project: joao-lima/plasma-kaapi

/***************************************************************************//**
 *
 **/
void CORE_ztile_zero_quark(Quark* quark)
{
    int X1;
    int X2;
    int Y1;
    int Y2;
    PLASMA_Complex64_t *A;
    int lda;

    int x, y;

    quark_unpack_args_6(quark, X1, X2, Y1, Y2, A, lda);

    for (x = X1; x < X2; x++)
        for (y = Y1; y < Y2; y++)
            A[lda*x+y] = 0.0;
}