amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-05-11 17:50:00 +00:00
Code Issues Packages Projects Releases Wiki Activity

DTL logging fixes and improvements (3)

Browse Source 
More improvements to DTL coverage and coding:
- Expand logging coverage to banded matrix APIs in frame/compat/f2c
- Expand logging coverage to packed matrix APIs in frame/compat/f2c
- Commit b8aa5c2894 was wrong to
  remove calls to AOCL_DTL_INITIALIZE for APIs where bli_init_auto()
  is not called. AOCL_DTL_INITIALIZE is essential when logging is
  enabled but tracing is not, otherwise the ICV gbIsLoggingEnabled
  will not be initialized based on logging status and remain as
  the default FALSE value.

AMD-Internal: [CPUPL-7010]
This commit is contained in:
Smyth, Edward
2025-08-12 09:42:40 +01:00
committed by GitHub
parent b0a4914417
commit dc06cdb621
23 changed files with 770 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

339
aocl_dtl/aocldtl_blis.c
View File

@@ -736,6 +736,345 @@ void AOCL_DTL_log_trsv_sizes(int8 loglevel,
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
// Level-2 Banded Logging
void AOCL_DTL_log_gbmv_sizes(int8 loglevel,
char dt_type,
const f77_char transa,
const f77_int m,
const f77_int n,
const f77_int kl,
const f77_int ku,
const void *alpha,
const f77_int lda,
const f77_int incx,
const void *beta,
const f77_int incy,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_real = 0.0;
double alpha_imag = 0.0;
double beta_real = 0.0;
double beta_imag = 0.0;
DTL_get_complex_parts(dt_type, alpha, &alpha_real, &alpha_imag);
DTL_get_complex_parts(dt_type, beta, &beta_real, &beta_imag);
// {S, D,C, Z} { transa, m, n, kl, ku, alpha, lda, incx, beta, incy}
sprintf(buffer, "%c %c %ld %ld %ld %ld %lf %lf %ld %ld %lf %lf %ld\n", tolower(dt_type),
transa, (dim_t)m, (dim_t)n, (dim_t)kl, (dim_t)ku, alpha_real, alpha_imag,
(dim_t)lda, (dim_t)incx, beta_real, beta_imag, (dim_t)incy);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_hbmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const f77_int k,
const void *alpha,
const f77_int lda,
const f77_int incx,
const void *beta,
const f77_int incy,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_real = 0.0;
double alpha_imag = 0.0;
double beta_real = 0.0;
double beta_imag = 0.0;
DTL_get_complex_parts(dt_type, alpha, &alpha_real, &alpha_imag);
DTL_get_complex_parts(dt_type, beta, &beta_real, &beta_imag);
// {S, D,C, Z} { uploa, m, k, alpha_real, alpha_imag, lda, incx, beta_real, beta_imag, incy}
sprintf(buffer, "%c %c %ld %ld %lf %lf %ld %ld %lf %lf %ld\n", tolower(dt_type),
uploa, (dim_t)m, (dim_t)k, alpha_real, alpha_imag, (dim_t)lda, (dim_t)incx, beta_real, beta_imag, (dim_t)incy);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_sbmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const f77_int k,
const void *alpha,
const f77_int lda,
const f77_int incx,
const void *beta,
const f77_int incy,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_d = 0.0;
double beta_d = 0.0;
if (dt_type == 's' || dt_type == 'S')
{
alpha_d = *((float *)alpha);
beta_d = *((float *)beta);
}
else if (dt_type == 'd' || dt_type == 'D')
{
alpha_d = *((double *)alpha);
beta_d = *((double *)beta);
}
// {S, D} { uploa, m, k, alpha_d, lda, incx, beta_d, incy}
sprintf(buffer, "%c %c %ld %ld %lf %ld %ld %lf %ld\n", tolower(dt_type),
uploa, (dim_t)m, (dim_t)k, alpha_d, (dim_t)lda, (dim_t)incx, beta_d, (dim_t)incy);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_tbmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_char transa,
const f77_char diaga,
const f77_int n,
const f77_int k,
const f77_int lda,
const f77_int incx,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
// {S, D,C, Z} { side, uploa, transa, diaga, n, k, lda, incx}
sprintf(buffer, "%c %c %c %c %ld %ld %ld %ld\n", tolower(dt_type),
uploa, transa, diaga, (dim_t)n, (dim_t)k, (dim_t)lda, (dim_t)incx);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_tbsv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_char transa,
const f77_char diaga,
const f77_int n,
const f77_int k,
const f77_int lda,
const f77_int incx,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
// {S, D,C, Z} { side, uploa, transa, diaga, n, k, lda, incx}
sprintf(buffer, "%c %c %c %c %ld %ld %ld %ld\n", tolower(dt_type),
uploa, transa, diaga, (dim_t)n, (dim_t)k, (dim_t)lda, (dim_t)incx);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
// Level-2 Packed Logging
void AOCL_DTL_log_hpmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void *alpha,
const f77_int incx,
const void *beta,
const f77_int incy,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_real = 0.0;
double alpha_imag = 0.0;
double beta_real = 0.0;
double beta_imag = 0.0;
DTL_get_complex_parts(dt_type, alpha, &alpha_real, &alpha_imag);
DTL_get_complex_parts(dt_type, beta, &beta_real, &beta_imag);
// {S, D,C, Z} { uploa, m, alpha_real, alpha_imag, incx, beta_real, beta_imag, incy}
sprintf(buffer, "%c %c %ld %lf %lf %ld %lf %lf %ld\n", tolower(dt_type),
uploa, (dim_t)m, alpha_real, alpha_imag, (dim_t)incx, beta_real, beta_imag, (dim_t)incy);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_hpr2_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void *alpha,
const f77_int incx,
const f77_int incy,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_real = 0.0;
double alpha_imag = 0.0;
DTL_get_complex_parts(dt_type, alpha, &alpha_real, &alpha_imag);
// {S, D, C, Z} {uploa, m, alpha_real, alpha_imag, incx, incy}
sprintf(buffer, "%c %c %ld %lf %lf %ld %ld\n", tolower(dt_type),
uploa, (dim_t)m, alpha_real, alpha_imag, (dim_t)incx, (dim_t)incy);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_hpr_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void *alpha,
const f77_int incx,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_real = 0.0;
double alpha_imag = 0.0;
DTL_get_complex_parts(dt_type, alpha, &alpha_real, &alpha_imag);
// {C, Z} {uploa, m alpha_real, alpha_imag incx}
sprintf(buffer, "%c %c %ld %lf %lf %ld\n", tolower(dt_type),
uploa, (dim_t)m, alpha_real, alpha_imag, (dim_t)incx);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_spmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void *alpha,
const f77_int incx,
const void *beta,
const f77_int incy,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_d = 0.0;
double beta_d = 0.0;
if (dt_type == 's' || dt_type == 'S')
{
alpha_d = *((float *)alpha);
beta_d = *((float *)beta);
}
else if (dt_type == 'd' || dt_type == 'D')
{
alpha_d = *((double *)alpha);
beta_d = *((double *)beta);
}
// {S, D} { uploa, m, alpha_d, incx, beta_d, incy}
sprintf(buffer, "%c %c %ld %lf %ld %lf %ld\n", tolower(dt_type),
uploa, (dim_t)m, alpha_d, (dim_t)incx, beta_d, (dim_t)incy);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_spr2_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void *alpha,
const f77_int incx,
const f77_int incy,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_real = 0.0;
double alpha_imag = 0.0;
DTL_get_complex_parts(dt_type, alpha, &alpha_real, &alpha_imag);
// { uploa, m, alpha_real, alpha_imag, incx, incy}
sprintf(buffer, "%c %c %ld %lf %lf %ld %ld\n", tolower(dt_type),
uploa, (dim_t)m, alpha_real, alpha_imag, (dim_t)incx, (dim_t)incy);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_spr_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void *alpha,
const f77_int incx,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
double alpha_real = 0.0;
double alpha_imag = 0.0;
DTL_get_complex_parts(dt_type, alpha, &alpha_real, &alpha_imag);
// {S, D,C, Z} { uploa, m, alpha_real, alpha_imag, incx}
sprintf(buffer, "%c %c %ld %lf %lf %ld\n", tolower(dt_type),
uploa, (dim_t)m, alpha_real, alpha_imag, (dim_t)incx);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_tpmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_char transa,
const f77_char diaga,
const f77_int m,
const f77_int incx,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
// {S, D,C, Z} { side, uploa, transa, diaga, m, incx}
sprintf(buffer, "%c %c %c %c %ld %ld\n", tolower(dt_type),
uploa, transa, diaga, (dim_t)m, (dim_t)incx);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
void AOCL_DTL_log_tpsv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_char transa,
const f77_char diaga,
const f77_int m,
const f77_int incx,
const char *filename,
const char *function_name,
int line)
{
char buffer[256];
// {S, D,C, Z} { side, uploa, transa, diaga, m, incx}
sprintf(buffer, "%c %c %c %c %ld %ld\n", tolower(dt_type),
uploa, transa, diaga, (dim_t)m, (dim_t)incx);
DTL_Trace(loglevel, TRACE_TYPE_LOG, function_name, function_name, line, buffer);
}
// Level-1 Logging
void AOCL_DTL_log_amax_sizes(int8 loglevel,

261
aocl_dtl/aocldtl_blis.h
View File

@@ -308,6 +308,78 @@ void AOCL_DTL_log_trsv_sizes(int8 loglevel,
const char* function_name,
int line);
// Level-2 Banded Logging
void AOCL_DTL_log_gbmv_sizes(int8 loglevel,
char dt_type,
const f77_char transa,
const f77_int m,
const f77_int n,
const f77_int kl,
const f77_int ku,
const void* alpha,
const f77_int lda,
const f77_int incx,
const void* beta,
const f77_int incy,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_hbmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const f77_int k,
const void* alpha,
const f77_int lda,
const f77_int incx,
const void* beta,
const f77_int incy,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_sbmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const f77_int k,
const void* alpha,
const f77_int lda,
const f77_int incx,
const void* beta,
const f77_int incy,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_tbmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_char transa,
const f77_char diaga,
const f77_int m,
const f77_int k,
const f77_int lda,
const f77_int incx,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_tbsv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_char transa,
const f77_char diaga,
const f77_int m,
const f77_int k,
const f77_int lda,
const f77_int incx,
const char* filename,
const char* function_name,
int line);
// Level-1 Logging
void AOCL_DTL_log_amax_sizes(int8 loglevel,
@@ -397,6 +469,97 @@ void AOCL_DTL_log_swap_sizes(int8 loglevel,
const char* filename,
const char* function_name,
int line);
// Level-2 Packed Logging
void AOCL_DTL_log_hpmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void* alpha,
const f77_int incx,
const void* beta,
const f77_int incy,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_hpr2_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void* alpha,
const f77_int incx,
const f77_int incy,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_hpr_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void* alpha,
const f77_int incx,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_spmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void* alpha,
const f77_int incx,
const void* beta,
const f77_int incy,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_spr2_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void* alpha,
const f77_int incx,
const f77_int incy,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_spr_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_int m,
const void* alpha,
const f77_int incx,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_tpmv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_char transa,
const f77_char diaga,
const f77_int m,
const f77_int incx,
const char* filename,
const char* function_name,
int line);
void AOCL_DTL_log_tpsv_sizes(int8 loglevel,
char dt_type,
const f77_char uploa,
const f77_char transa,
const f77_char diaga,
const f77_int m,
const f77_int incx,
const char* filename,
const char* function_name,
int line);
// Level-3 Macros
#define AOCL_DTL_LOG_GEMM_INPUTS(loglevel, dt, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc) \
@@ -511,6 +674,74 @@ void AOCL_DTL_log_swap_sizes(int8 loglevel,
AOCL_DTL_log_trsv_sizes(loglevel, dt_type, uploa, transa, diaga, m, lda, incx,\
__FILE__,__FUNCTION__,__LINE__);
// Level-2 Banded Macros
#define AOCL_DTL_LOG_GBMV_INPUTS(loglevel, dt_type, transa, m, n, kl, ku, alp, lda, incx, beta, incy) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_gbmv_sizes(loglevel, dt_type, transa, m, n, kl, ku, alp, lda, incx, beta, incy, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_HBMV_INPUTS(loglevel, dt_type, uploa, m, k, alpha, lda, incx, beta, incy) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_hbmv_sizes(loglevel, dt_type, uploa, m, k, alpha, lda, incx, beta, incy, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_SBMV_INPUTS(loglevel, dt_type, uploa, m, k, alpha, lda, incx, beta, incy)\
if (gbIsLoggingEnabled) \
AOCL_DTL_log_sbmv_sizes(loglevel, dt_type, uploa, m, k, alpha, lda, incx, beta, incy, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_TBMV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, k, lda, incx) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_tbmv_sizes(loglevel, dt_type, uploa, transa, diaga, m, k, lda, incx,\
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_TBSV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, k, lda, incx) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_tbsv_sizes(loglevel, dt_type, uploa, transa, diaga, m, k, lda, incx,\
__FILE__,__FUNCTION__,__LINE__);
// Level-2 Packed Macros
#define AOCL_DTL_LOG_HPMV_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, beta, incy) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_hpmv_sizes(loglevel, dt_type, uploa, m, alpha, incx, beta, incy, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_HPR2_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, incy) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_hpr2_sizes(loglevel, dt_type, uploa, m, alpha, incx, incy, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_HPR_INPUTS(loglevel, dt_type, uploa, m, alpha, incx )\
if (gbIsLoggingEnabled) \
AOCL_DTL_log_hpr_sizes(loglevel, dt_type, uploa, m, alpha, incx, __FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_SPMV_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, beta, incy)\
if (gbIsLoggingEnabled) \
AOCL_DTL_log_spmv_sizes(loglevel, dt_type, uploa, m, alpha, incx, beta, incy, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_SPR2_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, incy) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_spr2_sizes(loglevel, dt_type, uploa, m, alpha, incx, incy, __FILE__,\
__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_SPR_INPUTS(loglevel, dt_type, uploa, m, alpha, incx) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_spr_sizes(loglevel, dt_type, uploa, m, alpha, incx,\
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_TPMV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, incx) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_tpmv_sizes(loglevel, dt_type, uploa, transa, diaga, m, incx,\
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_TPSV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, incx ) \
if (gbIsLoggingEnabled) \
AOCL_DTL_log_tpsv_sizes(loglevel, dt_type, uploa, transa, diaga, m, incx,\
__FILE__,__FUNCTION__,__LINE__);
// Level-1 Macros
#define AOCL_DTL_LOG_AMAX_INPUTS(loglevel, dt_type, n, incx) \
@@ -608,6 +839,36 @@ void AOCL_DTL_log_swap_sizes(int8 loglevel,
#define AOCL_DTL_LOG_TRSV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, lda, incx )
// Level-2 Banded Macros
#define AOCL_DTL_LOG_GBMV_INPUTS(loglevel, dt_type, transa, m, n, kl, ku, alp, lda, incx, beta, incy)
#define AOCL_DTL_LOG_HBMV_INPUTS(loglevel, dt_type, uploa, m, k, alpha, lda, incx, beta, incy)
#define AOCL_DTL_LOG_SBMV_INPUTS(loglevel, dt_type, uploa, m, k, alpha, lda, incx, beta, incy)
#define AOCL_DTL_LOG_TBMV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, k, lda, incx)
#define AOCL_DTL_LOG_TBSV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, k, lda, incx)
// Level-2 Packed Macros
#define AOCL_DTL_LOG_HPMV_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, beta, incy)
#define AOCL_DTL_LOG_HPR2_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, incy)
#define AOCL_DTL_LOG_HPR_INPUTS(loglevel, dt_type, uploa, m, alpha, incx )
#define AOCL_DTL_LOG_SPMV_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, beta, incy)
#define AOCL_DTL_LOG_SPR2_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, incy)
#define AOCL_DTL_LOG_SPR_INPUTS(loglevel, dt_type, uploa, m, alpha, incx)
#define AOCL_DTL_LOG_TPMV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, incx)
#define AOCL_DTL_LOG_TPSV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, incx )
// Level-1 Macros
#define AOCL_DTL_LOG_AMAX_INPUTS(loglevel, dt_type, n, incx)

4
frame/compat/bla_amax_amd.c
View File

@@ -122,6 +122,8 @@ f77_int isamax_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_AMAX_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *n, *incx);
@@ -237,6 +239,8 @@ f77_int idamax_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_AMAX_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', *n, *incx);

8
frame/compat/bla_axpy_amd.c
View File

@@ -134,6 +134,8 @@ void saxpy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_AXPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *n, (float *)alpha, *incx, *incy)
@@ -273,6 +275,8 @@ void daxpy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_AXPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', *n, (double*)alpha, *incx, *incy)
@@ -523,6 +527,8 @@ void caxpy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_AXPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', *n, (scomplex*)alpha, *incx, *incy)
@@ -639,6 +645,8 @@ void zaxpy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_AXPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', *n, (dcomplex*)alpha, *incx, *incy)

6
frame/compat/bla_copy_amd.c
View File

@@ -116,6 +116,8 @@ void scopy_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_COPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *n, *incx, *incy)
@@ -237,6 +239,8 @@ void dcopy_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_COPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', *n, *incx, *incy)
@@ -488,6 +492,8 @@ void zcopy_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_COPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', *n, *incx, *incy)

18
frame/compat/bla_dot_amd.c
View File

@@ -122,6 +122,8 @@ float sdot_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', 'N', *n, *incx, *incy);
@@ -259,6 +261,10 @@ double ddot_blis_impl
const double* y, const f77_int* incy
)
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', 'N', *n, *incx, *incy);
dim_t n_elem;
@@ -619,6 +625,8 @@ scomplex cdotu_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', 'N', *n, *incx, *incy);
@@ -730,6 +738,8 @@ dcomplex zdotu_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', 'N', *n, *incx, *incy);
@@ -1026,6 +1036,8 @@ scomplex cdotc_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', 'C', *n, *incx, *incy);
@@ -1138,6 +1150,8 @@ dcomplex zdotc_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', 'C', *n, *incx, *incy);
@@ -1551,6 +1565,10 @@ double PASTEF77S(d,sdot)
double rho;
dim_t i;
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', 'N', *n, *incx, *incy);
/* Initialization of BLIS is not required. */

8
frame/compat/bla_gemv_amd.c
View File

@@ -190,6 +190,8 @@ void dgemv_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_GEMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', *transa, *m, *n, (void*)alpha, *lda, *incx, (void*)beta, *incy);
@@ -429,6 +431,8 @@ void sgemv_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_GEMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *transa, *m, *n, (void*)alpha, *lda, *incx, (void*)beta, *incy);
@@ -632,6 +636,8 @@ void cgemv_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_GEMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', *transa, *m, *n, (void*)alpha, *lda, *incx, (void*)beta, *incy);
@@ -877,6 +883,8 @@ void zgemv_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_GEMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', *transa, *m, *n, (void*)alpha, *lda, *incx, (void*)beta, *incy);

10
frame/compat/bla_scal_amd.c
View File

@@ -130,6 +130,8 @@ void sscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', (void *) alpha, *n, *incx );
@@ -216,6 +218,8 @@ void dscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', (void *)alpha, *n, *incx );
@@ -411,6 +415,8 @@ void zdscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', (void *) alpha, *n, *incx );
@@ -585,6 +591,8 @@ void cscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', (void *)alpha, *n, *incx);
@@ -675,6 +683,8 @@ void zscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', (void *)alpha, *n, *incx);

4
frame/compat/bla_swap_amd.c
View File

@@ -105,6 +105,8 @@ void sswap_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SWAP_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *n, *incx, *incy);
@@ -204,6 +206,8 @@ void dswap_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SWAP_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', *n, *incx, *incy);

8
frame/compat/extra/bla_axpby_amd.c
View File

@@ -114,6 +114,8 @@ void saxpby_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_AXPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *n, (float *)alpha, *incx, *incy)
@@ -246,6 +248,8 @@ void daxpby_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_AXPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', *n, (double *)alpha, *incx, *incy)
@@ -383,6 +387,8 @@ void caxpby_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_AXPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', *n, (scomplex *)alpha, *incx, *incy)
@@ -515,6 +521,8 @@ void zaxpby_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_AXPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', *n, (dcomplex *)alpha, *incx, *incy)

8
frame/compat/f2c/bla_gbmv.c
View File

@@ -206,7 +206,9 @@ int PASTEF77S(c,gbmv)(const bla_character *trans, const bla_integer *m, const bl
--y;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_GBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *trans, *m, *n, *kl, *ku, (void*)alpha, *lda, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -649,7 +651,9 @@ int PASTEF77S(d,gbmv)(const bla_character *trans, const bla_integer *m, const bl
--y;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_GBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *trans, *m, *n, *kl, *ku, (void*)alpha, *lda, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1016,7 +1020,9 @@ int PASTEF77S(s,gbmv)(const bla_character *trans, const bla_integer *m, const bl
--y;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_GBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *trans, *m, *n, *kl, *ku, (void*)alpha, *lda, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1392,7 +1398,9 @@ int PASTEF77S(z,gbmv)(const bla_character *trans, const bla_integer *m, const bl
--y;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_GBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *trans, *m, *n, *kl, *ku, (void*)alpha, *lda, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;

6
frame/compat/f2c/bla_hbmv.c
View File

@@ -207,7 +207,10 @@ int PASTEF77S(c,hbmv)(const bla_character *uplo, const bla_integer *n, const bla
--y;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_HBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *uplo,
*n, *k, (void*)alpha, *lda, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -664,7 +667,10 @@ int PASTEF77S(z,hbmv)(const bla_character *uplo, const bla_integer *n, const bla
--y;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_HBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *uplo,
*n, *k, (void*)alpha, *lda, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;

6
frame/compat/f2c/bla_hpmv.c
View File

@@ -171,7 +171,10 @@ int PASTEF77S(c,hpmv)(const bla_character *uplo, const bla_integer *n, const bla
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_HPMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *uplo, *n,
(void*)alpha, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -580,7 +583,10 @@ int PASTEF77S(z,hpmv)(const bla_character *uplo, const bla_integer *n, const bla
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_HPMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *uplo, *n,
(void*)alpha, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;

6
frame/compat/f2c/bla_hpr.c
View File

@@ -158,7 +158,10 @@ int PASTEF77S(c,hpr)(const bla_character *uplo, const bla_integer *n, const bla_
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_HPR_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *uplo,
*n, (void*)alpha, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -480,7 +483,10 @@ int PASTEF77S(z,hpr)(const bla_character *uplo, const bla_integer *n, const bla_
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_HPR_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *uplo,
*n, (void*)alpha, *incx);
// Initialize info_value to 0
gint_t info_value = 0;

6
frame/compat/f2c/bla_hpr2.c
View File

@@ -170,7 +170,10 @@ int PASTEF77S(c,hpr2)(const bla_character *uplo, const bla_integer *n, const bla
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_HPR2_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *uplo,
*n, (void*)alpha, *incx, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -568,7 +571,10 @@ int PASTEF77S(z,hpr2)(const bla_character *uplo, const bla_integer *n, const bla
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_HPR2_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *uplo,
*n, (void*)alpha, *incx, *incy);
// Initialize info_value to 0
gint_t info_value = 0;

6
frame/compat/f2c/bla_sbmv.c
View File

@@ -200,7 +200,10 @@ int PASTEF77S(d,sbmv)(const bla_character *uplo, const bla_integer *n, const bla
--y;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_SBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *uplo,
*n, *k, (void*)alpha, *lda, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -562,7 +565,10 @@ int PASTEF77S(s,sbmv)(const bla_character *uplo, const bla_integer *n, const bla
--y;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_SBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *uplo,
*n, *k, (void*)alpha, *lda, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;

6
frame/compat/f2c/bla_spmv.c
View File

@@ -163,7 +163,10 @@ int PASTEF77S(d,spmv)(const bla_character *uplo, const bla_integer *n, const bla
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_SPMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *uplo, *n,
(void*)alpha, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -475,7 +478,10 @@ int PASTEF77S(s,spmv)(const bla_character *uplo, const bla_integer *n, const bla
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_SPMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *uplo, *n,
(void*)alpha, *incx, (void*)beta, *incy);
// Initialize info_value to 0
gint_t info_value = 0;

6
frame/compat/f2c/bla_spr.c
View File

@@ -149,7 +149,10 @@ int PASTEF77S(d,spr)(const bla_character *uplo, const bla_integer *n, const bla_
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_SPR_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *uplo,
*n, (void*)alpha, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -386,7 +389,10 @@ int PASTEF77S(s,spr)(const bla_character *uplo, const bla_integer *n, const bla_
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_SPR_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *uplo,
*n, (void*)alpha, *incx);
// Initialize info_value to 0
gint_t info_value = 0;

6
frame/compat/f2c/bla_spr2.c
View File

@@ -161,7 +161,10 @@ int PASTEF77S(d,spr2)(const bla_character *uplo, const bla_integer *n, const bla
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_SPR2_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *uplo,
*n, (void*)alpha, *incx, *incy);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -430,7 +433,10 @@ int PASTEF77S(s,spr2)(const bla_character *uplo, const bla_integer *n, const bla
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_SPR2_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *uplo,
*n, (void*)alpha, *incx, *incy);
// Initialize info_value to 0
gint_t info_value = 0;

12
frame/compat/f2c/bla_tbmv.c
View File

@@ -212,7 +212,10 @@ int PASTEF77S(c,tbmv)(const bla_character *uplo, const bla_character *trans, con
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *uplo,
*trans, *diag, *n, *k, *lda, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -788,7 +791,10 @@ int PASTEF77S(d,tbmv)(const bla_character *uplo, const bla_character *trans, con
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *uplo,
*trans, *diag, *n, *k, *lda, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1209,7 +1215,10 @@ int PASTEF77S(s,tbmv)(const bla_character *uplo, const bla_character *trans, con
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *uplo,
*trans, *diag, *n, *k, *lda, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1634,7 +1643,10 @@ int PASTEF77S(z,tbmv)(const bla_character *uplo, const bla_character *trans, con
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TBMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *uplo,
*trans, *diag, *n, *k, *lda, *incx);
// Initialize info_value to 0
gint_t info_value = 0;

12
frame/compat/f2c/bla_tbsv.c
View File

@@ -216,7 +216,10 @@ int PASTEF77S(c,tbsv)(const bla_character *uplo, const bla_character *trans, con
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TBSV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *uplo,
*trans, *diag, *n, *k, *lda, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -802,7 +805,10 @@ int PASTEF77S(d,tbsv)(const bla_character *uplo, const bla_character *trans, con
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TBSV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *uplo,
*trans, *diag, *n, *k, *lda, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1243,7 +1249,10 @@ int PASTEF77S(s,tbsv)(const bla_character *uplo, const bla_character *trans, con
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TBSV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *uplo,
*trans, *diag, *n, *k, *lda, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1689,7 +1698,10 @@ int PASTEF77S(z,tbsv)(const bla_character *uplo, const bla_character *trans, con
--x;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TBSV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *uplo,
*trans, *diag, *n, *k, *lda, *incx);
// Initialize info_value to 0
gint_t info_value = 0;

12
frame/compat/f2c/bla_tpmv.c
View File

@@ -170,7 +170,10 @@ int PASTEF77S(c,tpmv)(const bla_character *uplo, const bla_character *trans, con
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TPMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *uplo,
*trans, *diag, *n, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -676,7 +679,10 @@ int PASTEF77S(d,tpmv)(const bla_character *uplo, const bla_character *trans, con
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TPMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *uplo,
*trans, *diag, *n, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1034,7 +1040,10 @@ int PASTEF77S(s,tpmv)(const bla_character *uplo, const bla_character *trans, con
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TPMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *uplo,
*trans, *diag, *n, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1397,7 +1406,10 @@ int PASTEF77S(z,tpmv)(const bla_character *uplo, const bla_character *trans, con
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TPMV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *uplo,
*trans, *diag, *n, *incx);
// Initialize info_value to 0
gint_t info_value = 0;

12
frame/compat/f2c/bla_tpsv.c
View File

@@ -173,7 +173,10 @@ int PASTEF77S(c,tpsv)(const bla_character *uplo, const bla_character *trans, con
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TPSV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *uplo,
*trans, *diag, *n, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -671,7 +674,10 @@ int PASTEF77S(d,tpsv)(const bla_character *uplo, const bla_character *trans, con
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TPSV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *uplo,
*trans, *diag, *n, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1032,7 +1038,10 @@ int PASTEF77S(s,tpsv)(const bla_character *uplo, const bla_character *trans, con
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TPSV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *uplo,
*trans, *diag, *n, *incx);
// Initialize info_value to 0
gint_t info_value = 0;
@@ -1399,7 +1408,10 @@ int PASTEF77S(z,tpsv)(const bla_character *uplo, const bla_character *trans, con
--ap;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_TPSV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *uplo,
*trans, *diag, *n, *incx);
// Initialize info_value to 0
gint_t info_value = 0;