amd/blis
1
0
Fork 0
mirror of https://github.com/amd/blis.git synced 2026-04-20 15:48:50 +00:00
Code Issues Packages Projects Releases Wiki Activity

DTL logging fixes and improvements (6)

Browse Source 
Change handling of AOCL_VERBOSE environment variable and DTL APIs
AOCL_DTL_Enable_Logs() and AOCL_DTL_Disable_Logs() to better handle
threading within the calling application or library. Previously
this was a global setting, which was not thread-safe if these APIs
were called by different application threads. Recent changes made
them thread-safe but resulted in initialization issues.

Details of changes in this commit:
- Move DTL initialization and finalization out of bli_init_apis()
  and handle pthread_once protection separately within DTL code.
- Check AOCL_VERBOSE environment variable and update global ICV
  gbIsLoggingEnabled. Each application thread then initializes
  from this to a thread local variable tlIsLoggingEnabled.
- tlIsLoggingEnabled is then used by AOCL_DTL_Enable_Logs() and
  AOCL_DTL_Disable_Logs() to enable each application thread to
  control logging separately.
- DTL_Initialize() no longer required the desired tracing level
  (AOCL_DTL_TRACE_LEVEL) to be passed as an argument, as this
  is available from the blis.h header file.

AMD-Internal: [CPUPL-7010]
This commit is contained in:
Smyth, Edward
2025-08-26 15:54:22 +01:00
committed by GitHub
parent a05279cd97
commit 3cad637afa
33 changed files with 254 additions and 188 deletions
Download Patch File Download Diff File Expand all files Collapse all files

98
aocl_dtl/aocldtl.c
View File

@@ -23,6 +23,29 @@
#endif
#endif
/*
* A pthread_once_t variable is a pthread structure used in pthread_once().
* pthread_once() is guaranteed to execute exactly once among all threads that
* pass in this control object (until/unless the variable is reset).
*/
static bli_pthread_once_t dtl_once_init = BLIS_PTHREAD_ONCE_INIT;
static bli_pthread_once_t dtl_once_finalize = BLIS_PTHREAD_ONCE_INIT;
#if (AOCL_DTL_LOG_ENABLE || AOCL_DTL_DUMP_ENABLE)
/* Thread local variable to handle initialization of thread local DTL data
* from global DTL data.
*/
BLIS_THREAD_LOCAL bool initialize_DTL_TL = TRUE;
/* Global flag to check if logging is enabled or not and
* thread local copy of it
*/
bool BLIS_THREAD_LOCAL tlIsLoggingEnabled = FALSE;
bool gbIsLoggingEnabled = FALSE;
#endif
/*
* Client should provide this function, it should return
* number of threads used by the API
@@ -57,9 +80,6 @@ static char *pchDTL_LOG_FILE = AOCL_DTL_LOG_FILE;
/* Global file pointer for logging the results */
AOCL_FLIST_Node *gpLogFileList = NULL;
/* Global flag to check if logging is enabled or not */
bool BLIS_THREAD_LOCAL gbIsLoggingEnabled = FALSE;
#endif
#if AOCL_DTL_AUTO_TRACE_ENABLE
@@ -76,15 +96,13 @@ AOCL_FLIST_Node *gpAutoTraceFileList = NULL;
* Function Name : DTL_Initialize
* Description : Creates/Opens log file and initializes the
* global trace log level
* Input Parameter(s) : ui32CurrentLogLevel - current log level
* which user can configure at run time
* Input Parameter(s) : void
* Output Parameter(s) : None
* Return parameter(s) : None
*==================================================================*/
#ifdef AOCL_DTL_INITIALIZE_ENABLE
void DTL_Initialize(
uint32 ui32CurrentLogLevel)
void DTL_Initialize()
{
/*
* This function can be invoked multiple times either via library
@@ -96,14 +114,38 @@ void DTL_Initialize(
* method to ensure this.
*/
static bool bIsDTLInitDone = FALSE;
if (bIsDTLInitDone)
{
return;
}
/* Initialize all global DTL data structures */
bli_pthread_once( &dtl_once_init, DTL_Initialize_Global );
/* If user selects invalid trace log level then the dafault trace log level
/*
* Reset the control variable that will allow finalization.
* NOTE: We must initialize a fresh pthread_once_t object and THEN copy the
* contents to the static control variable because some implementations of
* pthreads define pthread_once_t as a struct and BLIS_PTHREAD_ONCE_INIT as
* a struct initializer expression (i.e. { ... }), which cannot be used in
* post-declaration struct assignment in strict C99.
*/
const bli_pthread_once_t dtl_once_new = BLIS_PTHREAD_ONCE_INIT;
dtl_once_finalize = dtl_once_new;
#if (AOCL_DTL_LOG_ENABLE || AOCL_DTL_DUMP_ENABLE)
if (initialize_DTL_TL)
{
/* Initialize from global, which reflects any setting of AOCL_VERBOSE */
DTL_Initialize_TL();
initialize_DTL_TL = FALSE;
}
#endif
} /* DTL_Initialize */
void DTL_Initialize_Global()
{
/* Get desired trace level from blis.h */
uint32 ui32CurrentLogLevel = AOCL_DTL_TRACE_LEVEL;
/* If user selects invalid trace log level then the default trace log level
will be AOCL_DTL_LEVEL_ALL */
if ((ui32CurrentLogLevel < 1) || (ui32CurrentLogLevel > AOCL_DTL_LEVEL_ALL))
{
@@ -148,12 +190,32 @@ void DTL_Initialize(
/* Save Id for main thread */
gtidMainThreadID = AOCL_gettid();
// Ensure that this function is executed only once
bIsDTLInitDone = TRUE;
} /* DTL_Initialize_Global */
} /* DTL_Initialize */
void DTL_Initialize_TL()
{
/*
* This function can be invoked multiple times either via library
* initialization function (e.g. bli_init()) or when user changes
* logging state using API. However we want it to run only once
* This flag ensure that it is executed only once.
*
* DTL can be used with many libraries hence it needs its own
* method to ensure this.
*/
/* Initialize thread local data as a copy of global_rntm
* Need to do this once per application thread
*/
#if (AOCL_DTL_LOG_ENABLE || AOCL_DTL_DUMP_ENABLE)
tlIsLoggingEnabled = gbIsLoggingEnabled;
#endif
} /* DTL_Initialize_TL */
#endif // AOCL_DTL_INITIALIZE_ENABLE
/*===================================================================
* Function Name : DTL_Uninitialize
* Description : Close all the log files
@@ -218,7 +280,7 @@ void DTL_Trace(
* macros, this is just an additional check in case the function
* is invoked from any other context.
*/
if (gbIsLoggingEnabled == FALSE && ui8LogType == TRACE_TYPE_LOG)
if (tlIsLoggingEnabled == FALSE && ui8LogType == TRACE_TYPE_LOG)
{
return;
}

26
aocl_dtl/aocldtl.h
View File

@@ -120,19 +120,20 @@ uint64 AOCL_DTL_get_time_spent(void);
* The global flag is maintain in the code to track the final
* state of the logging feature.
*/
extern BLIS_THREAD_LOCAL bool gbIsLoggingEnabled;
extern BLIS_THREAD_LOCAL bool tlIsLoggingEnabled;
extern bool gbIsLoggingEnabled;
/* API to enable logging at runtime */
#define AOCL_DTL_Enable_Logs() \
/* Initialize DTL if not alredy done so */ \
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL); \
gbIsLoggingEnabled = TRUE;
/* Initialize DTL if not already done so */ \
AOCL_DTL_INITIALIZE(); \
tlIsLoggingEnabled = TRUE;
/* API to disable logging at runtime */
#define AOCL_DTL_Disable_Logs() \
/* Initialize DTL if not alredy done so */ \
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL); \
gbIsLoggingEnabled = FALSE;
/* Initialize DTL if not already done so */ \
AOCL_DTL_INITIALIZE(); \
tlIsLoggingEnabled = FALSE;
/* Macro to log the Data */
#define AOCL_DTL_START_PERF_TIMER() \
@@ -144,11 +145,11 @@ extern BLIS_THREAD_LOCAL bool gbIsLoggingEnabled;
/* Macro to initialize the prerequisite for debuging */
#ifdef AOCL_DTL_INITIALIZE_ENABLE
#define AOCL_DTL_INITIALIZE(CURRENT_LOG_LEVEL) \
DTL_Initialize(CURRENT_LOG_LEVEL);
#define AOCL_DTL_INITIALIZE() \
DTL_Initialize();
#else
/* Dummy macro definition if the AOCL_DTL_INITIALIZE macro is not enabled */
#define AOCL_DTL_INITIALIZE(CURRENT_LOG_LEVEL)
#define AOCL_DTL_INITIALIZE()
#endif
/* Macro for uninitializing the prerequisite */
@@ -162,8 +163,9 @@ extern BLIS_THREAD_LOCAL bool gbIsLoggingEnabled;
#ifdef AOCL_DTL_INITIALIZE_ENABLE
/* Prototypes for initializing and uninitializing the debug functions */
void DTL_Initialize(
uint32 ui32CurrentLogLevel);
void DTL_Initialize(void);
void DTL_Initialize_Global(void);
void DTL_Initialize_TL(void);
void DTL_Uninitialize(void);
#endif

120
aocl_dtl/aocldtl_blis.h
View File

@@ -731,298 +731,298 @@ void AOCL_DTL_log_matcopy2_sizes(int8 loglevel,
// Level-3 Macros
#define AOCL_DTL_LOG_GEMM_INPUTS(loglevel, dt, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemm_sizes(loglevel, dt, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_GEMM_STATS(loglevel, dt_type, m, n, k) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemm_stats(loglevel, dt_type, m, n, k);
#define AOCL_DTL_LOG_GEMMT_INPUTS(loglevel, dt, uplo, transa, transb, n, k, alpha, lda, ldb, beta, ldc) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemmt_sizes(loglevel, dt, uplo, transa, transb, n, k, alpha, lda, ldb, beta, ldc, \
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_GEMMT_STATS(loglevel, dt_type, n, k) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemmt_stats(loglevel, dt_type, n, k);
#define AOCL_DTL_LOG_HEMM_INPUTS(loglevel, dt_type, side, uplo, m, n, alpha, lda, ldb, beta, ldc) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_hemm_sizes(loglevel, dt_type, side, uplo, m, n, alpha, lda, ldb, beta, ldc, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_HER2K_INPUTS(loglevel, dt_type, uploc, transa, m, k, alpha, lda, ldb, beta, ldc)\
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_her2k_sizes(loglevel, dt_type, uploc, transa, m, k, alpha, lda, ldb, beta, ldc, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_HERK_INPUTS(loglevel, dt_type, uploc, transa, m, k, alpha, lda, beta, ldc)\
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_herk_sizes(loglevel, dt_type, transa, uploc, m, k, alpha, lda, beta, ldc, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_SYMM_INPUTS(loglevel, dt_type, side, uploa, m, n, alpha, lda, ldb, beta, ldc)\
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_symm_sizes(loglevel, dt_type, side, uploa, m, n, alpha, lda, ldb, beta, ldc, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_SYR2K_INPUTS(loglevel, dt_type, uploc, transa, m, k, alpha, lda, ldb, beta, ldc) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_syr2k_sizes(loglevel, dt_type, uploc, transa, m, k, alpha, lda, ldb, beta,\
ldc, __FILE__, __FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_SYRK_INPUTS(loglevel, dt_type, uploc, transa, m, k, alpha, lda, beta, ldc) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_syrk_sizes(loglevel, dt_type, uploc, transa, m, k, alpha, lda, beta, ldc, __FILE__,\
__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_TRMM_INPUTS(loglevel, dt_type, side, uploa, transa, diaga, m, n, alpha, lda, ldb) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_trmm_sizes(loglevel, dt_type, side, uploa, transa, diaga, m, n, alpha, lda, ldb, __FILE__,\
__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_TRSM_INPUTS(loglevel, dt, side, uploa, transa, diaga, m, n, alpha, lda, ldb) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_trsm_sizes(loglevel, dt, side, uploa, transa, diaga, m, n, alpha, lda, ldb, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_TRSM_STATS(loglevel, dt_type, side, m, n) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_trsm_stats(loglevel, dt_type, side, m, n);
// Level-3 Extension Macros
#define AOCL_DTL_LOG_GEMM3M_INPUTS(loglevel, dt, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemm3m_sizes(loglevel, dt, transa, transb, m, n, k, alpha, lda, ldb, beta, ldc, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_GEMM3M_STATS(loglevel, dt_type, m, n, k) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemm3m_stats(loglevel, dt_type, m, n, k);
#define AOCL_DTL_LOG_GEMM_BATCH_INPUTS(loglevel, dt, group_count) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemm_batch_sizes(loglevel, dt, group_count, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_GEMM_GET_SIZE_INPUTS(loglevel, dt, identifier, m, n, k) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemm_get_size_sizes(loglevel, dt, identifier, m, n, k, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_GEMM_PACK_INPUTS(loglevel, dt, identifier, trans, m, n, k, alpha, pld) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemm_pack_sizes(loglevel, dt, identifier, trans, m, n, k, alpha, pld, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_GEMM_COMPUTE_INPUTS(loglevel, dt, transa, transb, m, n, k, lda, ldb, beta, ldc) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemm_compute_sizes(loglevel, dt, transa, transb, m, n, k, lda, ldb, beta, ldc, \
__FILE__, __FUNCTION__, __LINE__);
// Level-2 Macros
#define AOCL_DTL_LOG_GEMV_INPUTS(loglevel, dt_type, transa, m, n, alp, lda, incx, beta, incy) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_gemv_sizes(loglevel, dt_type, transa, m, n, alp, lda, incx, beta, incy, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_GER_INPUTS(loglevel, dt_type, m, n, alpha, incx, incy, lda) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_ger_sizes(loglevel, dt_type, m, n, alpha, incx, incy, lda, __FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_HEMV_INPUTS(loglevel, dt_type, uploa, m, alpha, lda, incx, beta, incy) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_hemv_sizes(loglevel, dt_type, uploa, m, alpha, lda, incx, beta, incy, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_HER2_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, incy, lda) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_her2_sizes(loglevel, dt_type, uploa, m, alpha, incx, incy, lda, \
__FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_HER_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, lda )\
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_her_sizes(loglevel, dt_type, uploa, m, alpha, incx, lda, __FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_SYMV_INPUTS(loglevel, dt_type, uploa, m, alpha, lda, incx, beta, incy)\
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_symv_sizes(loglevel, dt_type, uploa, m, alpha, lda, incx, beta, incy, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_SYR2_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, incy, lda) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_syr2_sizes(loglevel, dt_type, uploa, m, alpha, incx, incy, lda, __FILE__,\
__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_SYR_INPUTS(loglevel, dt_type, uploa, m, alpha, incx, lda) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_syr_sizes(loglevel, dt_type, uploa, m, alpha, incx, lda,\
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_TRMV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, lda, incx) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_trmv_sizes(loglevel, dt_type, uploa, transa, diaga, m, lda, incx,\
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_TRSV_INPUTS(loglevel, dt_type, uploa, transa, diaga, m, lda, incx ) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
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) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_tpsv_sizes(loglevel, dt_type, uploa, transa, diaga, m, incx,\
__FILE__,__FUNCTION__,__LINE__);
// Level-2 plane rotations and modified Givens transformation Macros
#define AOCL_DTL_LOG_ROT_INPUTS(loglevel, dt_type, m, incx, incy, c, s) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_rot_sizes(loglevel, dt_type, m, incx, incy, c, s, \
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_ROTG_INPUTS(loglevel, dt_type, a, b, c, s) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_rotg_sizes(loglevel, dt_type, a, b, c, s, \
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_ROTM_INPUTS(loglevel, dt_type, m, incx, incy, param1, param2, param3, param4, param5) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_rotm_sizes(loglevel, dt_type, m, incx, incy, param1, param2, param3, param4, param5, \
__FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_ROTMG_INPUTS(loglevel, dt_type, dd1, dd2, dx1, dy1) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_rotmg_sizes(loglevel, dt_type, dd1, dd2, dx1, dy1, \
__FILE__,__FUNCTION__,__LINE__);
// Level-1 Macros
#define AOCL_DTL_LOG_AMIN_INPUTS(loglevel, dt_type, n, incx) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_amin_sizes(loglevel, dt_type, n, incx, __FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_AMAX_INPUTS(loglevel, dt_type, n, incx) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_amax_sizes(loglevel, dt_type, n, incx, __FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_ASUM_INPUTS(loglevel, dt_type, n, incx) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_asum_sizes(loglevel, dt_type, n, incx, __FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_AXPBY_INPUTS(loglevel, dt_type, n, alpha, incx, beta, incy) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_axpby_sizes(loglevel, dt_type, n, alpha, incx, beta, incy, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_AXPY_INPUTS(loglevel, dt_type, n, alpha, incx, incy) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_axpy_sizes(loglevel, dt_type, n, alpha, incx, incy, __FILE__,\
__FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_COPY_INPUTS(loglevel, dt_type, n, incx, incy) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_copy_sizes(loglevel, dt_type, n, incx, incy, __FILE__, __FUNCTION__, __LINE__);
#define AOCL_DTL_LOG_DOTV_INPUTS(loglevel, dt_type, conjx, n, incx, incy) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_dotv_sizes(loglevel, dt_type, conjx, n, incx, incy, __FILE__, __FUNCTION__, __LINE__); \
#define AOCL_DTL_LOG_NRM2_INPUTS(loglevel, dt_type, n, incx)\
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_nrm2_sizes(loglevel, dt_type, n, incx, __FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_NRM2_STATS(loglevel, dt_type, n) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_nrm2_stats(loglevel, dt_type, n);
#define AOCL_DTL_LOG_SCAL_INPUTS(loglevel, dt_type, alpha, n, incx )\
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_scal_sizes(loglevel, dt_type, alpha, n, incx, __FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_SWAP_INPUTS(loglevel, dt_type, n, incx, incy)\
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_swap_sizes(loglevel, dt_type, n, incx, incy, __FILE__,__FUNCTION__,__LINE__);
// Matrix Copy and Transpose Macros
#define AOCL_DTL_LOG_MATADD_INPUTS(loglevel, dt_type, transa, transb, m, n, alpha, lda, beta, ldb, ldc ) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_matadd_sizes(loglevel, dt_type, transa, transb, m, n, alpha, lda, beta, ldb, ldc, __FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_MATCOPY_INPUTS(loglevel, dt_type, trans, rows, cols, alpha, lda, ldb ) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_matcopy_sizes(loglevel, dt_type, trans, rows, cols, alpha, lda, ldb, __FILE__,__FUNCTION__,__LINE__);
#define AOCL_DTL_LOG_MATCOPY2_INPUTS(loglevel, dt_type, trans, rows, cols, alpha, lda, stridea, ldb, strideb ) \
if (gbIsLoggingEnabled) \
if (tlIsLoggingEnabled) \
AOCL_DTL_log_matcopy2_sizes(loglevel, dt_type, trans, rows, cols, alpha, lda, stridea, ldb, strideb, __FILE__,__FUNCTION__,__LINE__);
#else // AOCL_DTL_LOG_ENABLE

8
frame/base/bli_init.c
View File

@@ -92,6 +92,10 @@ void bli_init_once( void )
initialize_tl_rntm = FALSE;
}
// Initialize DTL Library. Trace level set by the user
// is available in the blis.h header file.
AOCL_DTL_INITIALIZE();
// On every call each application thread must
// reset info_value to 0
gint_t info_value = 0;
@@ -102,14 +106,13 @@ void bli_init_once( void )
void bli_finalize_once( void )
{
bli_pthread_once( &once_finalize, bli_finalize_apis );
AOCL_DTL_UNINITIALIZE();
}
// -----------------------------------------------------------------------------
void bli_init_apis( void )
{
/* Initialize DTL Library with trace level set by the user */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
// Initialize various sub-APIs.
bli_gks_init();
bli_ind_init();
@@ -135,7 +138,6 @@ void bli_finalize_apis( void )
bli_thread_finalize();
bli_ind_finalize();
bli_gks_finalize();
AOCL_DTL_UNINITIALIZE();
// Reset the control variable that will allow (re-)initialization.
// NOTE: We must initialize a fresh pthread_once_t object and THEN copy the

4
frame/compat/bla_amax_amd.c
View File

@@ -122,7 +122,7 @@ 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_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_AMAX_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *n, *incx);
@@ -239,7 +239,7 @@ 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_INITIALIZE();
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,7 +134,7 @@ void saxpy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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)
@@ -275,7 +275,7 @@ void daxpy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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)
@@ -527,7 +527,7 @@ void caxpy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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)
@@ -645,7 +645,7 @@ void zaxpy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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,7 +116,7 @@ void scopy_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_COPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *n, *incx, *incy)
@@ -239,7 +239,7 @@ void dcopy_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_COPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', *n, *incx, *incy)
@@ -492,7 +492,7 @@ void zcopy_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_COPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', *n, *incx, *incy)

14
frame/compat/bla_dot_amd.c
View File

@@ -122,7 +122,7 @@ float sdot_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', 'N', *n, *incx, *incy);
@@ -263,7 +263,7 @@ double ddot_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', 'N', *n, *incx, *incy);
@@ -625,7 +625,7 @@ scomplex cdotu_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', 'N', *n, *incx, *incy);
@@ -738,7 +738,7 @@ dcomplex zdotu_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', 'N', *n, *incx, *incy);
@@ -1036,7 +1036,7 @@ scomplex cdotc_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', 'C', *n, *incx, *incy);
@@ -1150,7 +1150,7 @@ dcomplex zdotc_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', 'C', *n, *incx, *incy);
@@ -1567,7 +1567,7 @@ double PASTEF77S(d,sdot)
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_DOTV_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', 'N', *n, *incx, *incy);

8
frame/compat/bla_gemv_amd.c
View File

@@ -190,7 +190,7 @@ void dgemv_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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);
@@ -431,7 +431,7 @@ void sgemv_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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);
@@ -636,7 +636,7 @@ void cgemv_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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);
@@ -883,7 +883,7 @@ void zgemv_blis_impl
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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);

8
frame/compat/bla_imatcopy.c
View File

@@ -167,7 +167,7 @@ void simatcopy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *trans, *rows, *cols,
(void*)alpha, *lda, *ldb );
@@ -257,7 +257,7 @@ void dimatcopy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *trans, *rows, *cols,
(void*)alpha, *lda, *ldb );
@@ -347,7 +347,7 @@ void cimatcopy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *trans, *rows, *cols,
(void*)alpha, *lda, *ldb );
@@ -437,7 +437,7 @@ void zimatcopy_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *trans, *rows, *cols,
(void*)alpha, *lda, *ldb );

8
frame/compat/bla_omatadd.c
View File

@@ -98,7 +98,7 @@ void somatadd_blis_impl (f77_char* transa,f77_char* transb, f77_int* m, f77_int*
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATADD_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *transa, *transb, *m, *n,
(void*)alpha, *lda, (void*)beta, *ldb, *ldc );
@@ -181,7 +181,7 @@ void domatadd_blis_impl (f77_char* transa,f77_char* transb, f77_int* m, f77_int*
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATADD_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *transa, *transb, *m, *n,
(void*)alpha, *lda, (void*)beta, *ldb, *ldc );
@@ -264,7 +264,7 @@ void comatadd_blis_impl (f77_char* transa,f77_char* transb, f77_int* m, f77_int*
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATADD_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *transa, *transb, *m, *n,
(void*)alpha, *lda, (void*)beta, *ldb, *ldc );
@@ -360,7 +360,7 @@ void zomatadd_blis_impl (f77_char* transa,f77_char* transb, f77_int* m, f77_int*
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATADD_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *transa, *transb, *m, *n,
(void*)alpha, *lda, (void*)beta, *ldb, *ldc );

8
frame/compat/bla_omatcopy.c
View File

@@ -63,7 +63,7 @@ void somatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const f
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *trans, *rows, *cols,
(void*)alpha, *lda, *ldb );
@@ -117,7 +117,7 @@ void domatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const d
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *trans, *rows, *cols,
(void*)alpha, *lda, *ldb );
@@ -171,7 +171,7 @@ void comatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const s
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *trans, *rows, *cols,
(void*)alpha, *lda, *ldb );
@@ -226,7 +226,7 @@ void zomatcopy_blis_impl (f77_char* trans, f77_int* rows, f77_int* cols, const d
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *trans, *rows, *cols,
(void*)alpha, *lda, *ldb );

8
frame/compat/bla_omatcopy2.c
View File

@@ -206,7 +206,7 @@ void somatcopy2_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY2_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *trans, *rows, *cols,
(void*)alpha, *lda, *stridea, *ldb, *strideb );
@@ -303,7 +303,7 @@ void domatcopy2_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY2_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *trans, *rows, *cols,
(void*)alpha, *lda, *stridea, *ldb, *strideb );
@@ -400,7 +400,7 @@ void comatcopy2_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY2_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c), *trans, *rows, *cols,
(void*)alpha, *lda, *stridea, *ldb, *strideb );
@@ -497,7 +497,7 @@ void zomatcopy2_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_MATCOPY2_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z), *trans, *rows, *cols,
(void*)alpha, *lda, *stridea, *ldb, *strideb );

10
frame/compat/bla_scal_amd.c
View File

@@ -130,7 +130,7 @@ void sscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', (void *) alpha, *n, *incx );
@@ -218,7 +218,7 @@ void dscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'D', (void *)alpha, *n, *incx );
@@ -415,7 +415,7 @@ void zdscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'Z', (void *) alpha, *n, *incx );
@@ -591,7 +591,7 @@ void cscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SCAL_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'C', (void *)alpha, *n, *incx);
@@ -683,7 +683,7 @@ void zscal_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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,7 +105,7 @@ void sswap_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1)
AOCL_DTL_LOG_SWAP_INPUTS(AOCL_DTL_LEVEL_TRACE_1, 'S', *n, *incx, *incy);
@@ -206,7 +206,7 @@ void dswap_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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,7 +114,7 @@ void saxpby_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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)
@@ -248,7 +248,7 @@ void daxpby_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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)
@@ -387,7 +387,7 @@ void caxpby_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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)
@@ -521,7 +521,7 @@ void zaxpby_blis_impl
{
/* Initialize BLIS. */
// Call to bli_init_auto() is not needed here
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
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,7 @@ 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_INITIALIZE();
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);
@@ -651,7 +651,7 @@ 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_INITIALIZE();
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);
@@ -1020,7 +1020,7 @@ 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_INITIALIZE();
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);
@@ -1398,7 +1398,7 @@ 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_INITIALIZE();
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);

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

@@ -207,7 +207,7 @@ 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_INITIALIZE();
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);
@@ -667,7 +667,7 @@ 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_INITIALIZE();
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);

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

@@ -171,7 +171,7 @@ 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_INITIALIZE();
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);
@@ -583,7 +583,7 @@ 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_INITIALIZE();
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);

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

@@ -158,7 +158,7 @@ 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_INITIALIZE();
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);
@@ -483,7 +483,7 @@ 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_INITIALIZE();
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);

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

@@ -170,7 +170,7 @@ 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_INITIALIZE();
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);
@@ -571,7 +571,7 @@ 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_INITIALIZE();
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);

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

@@ -62,7 +62,7 @@ int PASTEF77S(s,rot)(const bla_integer *n, bla_real *sx, const bla_integer *incx
--sx;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROT_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *n,
*incx, *incy, (void*)c__, (void*)s);
@@ -139,7 +139,7 @@ int PASTEF77S(d,rot)(const bla_integer *n, bla_double *dx, const bla_integer *in
--dx;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROT_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *n,
*incx, *incy, (void*)c__, (void*)s);
@@ -217,7 +217,7 @@ L20:
--cx;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROT_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(cs), *n,
*incx, *incy, (void*)c__, (void*)s);
@@ -318,7 +318,7 @@ L20:
--zx;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROT_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(zd), *n,
*incx, *incy, (void*)c__, (void*)s);

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

@@ -61,7 +61,7 @@ int PASTEF77S(s,rotg)(bla_real *sa, bla_real *sb, bla_real *c__, bla_real *s)
/* jack dongarra, linpack, 3/11/78. */
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROTG_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s),
(void*)sa, (void*)sb, (void*)c__, (void*)s);
@@ -128,7 +128,7 @@ int PASTEF77S(d,rotg)(bla_double *da, bla_double *db, bla_double *c__, bla_doubl
/* jack dongarra, linpack, 3/11/78. */
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROTG_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d),
(void*)da, (void*)db, (void*)c__, (void*)s);
@@ -190,7 +190,7 @@ L20:
bla_real scale;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROTG_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(c),
(void*)ca, (void*)cb, (void*)c__, (void*)s);
@@ -249,7 +249,7 @@ L20:
bla_double scale;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROTG_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(z),
(void*)ca, (void*)cb, (void*)c__, (void*)s);

4
frame/compat/f2c/bla_rotm.c
View File

@@ -80,7 +80,7 @@ int PASTEF77S(s,rotm)(const bla_integer *n, bla_real *sx, const bla_integer *inc
--sx;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROTM_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s), *n,
*incx, *incy, (void*)&sparam[1], (void*)&sparam[2],
@@ -253,7 +253,7 @@ int PASTEF77S(d,rotm)(const bla_integer *n, bla_double *dx, const bla_integer *i
--dx;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROTM_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d), *n,
*incx, *incy, (void*)&dparam[1], (void*)&dparam[2],

4
frame/compat/f2c/bla_rotmg.c
View File

@@ -88,7 +88,7 @@ int PASTEF77S(s,rotmg)(bla_real *sd1, bla_real *sd2, bla_real *sx1, const bla_re
--sparam;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROTMG_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(s),
(void*)sd1, (void*)sd2, (void*)sx1, (void*)sy1);
@@ -335,7 +335,7 @@ int PASTEF77S(d,rotmg)(bla_double *dd1, bla_double *dd2, bla_double *dx1, const
--dparam;
/* Function Body */
AOCL_DTL_INITIALIZE(AOCL_DTL_TRACE_LEVEL);
AOCL_DTL_INITIALIZE();
AOCL_DTL_TRACE_ENTRY(AOCL_DTL_LEVEL_TRACE_1);
AOCL_DTL_LOG_ROTMG_INPUTS(AOCL_DTL_LEVEL_TRACE_1, *MKSTR(d),
(void*)dd1, (void*)dd2, (void*)dx1, (void*)dy1);

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

@@ -200,7 +200,7 @@ 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_INITIALIZE();
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);
@@ -565,7 +565,7 @@ 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_INITIALIZE();
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);

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

@@ -163,7 +163,7 @@ 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_INITIALIZE();
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);
@@ -478,7 +478,7 @@ 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_INITIALIZE();
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);

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

@@ -149,7 +149,7 @@ 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_INITIALIZE();
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);
@@ -389,7 +389,7 @@ 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_INITIALIZE();
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);

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

@@ -161,7 +161,7 @@ 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_INITIALIZE();
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);
@@ -433,7 +433,7 @@ 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_INITIALIZE();
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);

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

@@ -212,7 +212,7 @@ 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_INITIALIZE();
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);
@@ -791,7 +791,7 @@ 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_INITIALIZE();
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);
@@ -1215,7 +1215,7 @@ 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_INITIALIZE();
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);
@@ -1643,7 +1643,7 @@ 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_INITIALIZE();
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);

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

@@ -216,7 +216,7 @@ 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_INITIALIZE();
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);
@@ -805,7 +805,7 @@ 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_INITIALIZE();
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);
@@ -1249,7 +1249,7 @@ 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_INITIALIZE();
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);
@@ -1698,7 +1698,7 @@ 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_INITIALIZE();
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);

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

@@ -170,7 +170,7 @@ 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_INITIALIZE();
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);
@@ -685,7 +685,7 @@ 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_INITIALIZE();
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);
@@ -1052,7 +1052,7 @@ 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_INITIALIZE();
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);
@@ -1424,7 +1424,7 @@ 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_INITIALIZE();
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);

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

@@ -173,7 +173,7 @@ 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_INITIALIZE();
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);
@@ -680,7 +680,7 @@ 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_INITIALIZE();
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);
@@ -1050,7 +1050,7 @@ 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_INITIALIZE();
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);
@@ -1426,7 +1426,7 @@ 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_INITIALIZE();
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);