text: /**
   *
   * @file qwrapper_zpltmg_circul.c
   *
   *  PLASMA core_blas quark wrapper
   *  PLASMA is a software package provided by Univ. of Tennessee,
   *  Univ. of California Berkeley and Univ. of Colorado Denver
   *
   * @version 2.6.0
   * @author Mathieu Faverge
   * @date 2010-11-15
   * @precisions normal z -> c d s
   *
   **/
  #include "common.h"
  
  void
  CORE_zpltmg_circul_quark(Quark *quark);
  
  /***************************************************************************//**
   *
   **/
  void QUARK_CORE_zpltmg_circul( Quark *quark, Quark_Task_Flags *task_flags,
                                 int M, int N, PLASMA_Complex64_t *A, int LDA,
                                 int gM, int m0, int n0,
                                 const PLASMA_Complex64_t *V )
  {
      DAG_CORE_PLRNT;
      QUARK_Insert_Task(quark, CORE_zpltmg_circul_quark, task_flags,
          sizeof(int),                      &M,       VALUE,
          sizeof(int),                      &N,       VALUE,
          sizeof(PLASMA_Complex64_t)*LDA*N, A,            OUTPUT,
          sizeof(int),                      &LDA,     VALUE,
          sizeof(int),                      &gM,      VALUE,
          sizeof(int),                      &m0,      VALUE,
          sizeof(int),                      &n0,      VALUE,
          sizeof(PLASMA_Complex64_t)*gM,    V,            INPUT,
          0);
  }
  
  /***************************************************************************//**
   *
   **/
  #if defined(PLASMA_HAVE_WEAK)
  #pragma weak CORE_zpltmg_circul_quark = PCORE_zpltmg_circul_quark
  #define CORE_zpltmg_circul_quark PCORE_zpltmg_circul_quark
  #endif
  void CORE_zpltmg_circul_quark(Quark *quark)
  {
      int m;
      int n;
      PLASMA_Complex64_t *A;
      int lda;
      int gM;
      int m0;
      int n0;
      const PLASMA_Complex64_t *V;
  
      quark_unpack_args_8( quark, m, n, A, lda, gM, m0, n0, V );
      CORE_zpltmg_circul( m, n, A, lda, gM, m0, n0, V );
  }
  