C++ (Cpp) quark_unpack_args_5示例

示例#1

文件： zpotrf_mc.cpp 项目： XapaJIaMnu/magma

// task execution code
void SCHED_zpotrf(Quark* quark)
{
  magma_int_t UPPER;
  magma_int_t N;
  cuDoubleComplex *A;
  magma_int_t LDA;

  magma_int_t *iinfo;

  magma_int_t info;

  quark_unpack_args_5(quark, UPPER, N, A, LDA, iinfo);

  if (UPPER) {

    lapackf77_zpotrf(MagmaUpperStr, &N, A, &LDA, &info);

  } else {

    lapackf77_zpotrf(MagmaLowerStr, &N, A, &LDA, &info);

  }

  if (info > 0) {
    iinfo[1] = iinfo[0] + info;
  }

}

示例#2

文件： core_zswpab.c 项目： joao-lima/plasma-kaapi

void CORE_zswpab_quark(Quark *quark)
{
    int i;
    int n1;
    int n2;
    PLASMA_Complex64_t *A;
    PLASMA_Complex64_t *work;
    
    quark_unpack_args_5(quark, i, n1, n2, A, work);
    CORE_zswpab( i, n1, n2, A, work);
}

示例#3

文件： core_dgetrip.c 项目： joao-lima/plasma-kaapi

void CORE_dgetrip_f1_quark(Quark *quark)
{
    int m;
    int n;
    double *A;
    double *W;
    double *fake;

    quark_unpack_args_5(quark, m, n, A, W, fake);
    CORE_dgetrip(m, n, A, W);
}

示例#4

文件： core_zgetrip.c 项目： joao-lima/plasma-kaapi

void CORE_zgetrip_f1_quark(Quark *quark)
{
    int m;
    int n;
    PLASMA_Complex64_t *A;
    PLASMA_Complex64_t *W;
    PLASMA_Complex64_t *fake;

    quark_unpack_args_5(quark, m, n, A, W, fake);
    CORE_zgetrip(m, n, A, W);
}

示例#5

文件： zgetrf_mc.cpp 项目： cjy7117/FT-MAGMA

/* Task execution code */
void SCHED_zlaswp(Quark* quark)
{
  int N;
  cuDoubleComplex *A;
  int LDA;
  int K2;
  int *IPIV;

  int ione=1;

  quark_unpack_args_5(quark, N, A, LDA, K2, IPIV);

  lapackf77_zlaswp(&N, A, &LDA, &ione, &K2, IPIV, &ione); 

}

示例#6

文件： zgetrf_mc.cpp 项目： cjy7117/FT-MAGMA

/* Task execution code */
void SCHED_zgetrf(Quark* quark)
{
  int M;
  int N;
  cuDoubleComplex *A;
  int LDA;
  int *IPIV;

  int *iinfo;

  int info;

  quark_unpack_args_5(quark, M, N, A, LDA, IPIV);

  lapackf77_zgetrf(&M, &N, A, &LDA, IPIV, &info); 

  if (info > 0) {
    iinfo[1] = iinfo[0] + info;
  }

}