keropts.h

Go to the documentation of this file.

#if !defined(INC_BENCH_KEROPTS_H)
#define INC_BENCH_KEROPTS_H

#include <stdio.h>

#if defined(DO_NAME_MANGLING)

#define kerargs_MatMult_t MANGLE_(kerags_MatMult_t)
#define kerargs_MatTrisolve_t MANGLE_(kerags_MatTrisolve_t)
#define kerargs_MatTransMatMult_t MANGLE_(kerags_MatTransMatMult_t)
#define kerargs_MatMultAndMatTransMult_t \
    MANGLE_(kerags_MatMultAndMatTransMult_t)
#define kerargs_MatPowMult_t MANGLE_(kerags_MatPowMult_t)
#define keropts_process MANGLE_(keropts_process)
#endif

typedef enum
{
  KERNEL_NULL = 0,
  KERNEL_MatMult = 1,
  KERNEL_MatTrisolve = 2,
  KERNEL_MatTransMatMult = 3,
  KERNEL_MatMultAndMatTransMult = 4,
  KERNEL_MatPowMult = 5
} kernel_types_t;

typedef struct
{
  int num_calls;    
  oski_index_t num_vecs;       
  oski_matop_t op;   
  oski_value_t alpha;       
  oski_vecview_t x;   
  oski_storage_t x_layout;   
  oski_value_t beta;       
  oski_vecview_t y;   
  oski_storage_t y_layout;   
} kerargs_MatMult_t;

typedef struct
{
  int num_calls;    
  oski_index_t num_vecs;       
  oski_matop_t op;   
  oski_value_t alpha;       
  oski_vecview_t x;   
  oski_storage_t x_layout;   
} kerargs_MatTrisolve_t;

typedef struct
{
  int num_calls;    
  oski_index_t num_vecs;       
  oski_ataop_t op;   
  oski_value_t alpha;       
  oski_vecview_t x;   
  oski_storage_t x_layout;   
  oski_value_t beta;       
  oski_vecview_t y;   
  oski_storage_t y_layout;   
  oski_vecview_t t;   
  oski_storage_t t_layout;   
} kerargs_MatTransMatMult_t;

typedef struct
{
  int num_calls;    
  oski_index_t num_vecs;       
  oski_matop_t op;   
  oski_value_t alpha;       
  oski_vecview_t x;   
  oski_storage_t x_layout;   
  oski_value_t beta;       
  oski_vecview_t y;   
  oski_storage_t y_layout;   
  oski_value_t omega;       
  oski_vecview_t w;   
  oski_storage_t w_layout;   
  oski_value_t zeta;       
  oski_vecview_t z;   
  oski_storage_t z_layout;   
} kerargs_MatMultAndMatTransMult_t;

typedef struct
{
  int num_calls;    
  oski_index_t num_vecs;       
  oski_matop_t op;   
  int power;       
  oski_value_t alpha;       
  oski_vecview_t x;   
  oski_storage_t x_layout;   
  oski_value_t beta;       
  oski_vecview_t y;   
  oski_storage_t y_layout;   
  oski_vecview_t t;   
  oski_storage_t t_layout;   
} kerargs_MatPowMult_t;

typedef struct
{
  kernel_types_t kernel;     
  union
  {
    kerargs_MatMult_t MatMult;         
    kerargs_MatTrisolve_t MatTrisolve;         
    kerargs_MatTransMatMult_t MatTransMatMult;         
    kerargs_MatMultAndMatTransMult_t MatMultAndMatTransMult;
    kerargs_MatPowMult_t MatPowMult;         
  } args;
} kernel_t;

void keropts_Usage (FILE * fp);

int keropts_Process (int argc, char *argv[], int i_start, kernel_t ** p_opt);

#endif

/* eof */

---