From dc06cdb621783bbb5498e02cdad13cf0ef6db1b0 Mon Sep 17 00:00:00 2001
From: "Smyth, Edward" <Edward.Smyth@amd.com>
Date: Tue, 12 Aug 2025 09:42:40 +0100
Subject: [PATCH] DTL logging fixes and improvements (3)

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

AMD-Internal: [CPUPL-7010]
---
 aocl_dtl/aocldtl_blis.c            | 339 +++++++++++++++++++++++++++++
 aocl_dtl/aocldtl_blis.h            | 261 ++++++++++++++++++++++
 frame/compat/bla_amax_amd.c        |   4 +
 frame/compat/bla_axpy_amd.c        |   8 +
 frame/compat/bla_copy_amd.c        |   6 +
 frame/compat/bla_dot_amd.c         |  18 ++
 frame/compat/bla_gemv_amd.c        |   8 +
 frame/compat/bla_scal_amd.c        |  10 +
 frame/compat/bla_swap_amd.c        |   4 +
 frame/compat/extra/bla_axpby_amd.c |   8 +
 frame/compat/f2c/bla_gbmv.c        |   8 +
 frame/compat/f2c/bla_hbmv.c        |   6 +
 frame/compat/f2c/bla_hpmv.c        |   6 +
 frame/compat/f2c/bla_hpr.c         |   6 +
 frame/compat/f2c/bla_hpr2.c        |   6 +
 frame/compat/f2c/bla_sbmv.c        |   6 +
 frame/compat/f2c/bla_spmv.c        |   6 +
 frame/compat/f2c/bla_spr.c         |   6 +
 frame/compat/f2c/bla_spr2.c        |   6 +
 frame/compat/f2c/bla_tbmv.c        |  12 +
 frame/compat/f2c/bla_tbsv.c        |  12 +
 frame/compat/f2c/bla_tpmv.c        |  12 +
 frame/compat/f2c/bla_tpsv.c        |  12 +
 23 files changed, 770 insertions(+)

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;