PLASMA  2.4.5
PLASMA - Parallel Linear Algebra for Scalable Multi-core Architectures
 All Data Structures Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
Macros | Functions
cgecfi2.c File Reference
#include <sys/types.h>
#include "common.h"
#include "cgecfi2.h"
Include dependency graph for cgecfi2.c:

Go to the source code of this file.

Macros

#define PLASMA_pcgetmi2(idep, odep, storev, m, n, mb, nb, A)
#define PLASMA_cshift(m, n, mb, nb, A)
#define PLASMA_cshiftr(m, n, mb, nb, A)

Functions

int ipt_ccm2ccrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_cccrb2cm (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_cccrb2crrb (plasma_context_t *plasma, PLASMA_enum idep, PLASMA_enum odep, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_ccrrb2ccrb (plasma_context_t *plasma, PLASMA_enum idep, PLASMA_enum odep, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crcrb2rrrb (plasma_context_t *plasma, PLASMA_enum idep, PLASMA_enum odep, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crrrb2rcrb (plasma_context_t *plasma, PLASMA_enum idep, PLASMA_enum odep, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_cccrb2rcrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_ccm2rcrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crcrb2cm (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_cccrb2rrrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crrrb2ccrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crcrb2crrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_ccrrb2rcrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_ccm2crrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_ccrrb2cm (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crm2rcrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crcrb2rm (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_ccm2rrrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crrrb2cm (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_cccrb2rm (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crm2ccrb (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_ccm2rm (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_crm2cm (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_ctile2panel (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_cpanel2tile (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_cpanel2all (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)
int ipt_call2panel (plasma_context_t *plasma, int m, int n, PLASMA_Complex32_t *A, int mb, int nb, PLASMA_sequence *sequence, PLASMA_request *request)

Macro Definition Documentation

#define PLASMA_cshift (   m,
  n,
  mb,
  nb,
  A 
)
Value:
plasma_cshift(plasma, (m), (n), (A), \
( (n) / (nb) ), ( (m) / (mb) ), (nb), (mb), \
sequence, request);

Definition at line 39 of file cgecfi2.c.

#define PLASMA_cshiftr (   m,
  n,
  mb,
  nb,
  A 
)
Value:
plasma_cshift(plasma, (m), (n), (A), \
( (n) / (nb) ), (nb), ( (m) / (mb) ), (mb), \
sequence, request);

Definition at line 44 of file cgecfi2.c.

#define PLASMA_pcgetmi2 (   idep,
  odep,
  storev,
  m,
  n,
  mb,
  nb,
  A 
)
Value:
plasma_parallel_call_10( \
plasma_pcgetmi2, \
PLASMA_enum, (idep), \
PLASMA_enum, (odep), \
PLASMA_enum, (storev), \
int, (m), \
int, (n), \
int, (mb), \
int, (nb), \
PLASMA_Complex32_t*, (A), \
PLASMA_sequence*, sequence, \
PLASMA_request*, request);

Definition at line 25 of file cgecfi2.c.

Function Documentation

int ipt_call2panel ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 533 of file cgecfi2.c.

References CORE_foo2_quark(), INOUT, INPUT, PLASMA_DYNAMIC_SCHEDULING, plasma_dynamic_spawn, PLASMA_SCHEDULING, PLASMA_SUCCESS, plasma_context_struct::quark, QUARK_Insert_Task(), plasma_sequence_t::quark_sequence, QUARK_Task_Flag_Set(), Quark_Task_Flags_Initializer, TASK_SEQUENCE, TASKCOLOR, TASKLABEL, and VALUE.

{
if (PLASMA_SCHEDULING != PLASMA_DYNAMIC_SCHEDULING)
return PLASMA_SUCCESS;
int i;
int N_ = n / nb;
Quark_Task_Flags task_flags = Quark_Task_Flags_Initializer;
QUARK_Task_Flag_Set(&task_flags, TASK_SEQUENCE, (intptr_t)sequence->quark_sequence);
if ( N_ > 1 ) {
plasma_dynamic_spawn();
for(i=1; i<N_; i++) {
#ifdef TRACE_IPT
char str[30];
sprintf(str, "Foo2 C2RI %d", i*m*nb);
#endif
QUARK_Insert_Task(plasma->quark, CORE_foo2_quark, &task_flags,
sizeof(PLASMA_Complex32_t)*m*n, A, INPUT,
sizeof(PLASMA_Complex32_t)*m*nb, &(A[i*m*nb]), INOUT,
#ifdef TRACE_IPT
30, str, VALUE | TASKLABEL,
4, "red", VALUE | TASKCOLOR,
#endif
0);
}
}
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int ipt_cccrb2cm ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 105 of file cgecfi2.c.

References ipt_ctile2panel(), PLASMA_cshiftr, and PLASMA_SUCCESS.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_ctile2panel(plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshiftr(m, n, mb, nb, A);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_cccrb2crrb ( plasma_context_t *  plasma,
PLASMA_enum  idep,
PLASMA_enum  odep,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 120 of file cgecfi2.c.

References PLASMA_pcgetmi2, PLASMA_SUCCESS, and PlasmaColumnwise.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
PLASMA_pcgetmi2(idep, odep, PlasmaColumnwise, m, n, mb, nb, A);
return PLASMA_SUCCESS;
}

Here is the caller graph for this function:

int ipt_cccrb2rcrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 167 of file cgecfi2.c.

References plasma_cshift(), and PLASMA_SUCCESS.

{
int M_, N_;
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
M_ = m / mb;
N_ = n / nb;
/* quick return */
if( (M_ < 2) || (N_ < 2) ) {
return PLASMA_SUCCESS;
}
plasma_cshift(plasma, m, n, A, 1, ( m / mb ), ( n / nb ), (mb*nb),
sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int ipt_cccrb2rm ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 353 of file cgecfi2.c.

References ipt_cccrb2rcrb(), ipt_crcrb2rrrb(), ipt_crrrb2rm, PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_cccrb2rcrb(plasma, m, n, A, mb, nb, sequence, request);
ipt_crcrb2rrrb(plasma, PlasmaIPT_All, PlasmaIPT_Panel, m, n, A, mb, nb, sequence, request);
ipt_crrrb2rm( plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_cccrb2rrrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 226 of file cgecfi2.c.

References ipt_cccrb2rcrb(), ipt_crcrb2rrrb(), PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_NoDep.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_cccrb2rcrb(plasma, m, n, A, mb, nb, sequence, request);
ipt_crcrb2rrrb(plasma, PlasmaIPT_All, PlasmaIPT_NoDep, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_ccm2ccrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

ipt_ccm2ccrb converts a matrix from CM format to CCRB format

Parameters:
[in]plasmaPlasma context to which this call belong to.
[in]mNumber of rows of matrix A
[in]nNumber of columns of matrix A
[in,out]AMatrix of size m*n.
[in]mbNumber of rows of each block
[in]nbNumber of columns of each block
[in]sequenceIdentifies the sequence of function calls that this call belongs to (for completion checks and exception handling purposes).
[out]requestIdentifies this function call (for exception handling purposes). ****************************************************************************

Self-contained functions

Definition at line 93 of file cgecfi2.c.

References ipt_cpanel2tile(), PLASMA_cshift, and PLASMA_SUCCESS.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
PLASMA_cshift(m, n, mb, nb, A);
ipt_cpanel2tile(plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_ccm2crrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 273 of file cgecfi2.c.

References ipt_cccrb2crrb(), PLASMA_cshift, PLASMA_SUCCESS, PlasmaIPT_NoDep, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
//ipt_ccm2ccrb( plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshift(m, n, mb, nb, A);
ipt_cccrb2crrb(plasma, PlasmaIPT_Panel, PlasmaIPT_NoDep, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_ccm2rcrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Composition of 2 sub-routines

Definition at line 197 of file cgecfi2.c.

References ipt_cccrb2rcrb(), ipt_cpanel2all(), PLASMA_cshift, and PLASMA_SUCCESS.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
//ipt_ccm2ccrb( plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshift(m, n, mb, nb, A);
ipt_cpanel2all(plasma, m, n, A, mb, nb, sequence, request);
ipt_cccrb2rcrb(plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_ccm2rm ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Composition of 4 sub-routines

Definition at line 386 of file cgecfi2.c.

References ipt_cccrb2rcrb(), ipt_cpanel2all(), ipt_crcrb2rrrb(), ipt_crrrb2rm, PLASMA_cshift, PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
//ipt_ccm2ccrb( plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshift(m, n, mb, nb, A);
ipt_cpanel2all(plasma, m, n, A, mb, nb, sequence, request);
ipt_cccrb2rcrb(plasma, m, n, A, mb, nb, sequence, request);
ipt_crcrb2rrrb(plasma, PlasmaIPT_All, PlasmaIPT_Panel, m, n, A, mb, nb, sequence, request);
ipt_crrrb2rm( plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_ccm2rrrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Composition of 3 sub-routines

Definition at line 327 of file cgecfi2.c.

References ipt_cccrb2crrb(), ipt_ccrrb2rrrb, PLASMA_cshift, PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
//ipt_ccm2ccrb( plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshift(m, n, mb, nb, A);
ipt_cccrb2crrb(plasma, PlasmaIPT_Panel, PlasmaIPT_All, m, n, A, mb, nb, sequence, request);
ipt_ccrrb2rrrb(plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_ccrrb2ccrb ( plasma_context_t *  plasma,
PLASMA_enum  idep,
PLASMA_enum  odep,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 131 of file cgecfi2.c.

References PLASMA_pcgetmi2, PLASMA_SUCCESS, and PlasmaRowwise.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
PLASMA_pcgetmi2(idep, odep, PlasmaRowwise, n, m, nb, mb, A);
return PLASMA_SUCCESS;
}

Here is the caller graph for this function:

int ipt_ccrrb2cm ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 285 of file cgecfi2.c.

References ipt_ccrrb2ccrb(), PLASMA_cshiftr, PLASMA_SUCCESS, PlasmaIPT_NoDep, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_ccrrb2ccrb(plasma, PlasmaIPT_NoDep, PlasmaIPT_Panel, m, n, A, mb, nb, sequence, request);
//ipt_cccrb2cm( plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshiftr(m, n, mb, nb, A);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_ccrrb2rcrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 259 of file cgecfi2.c.

References ipt_cccrb2rcrb(), ipt_ccrrb2ccrb(), PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_NoDep.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_ccrrb2ccrb(plasma, PlasmaIPT_NoDep, PlasmaIPT_All, m, n, A, mb, nb, sequence, request);
ipt_cccrb2rcrb(plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_cpanel2all ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 501 of file cgecfi2.c.

References CORE_foo2_quark(), GATHERV, INOUT, INPUT, PLASMA_DYNAMIC_SCHEDULING, plasma_dynamic_spawn, PLASMA_SCHEDULING, PLASMA_SUCCESS, plasma_context_struct::quark, QUARK_Insert_Task(), plasma_sequence_t::quark_sequence, QUARK_Task_Flag_Set(), Quark_Task_Flags_Initializer, TASK_SEQUENCE, TASKCOLOR, TASKLABEL, and VALUE.

{
if (PLASMA_SCHEDULING != PLASMA_DYNAMIC_SCHEDULING)
return PLASMA_SUCCESS;
int i;
int N_ = n / nb;
Quark_Task_Flags task_flags = Quark_Task_Flags_Initializer;
QUARK_Task_Flag_Set(&task_flags, TASK_SEQUENCE, (intptr_t)sequence->quark_sequence);
if ( N_ > 1 ) {
plasma_dynamic_spawn();
for(i=1; i<N_; i++) {
#ifdef TRACE_IPT
char str[30];
sprintf(str, "Foo2 C2RI %d", i*m*nb);
#endif
QUARK_Insert_Task(plasma->quark, CORE_foo2_quark, &task_flags,
sizeof(PLASMA_Complex32_t)*m*n, A, INOUT | GATHERV,
sizeof(PLASMA_Complex32_t)*m*nb, &(A[i*m*nb]), INPUT,
#ifdef TRACE_IPT
30, str, VALUE | TASKLABEL,
4, "red", VALUE | TASKCOLOR,
#endif
0);
}
}
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int ipt_cpanel2tile ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 462 of file cgecfi2.c.

References CORE_foo2_quark(), INOUT, INPUT, PLASMA_DYNAMIC_SCHEDULING, plasma_dynamic_spawn, PLASMA_SCHEDULING, PLASMA_SUCCESS, plasma_context_struct::quark, QUARK_Insert_Task(), plasma_sequence_t::quark_sequence, QUARK_Task_Flag_Set(), Quark_Task_Flags_Initializer, TASK_SEQUENCE, TASKCOLOR, TASKLABEL, and VALUE.

{
if( PLASMA_SCHEDULING != PLASMA_DYNAMIC_SCHEDULING )
return PLASMA_SUCCESS;
PLASMA_Complex32_t *Al;
int i,j;
int M_ = m / mb;
int N_ = n / nb;
int bsiz = mb*nb;
int psiz = m*nb;
Quark_Task_Flags task_flags = Quark_Task_Flags_Initializer;
QUARK_Task_Flag_Set(&task_flags, TASK_SEQUENCE, (intptr_t)sequence->quark_sequence);
plasma_dynamic_spawn();
for(j=0; j<N_; j++) {
Al = &(A[psiz*j]);
for(i=1; i<M_; i++) {
#ifdef TRACE_IPT
char str[30];
sprintf(str, "Foo2 C2RI %d", i*m*nb);
#endif
QUARK_Insert_Task(plasma->quark, CORE_foo2_quark, &task_flags,
sizeof(PLASMA_Complex32_t)*psiz, Al, INPUT,
sizeof(PLASMA_Complex32_t)*bsiz, &(Al[i*bsiz]), INOUT,
#ifdef TRACE_IPT
30, str, VALUE | TASKLABEL,
4, "red", VALUE | TASKCOLOR,
#endif
0);
}
}
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function:

int ipt_crcrb2cm ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 210 of file cgecfi2.c.

References ipt_call2panel(), ipt_crcrb2ccrb, PLASMA_cshiftr, and PLASMA_SUCCESS.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_crcrb2ccrb(plasma, m, n, A, mb, nb, sequence, request);
ipt_call2panel(plasma, m, n, A, mb, nb, sequence, request);
//ipt_cccrb2cm( plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshiftr(m, n, mb, nb, A);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_crcrb2crrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 248 of file cgecfi2.c.

References ipt_cccrb2crrb(), ipt_crcrb2ccrb, PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_NoDep.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_crcrb2ccrb(plasma, m, n, A, mb, nb, sequence, request);
ipt_cccrb2crrb(plasma, PlasmaIPT_All, PlasmaIPT_NoDep, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_crcrb2rm ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 308 of file cgecfi2.c.

References ipt_crcrb2rrrb(), ipt_crrrb2rm, PLASMA_SUCCESS, PlasmaIPT_NoDep, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_crcrb2rrrb(plasma, PlasmaIPT_NoDep, PlasmaIPT_Panel, m, n, A, mb, nb, sequence, request);
ipt_crrrb2rm( plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_crcrb2rrrb ( plasma_context_t *  plasma,
PLASMA_enum  idep,
PLASMA_enum  odep,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 142 of file cgecfi2.c.

References PLASMA_pcgetmi2, PLASMA_SUCCESS, and PlasmaRowwise.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
PLASMA_pcgetmi2(idep, odep, PlasmaRowwise, m, n, mb, nb, A);
return PLASMA_SUCCESS;
}

Here is the caller graph for this function:

int ipt_crm2ccrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 365 of file cgecfi2.c.

References ipt_crcrb2ccrb, ipt_crm2rrrb, ipt_crrrb2rcrb(), PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_crm2rrrb( plasma, m, n, A, mb, nb, sequence, request);
ipt_crrrb2rcrb(plasma, PlasmaIPT_Panel, PlasmaIPT_All, m, n, A, mb, nb, sequence, request);
ipt_crcrb2ccrb(plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_crm2cm ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 401 of file cgecfi2.c.

References ipt_call2panel(), ipt_crcrb2ccrb, ipt_crm2rrrb, ipt_crrrb2rcrb(), PLASMA_cshiftr, PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_crm2rrrb( plasma, m, n, A, mb, nb, sequence, request);
ipt_crrrb2rcrb(plasma, PlasmaIPT_Panel, PlasmaIPT_All, m, n, A, mb, nb, sequence, request);
ipt_crcrb2ccrb(plasma, m, n, A, mb, nb, sequence, request);
ipt_call2panel(plasma, m, n, A, mb, nb, sequence, request);
//ipt_cccrb2cm( plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshiftr(m, n, mb, nb, A);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_crm2rcrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 297 of file cgecfi2.c.

References ipt_crm2rrrb, ipt_crrrb2rcrb(), PLASMA_SUCCESS, PlasmaIPT_NoDep, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_crm2rrrb( plasma, m, n, A, mb, nb, sequence, request);
ipt_crrrb2rcrb(plasma, PlasmaIPT_Panel, PlasmaIPT_NoDep, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_crrrb2ccrb ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 237 of file cgecfi2.c.

References ipt_crcrb2ccrb, ipt_crrrb2rcrb(), PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_NoDep.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_crrrb2rcrb(plasma, PlasmaIPT_NoDep, PlasmaIPT_All, m, n, A, mb, nb, sequence, request);
ipt_crcrb2ccrb(plasma, m, n, A, mb, nb, sequence, request);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_crrrb2cm ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 340 of file cgecfi2.c.

References ipt_ccrrb2ccrb(), ipt_crrrb2crrb, PLASMA_cshiftr, PLASMA_SUCCESS, PlasmaIPT_All, and PlasmaIPT_Panel.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
ipt_crrrb2crrb(plasma, m, n, A, mb, nb, sequence, request);
ipt_ccrrb2ccrb(plasma, PlasmaIPT_All, PlasmaIPT_Panel, m, n, A, mb, nb, sequence, request);
//ipt_cccrb2cm( plasma, m, n, A, mb, nb, sequence, request);
PLASMA_cshiftr(m, n, mb, nb, A);
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

int ipt_crrrb2rcrb ( plasma_context_t *  plasma,
PLASMA_enum  idep,
PLASMA_enum  odep,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Definition at line 153 of file cgecfi2.c.

References PLASMA_pcgetmi2, PLASMA_SUCCESS, and PlasmaColumnwise.

{
if( (m == 0) || (n == 0) )
return PLASMA_SUCCESS;
PLASMA_pcgetmi2(idep, odep, PlasmaColumnwise, n, m, nb, mb, A);
return PLASMA_SUCCESS;
}

Here is the caller graph for this function:

int ipt_ctile2panel ( plasma_context_t *  plasma,
int  m,
int  n,
PLASMA_Complex32_t *  A,
int  mb,
int  nb,
PLASMA_sequence *  sequence,
PLASMA_request *  request 
)

Barriers

Definition at line 423 of file cgecfi2.c.

References CORE_foo2_quark(), GATHERV, INOUT, PLASMA_DYNAMIC_SCHEDULING, plasma_dynamic_spawn, PLASMA_SCHEDULING, PLASMA_SUCCESS, plasma_context_struct::quark, QUARK_Insert_Task(), plasma_sequence_t::quark_sequence, QUARK_Task_Flag_Set(), Quark_Task_Flags_Initializer, TASK_SEQUENCE, TASKCOLOR, TASKLABEL, and VALUE.

{
if( PLASMA_SCHEDULING != PLASMA_DYNAMIC_SCHEDULING )
return PLASMA_SUCCESS;
PLASMA_Complex32_t *Al;
int i,j;
int M_ = m / mb;
int N_ = n / nb;
int bsiz = mb*nb;
int psiz = m*nb;
Quark_Task_Flags task_flags = Quark_Task_Flags_Initializer;
QUARK_Task_Flag_Set(&task_flags, TASK_SEQUENCE, (intptr_t)sequence->quark_sequence);
plasma_dynamic_spawn();
for(j=0; j<N_; j++) {
Al = &(A[psiz*j]);
for(i=1; i<M_; i++) {
#ifdef TRACE_IPT
char str[30];
sprintf(str, "Foo2 C2RI %d", i*m*nb);
#endif
QUARK_Insert_Task(plasma->quark, CORE_foo2_quark, &task_flags,
sizeof(PLASMA_Complex32_t)*psiz, Al, INOUT | GATHERV,
sizeof(PLASMA_Complex32_t)*bsiz, &(Al[i*bsiz]), INOUT,
#ifdef TRACE_IPT
30, str, VALUE | TASKLABEL,
4, "red", VALUE | TASKCOLOR,
#endif
0);
}
}
return PLASMA_SUCCESS;
}

Here is the call graph for this function:

Here is the caller graph for this function: