text: /**
   *
   * @file qwrapper_sgetrf_rectil.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 Hatem Ltaief
   * @author Mathieu Faverge
   * @author Piotr Luszczek
   * @date 2009-11-15
   *
   * @generated s Tue Jan  7 11:44:58 2014
   *
   **/
  #include "common.h"
  
  /***************************************************************************//**
   *
   **/
  void QUARK_CORE_sgetrf_rectil(Quark *quark, Quark_Task_Flags *task_flags,
                                PLASMA_desc A, float *Amn, int size,
                                int *IPIV,
                                PLASMA_sequence *sequence, PLASMA_request *request,
                                PLASMA_bool check_info, int iinfo,
                                int nbthread)
  {
      DAG_CORE_GETRF;
      QUARK_Insert_Task(quark, CORE_sgetrf_rectil_quark, task_flags,
          sizeof(PLASMA_desc),                &A,             VALUE,
          sizeof(float)*size,     Amn,               INOUT,
          sizeof(int)*A.n,                     IPIV,              OUTPUT,
          sizeof(PLASMA_sequence*),           &sequence,      VALUE,
          sizeof(PLASMA_request*),            &request,       VALUE,
          sizeof(PLASMA_bool),                &check_info,    VALUE,
          sizeof(int),                        &iinfo,         VALUE,
          sizeof(int),                        &nbthread,      VALUE,
          0);
  }
  
  /***************************************************************************//**
   *
   **/
  #if defined(PLASMA_HAVE_WEAK)
  #pragma weak CORE_sgetrf_rectil_quark = PCORE_sgetrf_rectil_quark
  #define CORE_sgetrf_rectil_quark PCORE_sgetrf_rectil_quark
  #endif
  void CORE_sgetrf_rectil_quark(Quark* quark)
  {
      PLASMA_desc A;
      float *Amn;
      int *IPIV;
      PLASMA_sequence *sequence;
      PLASMA_request *request;
      PLASMA_bool check_info;
      int iinfo;
  
      int info[3];
      int maxthreads;
  
      quark_unpack_args_8(quark, A, Amn, IPIV, sequence, request,
                          check_info, iinfo, maxthreads );
  
      info[1] = QUARK_Get_RankInTask(quark);
      info[2] = maxthreads;
  
      CORE_sgetrf_rectil( A, IPIV, info );
      if (info[1] == 0 && info[0] != PLASMA_SUCCESS && check_info)
          plasma_sequence_flush(quark, sequence, request, iinfo + info[0] );
  }
  