From f84197c1a731889495f282be1d7089deedc83081 Mon Sep 17 00:00:00 2001
From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
Date: Sat, 29 May 2021 22:28:00 +0200
Subject: [PATCH] Add shortcuts for (small) cases that do not need expensive
 buffer allocation

---
 interface/trsv.c  | 6 ++++++
 interface/ztrsv.c | 6 ++++++
 2 files changed, 12 insertions(+)

diff --git a/interface/trsv.c b/interface/trsv.c
index a054d8eeb..6a6e8f8ba 100644
--- a/interface/trsv.c
+++ b/interface/trsv.c
@@ -188,6 +188,12 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
 
   if (n == 0) return;
 
+  if (incx == 1 && trans == 0 && n < 50) {
+    buffer = NULL;
+    (trsv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer);
+    return;  
+  }
+
   IDEBUG_START;
 
   FUNCTION_PROFILE_START();
diff --git a/interface/ztrsv.c b/interface/ztrsv.c
index cbb7bba13..cf750b0b0 100644
--- a/interface/ztrsv.c
+++ b/interface/ztrsv.c
@@ -199,6 +199,12 @@ void CNAME(enum CBLAS_ORDER order, enum CBLAS_UPLO Uplo,
 
   if (n == 0) return;
 
+  if (incx == 1 && trans == 0 && n < 50) {
+    buffer = NULL;
+    (trsv[(trans<<2) | (uplo<<1) | unit])(n, a, lda, x, incx, buffer);
+    return;
+  }
+
   IDEBUG_START;
 
   FUNCTION_PROFILE_START();