diff --git a/aocl_dtl/aocldtl_blis.c b/aocl_dtl/aocldtl_blis.c
index 2aba0cbdc..6a45c9f43 100644
--- a/aocl_dtl/aocldtl_blis.c
+++ b/aocl_dtl/aocldtl_blis.c
@@ -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,
diff --git a/aocl_dtl/aocldtl_blis.h b/aocl_dtl/aocldtl_blis.h
index 598d39ec8..263e24ed6 100644
--- a/aocl_dtl/aocldtl_blis.h
+++ b/aocl_dtl/aocldtl_blis.h
@@ -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)
diff --git a/frame/compat/bla_amax_amd.c b/frame/compat/bla_amax_amd.c
index 71429bcda..36165a65e 100644
--- a/frame/compat/bla_amax_amd.c
+++ b/frame/compat/bla_amax_amd.c
@@ -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);
 
diff --git a/frame/compat/bla_axpy_amd.c b/frame/compat/bla_axpy_amd.c
index 4fa48675d..614d0c807 100644
--- a/frame/compat/bla_axpy_amd.c
+++ b/frame/compat/bla_axpy_amd.c
@@ -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)
 
diff --git a/frame/compat/bla_copy_amd.c b/frame/compat/bla_copy_amd.c
index c6d700dee..1bc4ed485 100644
--- a/frame/compat/bla_copy_amd.c
+++ b/frame/compat/bla_copy_amd.c
@@ -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)
 
diff --git a/frame/compat/bla_dot_amd.c b/frame/compat/bla_dot_amd.c
index 463833eab..7fbae70df 100644
--- a/frame/compat/bla_dot_amd.c
+++ b/frame/compat/bla_dot_amd.c
@@ -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. */
diff --git a/frame/compat/bla_gemv_amd.c b/frame/compat/bla_gemv_amd.c
index 59e3d49a1..2e03e8ae7 100644
--- a/frame/compat/bla_gemv_amd.c
+++ b/frame/compat/bla_gemv_amd.c
@@ -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);
 
diff --git a/frame/compat/bla_scal_amd.c b/frame/compat/bla_scal_amd.c
index c8e5f15e2..19bb02497 100644
--- a/frame/compat/bla_scal_amd.c
+++ b/frame/compat/bla_scal_amd.c
@@ -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);
 
diff --git a/frame/compat/bla_swap_amd.c b/frame/compat/bla_swap_amd.c
index d85415abf..91f302a74 100644
--- a/frame/compat/bla_swap_amd.c
+++ b/frame/compat/bla_swap_amd.c
@@ -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);
 
diff --git a/frame/compat/extra/bla_axpby_amd.c b/frame/compat/extra/bla_axpby_amd.c
index 871cd0a37..ab73c75b4 100644
--- a/frame/compat/extra/bla_axpby_amd.c
+++ b/frame/compat/extra/bla_axpby_amd.c
@@ -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)
 
diff --git a/frame/compat/f2c/bla_gbmv.c b/frame/compat/f2c/bla_gbmv.c
index 6b627da93..88bdddda2 100644
--- a/frame/compat/f2c/bla_gbmv.c
+++ b/frame/compat/f2c/bla_gbmv.c
@@ -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;
diff --git a/frame/compat/f2c/bla_hbmv.c b/frame/compat/f2c/bla_hbmv.c
index 10fa14ec7..f7f8a70a4 100644
--- a/frame/compat/f2c/bla_hbmv.c
+++ b/frame/compat/f2c/bla_hbmv.c
@@ -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;
diff --git a/frame/compat/f2c/bla_hpmv.c b/frame/compat/f2c/bla_hpmv.c
index 86b274a75..f2455d65a 100644
--- a/frame/compat/f2c/bla_hpmv.c
+++ b/frame/compat/f2c/bla_hpmv.c
@@ -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;
diff --git a/frame/compat/f2c/bla_hpr.c b/frame/compat/f2c/bla_hpr.c
index 65a967e19..6571a7245 100644
--- a/frame/compat/f2c/bla_hpr.c
+++ b/frame/compat/f2c/bla_hpr.c
@@ -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;
diff --git a/frame/compat/f2c/bla_hpr2.c b/frame/compat/f2c/bla_hpr2.c
index b2f524cf1..e543f75a7 100644
--- a/frame/compat/f2c/bla_hpr2.c
+++ b/frame/compat/f2c/bla_hpr2.c
@@ -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;
diff --git a/frame/compat/f2c/bla_sbmv.c b/frame/compat/f2c/bla_sbmv.c
index 1d8bc9fbe..9c224ccb8 100644
--- a/frame/compat/f2c/bla_sbmv.c
+++ b/frame/compat/f2c/bla_sbmv.c
@@ -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;
diff --git a/frame/compat/f2c/bla_spmv.c b/frame/compat/f2c/bla_spmv.c
index 7c422158d..ef2ed376a 100644
--- a/frame/compat/f2c/bla_spmv.c
+++ b/frame/compat/f2c/bla_spmv.c
@@ -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;
diff --git a/frame/compat/f2c/bla_spr.c b/frame/compat/f2c/bla_spr.c
index fcbeeed57..212e95519 100644
--- a/frame/compat/f2c/bla_spr.c
+++ b/frame/compat/f2c/bla_spr.c
@@ -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;
diff --git a/frame/compat/f2c/bla_spr2.c b/frame/compat/f2c/bla_spr2.c
index e06875c84..f3492f016 100644
--- a/frame/compat/f2c/bla_spr2.c
+++ b/frame/compat/f2c/bla_spr2.c
@@ -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;
diff --git a/frame/compat/f2c/bla_tbmv.c b/frame/compat/f2c/bla_tbmv.c
index c46b9740a..8c42fa812 100644
--- a/frame/compat/f2c/bla_tbmv.c
+++ b/frame/compat/f2c/bla_tbmv.c
@@ -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;
diff --git a/frame/compat/f2c/bla_tbsv.c b/frame/compat/f2c/bla_tbsv.c
index f7ea45ed7..1412e03b1 100644
--- a/frame/compat/f2c/bla_tbsv.c
+++ b/frame/compat/f2c/bla_tbsv.c
@@ -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;
diff --git a/frame/compat/f2c/bla_tpmv.c b/frame/compat/f2c/bla_tpmv.c
index f05ec8bce..f65ee7c88 100644
--- a/frame/compat/f2c/bla_tpmv.c
+++ b/frame/compat/f2c/bla_tpmv.c
@@ -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;
diff --git a/frame/compat/f2c/bla_tpsv.c b/frame/compat/f2c/bla_tpsv.c
index 6d8c2282b..fa00d1c90 100644
--- a/frame/compat/f2c/bla_tpsv.c
+++ b/frame/compat/f2c/bla_tpsv.c
@@ -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;