diff --git a/openblas-0.3.21-c99-1.patch b/openblas-0.3.21-c99-1.patch
deleted file mode 100644
index 413ddd6..0000000
--- a/openblas-0.3.21-c99-1.patch
+++ /dev/null
@@ -1,64 +0,0 @@
-From f703846ad9400a8ea175cb8dd43e18c152aeab93 Mon Sep 17 00:00:00 2001
-From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
-Date: Sat, 13 Aug 2022 11:38:27 +0200
-Subject: [PATCH] Add function prototypes
-Content-type: text/plain
-
----
- exports/gensymbol    | 16 ++++++++++++++++
- exports/gensymbol.pl | 12 ++++++++++++
- 2 files changed, 28 insertions(+)
-
-diff --git a/exports/gensymbol b/exports/gensymbol
-index 83222a21..f05de626 100755
---- a/exports/gensymbol
-+++ b/exports/gensymbol
-@@ -4000,6 +4000,22 @@ case "$p1" in
-         no_underscore_objs="$no_underscore_objs $misc_common_objs"
- 
-         printf 'int main(void){\n'
-+        for obj in $underscore_objs; do
-+            [ "$obj" != "xerbla" ] && printf 'extern void %s%s%s%s();\n' \
-+                "$symbolprefix" "$obj" "$bu" "$symbolsuffix"
-+        done
-+
-+        for obj in $need_2underscore_objs; do
-+            printf 'extern void %s%s%s%s%s();\n' \
-+                "$symbolprefix" "$obj" "$bu" "$bu" "$symbolsuffix"
-+        done
-+
-+        for obj in $no_underscore_objs; do
-+            printf 'extern void %s%s%s();\n' \
-+                "$symbolprefix" "$obj" "$symbolsuffix"
-+        done
-+
-+        printf '\n'
-         for obj in $underscore_objs; do
-             [ "$obj" != "xerbla" ] && printf '%s%s%s%s();\n' \
-                 "$symbolprefix" "$obj" "$bu" "$symbolsuffix"
-diff --git a/exports/gensymbol.pl b/exports/gensymbol.pl
-index ac62bc05..e38a3cc8 100644
---- a/exports/gensymbol.pl
-+++ b/exports/gensymbol.pl
-@@ -3955,6 +3955,18 @@ if ($ARGV[0] eq "linktest") {
-     @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
- 
-     print "int main(void){\n";
-+    foreach $objs (@underscore_objs) {
-+        print "extern void ", $symbolprefix, $objs, $bu, $symbolsuffix, "();\n" if $objs ne "xerbla";
-+    }
-+
-+    foreach $objs (@need_2underscore_objs) {
-+        print "extern void ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n";
-+    }
-+
-+    foreach $objs (@no_underscore_objs) {
-+        print "extern void ", $symbolprefix, $objs, $symbolsuffix, "();\n";
-+    }
-+
-     foreach $objs (@underscore_objs) {
-         print $symbolprefix, $objs, $bu, $symbolsuffix, "();\n" if $objs ne "xerbla";
-     }
--- 
-2.37.3
-
diff --git a/openblas-0.3.21-c99-2.patch b/openblas-0.3.21-c99-2.patch
deleted file mode 100644
index 2a028ca..0000000
--- a/openblas-0.3.21-c99-2.patch
+++ /dev/null
@@ -1,510 +0,0 @@
-From 515cf269291bec0d43651fe7bf99a71fb074a0ad Mon Sep 17 00:00:00 2001
-From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
-Date: Wed, 14 Sep 2022 11:48:36 +0200
-Subject: [PATCH] Fix pointer/integer argument mismatch in calls to pow()
-Content-type: text/plain
-
----
- lapack-netlib/SRC/claed0.c | 4 ++--
- lapack-netlib/SRC/claed7.c | 4 ++--
- lapack-netlib/SRC/clalsa.c | 6 +++---
- lapack-netlib/SRC/cstedc.c | 4 ++--
- lapack-netlib/SRC/dlaed0.c | 4 ++--
- lapack-netlib/SRC/dlaed7.c | 4 ++--
- lapack-netlib/SRC/dlaeda.c | 8 ++++----
- lapack-netlib/SRC/dlalsa.c | 6 +++---
- lapack-netlib/SRC/dlasd0.c | 2 +-
- lapack-netlib/SRC/dlasda.c | 4 ++--
- lapack-netlib/SRC/dstedc.c | 4 ++--
- lapack-netlib/SRC/slaed0.c | 4 ++--
- lapack-netlib/SRC/slaed7.c | 4 ++--
- lapack-netlib/SRC/slaeda.c | 8 ++++----
- lapack-netlib/SRC/slalsa.c | 6 +++---
- lapack-netlib/SRC/slasd0.c | 2 +-
- lapack-netlib/SRC/slasda.c | 4 ++--
- lapack-netlib/SRC/sstedc.c | 4 ++--
- lapack-netlib/SRC/zlaed0.c | 4 ++--
- lapack-netlib/SRC/zlaed7.c | 4 ++--
- lapack-netlib/SRC/zlalsa.c | 6 +++---
- lapack-netlib/SRC/zstedc.c | 4 ++--
- 22 files changed, 50 insertions(+), 50 deletions(-)
-
-diff --git a/lapack-netlib/SRC/claed0.c b/lapack-netlib/SRC/claed0.c
-index 21e40839..2b696508 100644
---- a/lapack-netlib/SRC/claed0.c
-+++ b/lapack-netlib/SRC/claed0.c
-@@ -796,10 +796,10 @@ L10:
- 
-     temp = log((real) (*n)) / log(2.f);
-     lgn = (integer) temp;
--    if (pow_ii(&c__2, &lgn) < *n) {
-+    if (pow_ii(c__2, lgn) < *n) {
- 	++lgn;
-     }
--    if (pow_ii(&c__2, &lgn) < *n) {
-+    if (pow_ii(c__2, lgn) < *n) {
- 	++lgn;
-     }
-     iprmpt = indxq + *n + 1;
-diff --git a/lapack-netlib/SRC/claed7.c b/lapack-netlib/SRC/claed7.c
-index 49fc9ed4..1eaa7e9c 100644
---- a/lapack-netlib/SRC/claed7.c
-+++ b/lapack-netlib/SRC/claed7.c
-@@ -864,11 +864,11 @@ f"> */
- /*     Form the z-vector which consists of the last row of Q_1 and the */
- /*     first row of Q_2. */
- 
--    ptr = pow_ii(&c__2, tlvls) + 1;
-+    ptr = pow_ii(c__2, *tlvls) + 1;
-     i__1 = *curlvl - 1;
-     for (i__ = 1; i__ <= i__1; ++i__) {
- 	i__2 = *tlvls - i__;
--	ptr += pow_ii(&c__2, &i__2);
-+	ptr += pow_ii(c__2, i__2);
- /* L10: */
-     }
-     curr = ptr + *curpbm;
-diff --git a/lapack-netlib/SRC/clalsa.c b/lapack-netlib/SRC/clalsa.c
-index 4bc3830a..2ef3e123 100644
---- a/lapack-netlib/SRC/clalsa.c
-+++ b/lapack-netlib/SRC/clalsa.c
-@@ -1051,7 +1051,7 @@ f"> */
- /*     Finally go through the left singular vector matrices of all */
- /*     the other subproblems bottom-up on the tree. */
- 
--    j = pow_ii(&c__2, &nlvl);
-+    j = pow_ii(c__2, nlvl);
-     sqre = 0;
- 
-     for (lvl = nlvl; lvl >= 1; --lvl) {
-@@ -1065,7 +1065,7 @@ f"> */
- 	    ll = 1;
- 	} else {
- 	    i__1 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__1);
-+	    lf = pow_ii(c__2, i__1);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__1 = ll;
-@@ -1110,7 +1110,7 @@ L170:
- 	    ll = 1;
- 	} else {
- 	    i__2 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__2);
-+	    lf = pow_ii(c__2, i__2);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__2 = lf;
-diff --git a/lapack-netlib/SRC/cstedc.c b/lapack-netlib/SRC/cstedc.c
-index 437c39e9..8f047d1c 100644
---- a/lapack-netlib/SRC/cstedc.c
-+++ b/lapack-netlib/SRC/cstedc.c
-@@ -836,10 +836,10 @@ f"> */
- 	    lrwmin = *n - 1 << 1;
- 	} else if (icompz == 1) {
- 	    lgn = (integer) (log((real) (*n)) / log(2.f));
--	    if (pow_ii(&c__2, &lgn) < *n) {
-+	    if (pow_ii(c__2, lgn) < *n) {
- 		++lgn;
- 	    }
--	    if (pow_ii(&c__2, &lgn) < *n) {
-+	    if (pow_ii(c__2, lgn) < *n) {
- 		++lgn;
- 	    }
- 	    lwmin = *n * *n;
-diff --git a/lapack-netlib/SRC/dlaed0.c b/lapack-netlib/SRC/dlaed0.c
-index 95e39b0d..74e58dd2 100644
---- a/lapack-netlib/SRC/dlaed0.c
-+++ b/lapack-netlib/SRC/dlaed0.c
-@@ -827,10 +827,10 @@ L10:
- 
- 	temp = log((doublereal) (*n)) / log(2.);
- 	lgn = (integer) temp;
--	if (pow_ii(&c__2, &lgn) < *n) {
-+	if (pow_ii(c__2, lgn) < *n) {
- 	    ++lgn;
- 	}
--	if (pow_ii(&c__2, &lgn) < *n) {
-+	if (pow_ii(c__2, lgn) < *n) {
- 	    ++lgn;
- 	}
- 	iprmpt = indxq + *n + 1;
-diff --git a/lapack-netlib/SRC/dlaed7.c b/lapack-netlib/SRC/dlaed7.c
-index fd851526..d23a72be 100644
---- a/lapack-netlib/SRC/dlaed7.c
-+++ b/lapack-netlib/SRC/dlaed7.c
-@@ -885,11 +885,11 @@ f"> */
- /*     Form the z-vector which consists of the last row of Q_1 and the */
- /*     first row of Q_2. */
- 
--    ptr = pow_ii(&c__2, tlvls) + 1;
-+    ptr = pow_ii(c__2, *tlvls) + 1;
-     i__1 = *curlvl - 1;
-     for (i__ = 1; i__ <= i__1; ++i__) {
- 	i__2 = *tlvls - i__;
--	ptr += pow_ii(&c__2, &i__2);
-+	ptr += pow_ii(c__2, i__2);
- /* L10: */
-     }
-     curr = ptr + *curpbm;
-diff --git a/lapack-netlib/SRC/dlaeda.c b/lapack-netlib/SRC/dlaeda.c
-index f4bb214d..202e1b63 100644
---- a/lapack-netlib/SRC/dlaeda.c
-+++ b/lapack-netlib/SRC/dlaeda.c
-@@ -754,7 +754,7 @@ f"> */
- /*     scheme */
- 
-     i__1 = *curlvl - 1;
--    curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
-+    curr = ptr + *curpbm * pow_ii(c__2, *curlvl) + pow_ii(c__2, i__1) - 1;
- 
- /*     Determine size of these matrices.  We add HALF to the value of */
- /*     the SQRT in case the machine underestimates one of these square */
-@@ -781,12 +781,12 @@ f"> */
- /*     rotations and permutation and then multiplying the center matrices */
- /*     against the current Z. */
- 
--    ptr = pow_ii(&c__2, tlvls) + 1;
-+    ptr = pow_ii(c__2, *tlvls) + 1;
-     i__1 = *curlvl - 1;
-     for (k = 1; k <= i__1; ++k) {
- 	i__2 = *curlvl - k;
- 	i__3 = *curlvl - k - 1;
--	curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) - 
-+	curr = ptr + *curpbm * pow_ii(c__2, i__2) + pow_ii(c__2, i__3) - 
- 		1;
- 	psiz1 = prmptr[curr + 1] - prmptr[curr];
- 	psiz2 = prmptr[curr + 2] - prmptr[curr + 1];
-@@ -847,7 +847,7 @@ f"> */
- 		c__1);
- 
- 	i__2 = *tlvls - k;
--	ptr += pow_ii(&c__2, &i__2);
-+	ptr += pow_ii(c__2, i__2);
- /* L70: */
-     }
- 
-diff --git a/lapack-netlib/SRC/dlalsa.c b/lapack-netlib/SRC/dlalsa.c
-index 891ed66a..4d5c347c 100644
---- a/lapack-netlib/SRC/dlalsa.c
-+++ b/lapack-netlib/SRC/dlalsa.c
-@@ -951,7 +951,7 @@ f"> */
- /*     Finally go through the left singular vector matrices of all */
- /*     the other subproblems bottom-up on the tree. */
- 
--    j = pow_ii(&c__2, &nlvl);
-+    j = pow_ii(c__2, nlvl);
-     sqre = 0;
- 
-     for (lvl = nlvl; lvl >= 1; --lvl) {
-@@ -965,7 +965,7 @@ f"> */
- 	    ll = 1;
- 	} else {
- 	    i__1 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__1);
-+	    lf = pow_ii(c__2, i__1);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__1 = ll;
-@@ -1010,7 +1010,7 @@ L50:
- 	    ll = 1;
- 	} else {
- 	    i__2 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__2);
-+	    lf = pow_ii(c__2, i__2);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__2 = lf;
-diff --git a/lapack-netlib/SRC/dlasd0.c b/lapack-netlib/SRC/dlasd0.c
-index c702665b..0f88527e 100644
---- a/lapack-netlib/SRC/dlasd0.c
-+++ b/lapack-netlib/SRC/dlasd0.c
-@@ -824,7 +824,7 @@ f"> */
- 	    ll = 1;
- 	} else {
- 	    i__1 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__1);
-+	    lf = pow_ii(c__2, i__1);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__1 = ll;
-diff --git a/lapack-netlib/SRC/dlasda.c b/lapack-netlib/SRC/dlasda.c
-index 72f9d55f..a9190f80 100644
---- a/lapack-netlib/SRC/dlasda.c
-+++ b/lapack-netlib/SRC/dlasda.c
-@@ -1027,7 +1027,7 @@ f"> */
- 
- /*     Now conquer each subproblem bottom-up. */
- 
--    j = pow_ii(&c__2, &nlvl);
-+    j = pow_ii(c__2, nlvl);
-     for (lvl = nlvl; lvl >= 1; --lvl) {
- 	lvl2 = (lvl << 1) - 1;
- 
-@@ -1039,7 +1039,7 @@ f"> */
- 	    ll = 1;
- 	} else {
- 	    i__1 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__1);
-+	    lf = pow_ii(c__2, i__1);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__1 = ll;
-diff --git a/lapack-netlib/SRC/dstedc.c b/lapack-netlib/SRC/dstedc.c
-index ef2eeabe..56511d6c 100644
---- a/lapack-netlib/SRC/dstedc.c
-+++ b/lapack-netlib/SRC/dstedc.c
-@@ -806,10 +806,10 @@ f"> */
- 	    lwmin = *n - 1 << 1;
- 	} else {
- 	    lgn = (integer) (log((doublereal) (*n)) / log(2.));
--	    if (pow_ii(&c__2, &lgn) < *n) {
-+	    if (pow_ii(c__2, lgn) < *n) {
- 		++lgn;
- 	    }
--	    if (pow_ii(&c__2, &lgn) < *n) {
-+	    if (pow_ii(c__2, lgn) < *n) {
- 		++lgn;
- 	    }
- 	    if (icompz == 1) {
-diff --git a/lapack-netlib/SRC/slaed0.c b/lapack-netlib/SRC/slaed0.c
-index 33f7134c..4c523090 100644
---- a/lapack-netlib/SRC/slaed0.c
-+++ b/lapack-netlib/SRC/slaed0.c
-@@ -823,10 +823,10 @@ L10:
- 
- 	temp = log((real) (*n)) / log(2.f);
- 	lgn = (integer) temp;
--	if (pow_ii(&c__2, &lgn) < *n) {
-+	if (pow_ii(c__2, lgn) < *n) {
- 	    ++lgn;
- 	}
--	if (pow_ii(&c__2, &lgn) < *n) {
-+	if (pow_ii(c__2, lgn) < *n) {
- 	    ++lgn;
- 	}
- 	iprmpt = indxq + *n + 1;
-diff --git a/lapack-netlib/SRC/slaed7.c b/lapack-netlib/SRC/slaed7.c
-index 210d796d..22fcaf76 100644
---- a/lapack-netlib/SRC/slaed7.c
-+++ b/lapack-netlib/SRC/slaed7.c
-@@ -883,11 +883,11 @@ f"> */
- /*     Form the z-vector which consists of the last row of Q_1 and the */
- /*     first row of Q_2. */
- 
--    ptr = pow_ii(&c__2, tlvls) + 1;
-+    ptr = pow_ii(c__2, *tlvls) + 1;
-     i__1 = *curlvl - 1;
-     for (i__ = 1; i__ <= i__1; ++i__) {
- 	i__2 = *tlvls - i__;
--	ptr += pow_ii(&c__2, &i__2);
-+	ptr += pow_ii(c__2, i__2);
- /* L10: */
-     }
-     curr = ptr + *curpbm;
-diff --git a/lapack-netlib/SRC/slaeda.c b/lapack-netlib/SRC/slaeda.c
-index 7edaf8a7..3806427c 100644
---- a/lapack-netlib/SRC/slaeda.c
-+++ b/lapack-netlib/SRC/slaeda.c
-@@ -753,7 +753,7 @@ f"> */
- /*     scheme */
- 
-     i__1 = *curlvl - 1;
--    curr = ptr + *curpbm * pow_ii(&c__2, curlvl) + pow_ii(&c__2, &i__1) - 1;
-+    curr = ptr + *curpbm * pow_ii(c__2, *curlvl) + pow_ii(c__2, i__1) - 1;
- 
- /*     Determine size of these matrices.  We add HALF to the value of */
- /*     the SQRT in case the machine underestimates one of these square */
-@@ -779,12 +779,12 @@ f"> */
- /*     rotations and permutation and then multiplying the center matrices */
- /*     against the current Z. */
- 
--    ptr = pow_ii(&c__2, tlvls) + 1;
-+    ptr = pow_ii(c__2, *tlvls) + 1;
-     i__1 = *curlvl - 1;
-     for (k = 1; k <= i__1; ++k) {
- 	i__2 = *curlvl - k;
- 	i__3 = *curlvl - k - 1;
--	curr = ptr + *curpbm * pow_ii(&c__2, &i__2) + pow_ii(&c__2, &i__3) - 
-+	curr = ptr + *curpbm * pow_ii(c__2, i__2) + pow_ii(c__2, i__3) - 
- 		1;
- 	psiz1 = prmptr[curr + 1] - prmptr[curr];
- 	psiz2 = prmptr[curr + 2] - prmptr[curr + 1];
-@@ -844,7 +844,7 @@ f"> */
- 		c__1);
- 
- 	i__2 = *tlvls - k;
--	ptr += pow_ii(&c__2, &i__2);
-+	ptr += pow_ii(c__2, i__2);
- /* L70: */
-     }
- 
-diff --git a/lapack-netlib/SRC/slalsa.c b/lapack-netlib/SRC/slalsa.c
-index 53da2c7b..77a79b80 100644
---- a/lapack-netlib/SRC/slalsa.c
-+++ b/lapack-netlib/SRC/slalsa.c
-@@ -946,7 +946,7 @@ f"> */
- /*     Finally go through the left singular vector matrices of all */
- /*     the other subproblems bottom-up on the tree. */
- 
--    j = pow_ii(&c__2, &nlvl);
-+    j = pow_ii(c__2, nlvl);
-     sqre = 0;
- 
-     for (lvl = nlvl; lvl >= 1; --lvl) {
-@@ -960,7 +960,7 @@ f"> */
- 	    ll = 1;
- 	} else {
- 	    i__1 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__1);
-+	    lf = pow_ii(c__2, i__1);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__1 = ll;
-@@ -1005,7 +1005,7 @@ L50:
- 	    ll = 1;
- 	} else {
- 	    i__2 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__2);
-+	    lf = pow_ii(c__2, i__2);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__2 = lf;
-diff --git a/lapack-netlib/SRC/slasd0.c b/lapack-netlib/SRC/slasd0.c
-index aa553579..be1a7419 100644
---- a/lapack-netlib/SRC/slasd0.c
-+++ b/lapack-netlib/SRC/slasd0.c
-@@ -821,7 +821,7 @@ f"> */
- 	    ll = 1;
- 	} else {
- 	    i__1 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__1);
-+	    lf = pow_ii(c__2, i__1);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__1 = ll;
-diff --git a/lapack-netlib/SRC/slasda.c b/lapack-netlib/SRC/slasda.c
-index 71424c3f..1d336d1c 100644
---- a/lapack-netlib/SRC/slasda.c
-+++ b/lapack-netlib/SRC/slasda.c
-@@ -1023,7 +1023,7 @@ f"> */
- 
- /*     Now conquer each subproblem bottom-up. */
- 
--    j = pow_ii(&c__2, &nlvl);
-+    j = pow_ii(c__2, nlvl);
-     for (lvl = nlvl; lvl >= 1; --lvl) {
- 	lvl2 = (lvl << 1) - 1;
- 
-@@ -1035,7 +1035,7 @@ f"> */
- 	    ll = 1;
- 	} else {
- 	    i__1 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__1);
-+	    lf = pow_ii(c__2, i__1);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__1 = ll;
-diff --git a/lapack-netlib/SRC/sstedc.c b/lapack-netlib/SRC/sstedc.c
-index 46ed15a1..61ad3dd3 100644
---- a/lapack-netlib/SRC/sstedc.c
-+++ b/lapack-netlib/SRC/sstedc.c
-@@ -804,10 +804,10 @@ f"> */
- 	    lwmin = *n - 1 << 1;
- 	} else {
- 	    lgn = (integer) (log((real) (*n)) / log(2.f));
--	    if (pow_ii(&c__2, &lgn) < *n) {
-+	    if (pow_ii(c__2, lgn) < *n) {
- 		++lgn;
- 	    }
--	    if (pow_ii(&c__2, &lgn) < *n) {
-+	    if (pow_ii(c__2, lgn) < *n) {
- 		++lgn;
- 	    }
- 	    if (icompz == 1) {
-diff --git a/lapack-netlib/SRC/zlaed0.c b/lapack-netlib/SRC/zlaed0.c
-index 37bd12b0..2b25f6e4 100644
---- a/lapack-netlib/SRC/zlaed0.c
-+++ b/lapack-netlib/SRC/zlaed0.c
-@@ -793,10 +793,10 @@ L10:
- 
-     temp = log((doublereal) (*n)) / log(2.);
-     lgn = (integer) temp;
--    if (pow_ii(&c__2, &lgn) < *n) {
-+    if (pow_ii(c__2, lgn) < *n) {
- 	++lgn;
-     }
--    if (pow_ii(&c__2, &lgn) < *n) {
-+    if (pow_ii(c__2, lgn) < *n) {
- 	++lgn;
-     }
-     iprmpt = indxq + *n + 1;
-diff --git a/lapack-netlib/SRC/zlaed7.c b/lapack-netlib/SRC/zlaed7.c
-index 09305191..8665ee12 100644
---- a/lapack-netlib/SRC/zlaed7.c
-+++ b/lapack-netlib/SRC/zlaed7.c
-@@ -864,11 +864,11 @@ f"> */
- /*     Form the z-vector which consists of the last row of Q_1 and the */
- /*     first row of Q_2. */
- 
--    ptr = pow_ii(&c__2, tlvls) + 1;
-+    ptr = pow_ii(c__2, *tlvls) + 1;
-     i__1 = *curlvl - 1;
-     for (i__ = 1; i__ <= i__1; ++i__) {
- 	i__2 = *tlvls - i__;
--	ptr += pow_ii(&c__2, &i__2);
-+	ptr += pow_ii(c__2, i__2);
- /* L10: */
-     }
-     curr = ptr + *curpbm;
-diff --git a/lapack-netlib/SRC/zlalsa.c b/lapack-netlib/SRC/zlalsa.c
-index d17016e7..cd0819c3 100644
---- a/lapack-netlib/SRC/zlalsa.c
-+++ b/lapack-netlib/SRC/zlalsa.c
-@@ -1051,7 +1051,7 @@ f"> */
- /*     Finally go through the left singular vector matrices of all */
- /*     the other subproblems bottom-up on the tree. */
- 
--    j = pow_ii(&c__2, &nlvl);
-+    j = pow_ii(c__2, nlvl);
-     sqre = 0;
- 
-     for (lvl = nlvl; lvl >= 1; --lvl) {
-@@ -1065,7 +1065,7 @@ f"> */
- 	    ll = 1;
- 	} else {
- 	    i__1 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__1);
-+	    lf = pow_ii(c__2, i__1);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__1 = ll;
-@@ -1110,7 +1110,7 @@ L170:
- 	    ll = 1;
- 	} else {
- 	    i__2 = lvl - 1;
--	    lf = pow_ii(&c__2, &i__2);
-+	    lf = pow_ii(c__2, i__2);
- 	    ll = (lf << 1) - 1;
- 	}
- 	i__2 = lf;
-diff --git a/lapack-netlib/SRC/zstedc.c b/lapack-netlib/SRC/zstedc.c
-index 4cfc4184..55baba2d 100644
---- a/lapack-netlib/SRC/zstedc.c
-+++ b/lapack-netlib/SRC/zstedc.c
-@@ -836,10 +836,10 @@ f"> */
- 	    lrwmin = *n - 1 << 1;
- 	} else if (icompz == 1) {
- 	    lgn = (integer) (log((doublereal) (*n)) / log(2.));
--	    if (pow_ii(&c__2, &lgn) < *n) {
-+	    if (pow_ii(c__2, lgn) < *n) {
- 		++lgn;
- 	    }
--	    if (pow_ii(&c__2, &lgn) < *n) {
-+	    if (pow_ii(c__2, lgn) < *n) {
- 		++lgn;
- 	    }
- 	    lwmin = *n * *n;
--- 
-2.37.3
-
diff --git a/openblas-0.3.21-c99-3.patch b/openblas-0.3.21-c99-3.patch
deleted file mode 100644
index 7e29ffc..0000000
--- a/openblas-0.3.21-c99-3.patch
+++ /dev/null
@@ -1,26 +0,0 @@
-From 91110f92d218492d0efbdc1fdf34277ca45f4b36 Mon Sep 17 00:00:00 2001
-From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
-Date: Wed, 14 Sep 2022 14:03:31 +0200
-Subject: [PATCH] fix missing return type in function declaration
-Content-type: text/plain
-
----
- ctest/c_sblat1c.c | 2 +-
- 1 file changed, 1 insertion(+), 1 deletion(-)
-
-diff --git a/ctest/c_sblat1c.c b/ctest/c_sblat1c.c
-index 4993d31b..57e4707a 100644
---- a/ctest/c_sblat1c.c
-+++ b/ctest/c_sblat1c.c
-@@ -969,7 +969,7 @@ real *sfac;
- 	    1.17 };
- 
-     /* Local variables */
--    extern /* Subroutine */ srottest_();
-+    extern /* Subroutine */ void srottest_();
-     static integer i__, k, ksize;
-     extern /* Subroutine */ int stest_(), srotmtest_();
-     static integer ki, kn;
--- 
-2.37.3
-
diff --git a/openblas-0.3.21-c99-4.patch b/openblas-0.3.21-c99-4.patch
deleted file mode 100644
index 1f04db0..0000000
--- a/openblas-0.3.21-c99-4.patch
+++ /dev/null
@@ -1,26 +0,0 @@
-From 9402df5604e69f86f58953e3883f33f98c930baf Mon Sep 17 00:00:00 2001
-From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
-Date: Wed, 14 Sep 2022 21:44:34 +0200
-Subject: [PATCH] Fix missing external declaration
-Content-type: text/plain
-
----
- driver/others/blas_server_omp.c | 2 ++
- 1 file changed, 2 insertions(+)
-
-diff --git a/driver/others/blas_server_omp.c b/driver/others/blas_server_omp.c
-index 1a5fd06a..c158f92e 100644
---- a/driver/others/blas_server_omp.c
-+++ b/driver/others/blas_server_omp.c
-@@ -69,6 +69,8 @@
- 
- int blas_server_avail = 0;
- 
-+extern int openblas_omp_adaptive_env();
-+
- static void * blas_thread_buffer[MAX_PARALLEL_NUMBER][MAX_CPU_NUMBER];
- #ifdef HAVE_C11
- static atomic_bool blas_buffer_inuse[MAX_PARALLEL_NUMBER];
--- 
-2.37.3
-
diff --git a/openblas-0.3.21-c99-5.patch b/openblas-0.3.21-c99-5.patch
deleted file mode 100644
index 12a1112..0000000
--- a/openblas-0.3.21-c99-5.patch
+++ /dev/null
@@ -1,62 +0,0 @@
-From 101a2c77c3f3610933f450cefca3e312edab2186 Mon Sep 17 00:00:00 2001
-From: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
-Date: Thu, 15 Sep 2022 09:19:19 +0200
-Subject: [PATCH] Fix warnings
-Content-type: text/plain
-
----
- kernel/x86_64/dgemm_ncopy_8_skylakex.c | 24 ++++++++++++------------
- kernel/x86_64/omatcopy_rt.c            |  2 +-
- 2 files changed, 13 insertions(+), 13 deletions(-)
-
-diff --git a/kernel/x86_64/dgemm_ncopy_8_skylakex.c b/kernel/x86_64/dgemm_ncopy_8_skylakex.c
-index 74b336f3..874ef68d 100644
---- a/kernel/x86_64/dgemm_ncopy_8_skylakex.c
-+++ b/kernel/x86_64/dgemm_ncopy_8_skylakex.c
-@@ -52,18 +52,18 @@ int CNAME(BLASLONG m, BLASLONG n, FLOAT * __restrict a, BLASLONG lda, FLOAT * __
-   FLOAT ctemp05, ctemp06, ctemp07, ctemp08;
-   FLOAT ctemp09, ctemp10, ctemp11, ctemp12;
-   FLOAT ctemp13, ctemp14, ctemp15, ctemp16;
--  FLOAT ctemp17, ctemp18, ctemp19, ctemp20;
--  FLOAT ctemp21, ctemp22, ctemp23, ctemp24;
--  FLOAT ctemp25, ctemp26, ctemp27, ctemp28;
--  FLOAT ctemp29, ctemp30, ctemp31, ctemp32;
--  FLOAT ctemp33, ctemp34, ctemp35, ctemp36;
--  FLOAT ctemp37, ctemp38, ctemp39, ctemp40;
--  FLOAT ctemp41, ctemp42, ctemp43, ctemp44;
--  FLOAT ctemp45, ctemp46, ctemp47, ctemp48;
--  FLOAT ctemp49, ctemp50, ctemp51, ctemp52;
--  FLOAT ctemp53, ctemp54, ctemp55, ctemp56;
--  FLOAT ctemp57, ctemp58, ctemp59, ctemp60;
--  FLOAT ctemp61, ctemp62, ctemp63, ctemp64;
-+  FLOAT ctemp17 /*, ctemp18, ctemp19, ctemp20*/ ;
-+  FLOAT /*ctemp21, ctemp22,*/ ctemp23, ctemp24;
-+  FLOAT ctemp25 /*, ctemp26, ctemp27, ctemp28*/ ;
-+  FLOAT /*ctemp29, ctemp30,*/ ctemp31, ctemp32;
-+  FLOAT ctemp33 /*, ctemp34, ctemp35, ctemp36*/ ;
-+  FLOAT /*ctemp37, ctemp38,*/ ctemp39, ctemp40;
-+  FLOAT ctemp41 /*, ctemp42, ctemp43, ctemp44*/ ;
-+  FLOAT /*ctemp45, ctemp46,*/ ctemp47, ctemp48;
-+  FLOAT ctemp49 /*, ctemp50, ctemp51, ctemp52*/ ;
-+  FLOAT /*ctemp53, ctemp54,*/ ctemp55, ctemp56;
-+  FLOAT ctemp57 /*, ctemp58, ctemp59, ctemp60*/ ;
-+  FLOAT /*ctemp61, ctemp62,*/ ctemp63, ctemp64;
- 
- 
-   aoffset = a;
-diff --git a/kernel/x86_64/omatcopy_rt.c b/kernel/x86_64/omatcopy_rt.c
-index e695f00c..b11893f5 100644
---- a/kernel/x86_64/omatcopy_rt.c
-+++ b/kernel/x86_64/omatcopy_rt.c
-@@ -142,7 +142,7 @@ USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-     ,"xmm0","xmm1","xmm2","xmm3","xmm4","xmm5","xmm6","xmm7","xmm8","xmm9","xmm10","xmm11","xmm12","xmm13","xmm14","xmm15");\
- }
- int CNAME(BLASLONG rows, BLASLONG cols, FLOAT alpha, FLOAT *a, BLASLONG lda, FLOAT *b, BLASLONG ldb){
--  float *src, *dst, *dst_tmp, *src_base, *dst_base;
-+  float *src, *dst, *dst_tmp=0, *src_base, *dst_base;
-   uint64_t src_ld_bytes = (uint64_t)lda * sizeof(float), dst_ld_bytes = (uint64_t)ldb * sizeof(float), num_rows = 0;
-   BLASLONG cols_left, rows_done; float ALPHA = alpha;
-   if(ALPHA==0.0){
--- 
-2.37.3
-
diff --git a/openblas-0.3.21-sbgemm-test.patch b/openblas-0.3.21-sbgemm-test.patch
deleted file mode 100644
index 3a21470..0000000
--- a/openblas-0.3.21-sbgemm-test.patch
+++ /dev/null
@@ -1,55 +0,0 @@
-Fixing FTBFS on power:
-https://bugzilla.redhat.com/show_bug.cgi?id=2120974
-
-Upstream issue: https://github.com/xianyi/OpenBLAS/issues/3738
-Upstream fix: https://github.com/xianyi/OpenBLAS/pull/3718
-
-commit d9dc015cfc78fc32f555995a89d6957ef0184ea2
-Author: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
-Date:   Mon Aug 8 14:52:10 2022 +0200
-
-    Use blasint for INTERFACE64 compatibility
-
-diff --git a/test/compare_sgemm_sbgemm.c b/test/compare_sgemm_sbgemm.c
-index a2c358cf..d4b59145 100644
---- a/test/compare_sgemm_sbgemm.c
-+++ b/test/compare_sgemm_sbgemm.c
-@@ -76,9 +76,9 @@ float16to32 (bfloat16_bits f16)
- int
- main (int argc, char *argv[])
- {
--  int m, n, k;
-+  blasint m, n, k;
-   int i, j, l;
--  int x;
-+  blasint x;
-   int ret = 0;
-   int loop = 100;
-   char transA = 'N', transB = 'N';
-
-commit 3d338b57de1837f1e2264a1262a9ee9203f31c6c
-Author: Martin Kroeker <martin@ruby.chemie.uni-freiburg.de>
-Date:   Mon Aug 8 17:09:45 2022 +0200
-
-    remove spurious loops
-
-diff --git a/test/compare_sgemm_sbgemm.c b/test/compare_sgemm_sbgemm.c
-index d4b59145..276fecae 100644
---- a/test/compare_sgemm_sbgemm.c
-+++ b/test/compare_sgemm_sbgemm.c
-@@ -112,7 +112,6 @@ main (int argc, char *argv[])
- 	      &m, BB, &k, &beta, CC, &m);
-       for (i = 0; i < n; i++)
- 	for (j = 0; j < m; j++)
--	  for (l = 0; l < k; l++)
- 	    if (fabs (CC[i * m + j] - C[i * m + j]) > 1.0)
- 	      ret++;
-       if (transA == 'N' && transB == 'N')
-@@ -126,7 +125,6 @@ main (int argc, char *argv[])
- 		}
- 	  for (i = 0; i < n; i++)
- 	    for (j = 0; j < m; j++)
--	      for (l = 0; l < k; l++)
- 		if (CC[i * m + j] != DD[i * m + j])
- 		  ret++;
- 	}
diff --git a/openblas.spec b/openblas.spec
index 9490e09..ea85bbc 100644
--- a/openblas.spec
+++ b/openblas.spec
@@ -1,6 +1,6 @@
 %bcond_with system_lapack
 # Version of bundled lapack
-%global lapackver 3.9.1
+%global lapackver 3.11.0
 
 # DO NOT "CLEAN UP" OR MODIFY THIS SPEC FILE WITHOUT ASKING THE
 # MAINTAINER FIRST!
@@ -14,28 +14,22 @@
 # "obsoleted" features are still kept in the spec.
 
 Name:           openblas
-Version:        0.3.21
-Release:        6%{?dist}
+Version:        0.3.24
+Release:        1%{?dist}
 Summary:        An optimized BLAS library based on GotoBLAS2
-License:        BSD
+
+License:        BSD-3-Clause
 URL:            https://github.com/xianyi/OpenBLAS/
-Source0:        https://github.com/xianyi/OpenBLAS/archive/v%{version}/openblas-%{version}.tar.gz
+Source0:        %url/archive/v%{version}/openblas-%{version}.tar.gz
+
 # Use system lapack
 Patch0:         openblas-0.2.15-system_lapack.patch
 # Drop extra p from threaded library name
 Patch1:         openblas-0.2.5-libname.patch
 # Don't use constructor priorities on too old architectures
 Patch2:         openblas-0.2.15-constructor.patch
-# Fix SBGEMM test to work with INTERFACE64
-Patch3:         openblas-0.3.21-sbgemm-test.patch
 # Supply the proper flags to the test makefile
-Patch4:         openblas-0.3.11-tests.patch
-# C99 porting.
-Patch5:         openblas-0.3.21-c99-1.patch
-Patch6:         openblas-0.3.21-c99-2.patch
-Patch7:         openblas-0.3.21-c99-3.patch
-Patch8:         openblas-0.3.21-c99-4.patch
-Patch9:         openblas-0.3.21-c99-5.patch
+Patch3:         openblas-0.3.11-tests.patch
 
 BuildRequires: make
 BuildRequires:  gcc
@@ -242,19 +236,13 @@ This package contains the static libraries.
 tar zxf %{SOURCE0}
 cd OpenBLAS-%{version}
 %if %{with system_lapack}
-%patch0 -p1 -b .system_lapack
+%patch 0 -p1 -b .system_lapack
 %endif
-%patch1 -p1 -b .libname
+%patch 1 -p1 -b .libname
 %if 0%{?rhel} == 5
-%patch2 -p1 -b .constructor
+%patch 2 -p1 -b .constructor
 %endif
-%patch3 -p1 -b .sbgemm
-%patch4 -p1 -b .tests
-%patch5 -p1 -b .c99-1
-%patch6 -p1 -b .c99-2
-%patch7 -p1 -b .c99-3
-%patch8 -p1 -b .c99-4
-%patch9 -p1 -b .c99-5
+%patch 3 -p1 -b .tests
 
 # Fix source permissions
 find -name \*.f -exec chmod 644 {} \;
@@ -660,6 +648,12 @@ rm -rf %{buildroot}%{_libdir}/pkgconfig
 %endif
 
 %changelog
+* Fri Oct 27 2023 Ali Erdinc Koroglu <aekoroglu@fedoraproject.org> - 0.3.24-1
+- Update to 0.3.24
+
+* Tue Aug 01 2023 Pavel Šimovec <psimovec@redhat.com> - 0.3.23-1
+- Update to 0.3.23 (RHBZ #2182038)
+
 * Thu Jul 20 2023 Fedora Release Engineering <releng@fedoraproject.org> - 0.3.21-6
 - Rebuilt for https://fedoraproject.org/wiki/Fedora_39_Mass_Rebuild
 
diff --git a/sources b/sources
index ec116ac..ca9309e 100644
--- a/sources
+++ b/sources
@@ -1 +1 @@
-SHA512 (openblas-0.3.21.tar.gz) = 4625c8e6ccfa9120281fd714d3f6b7c3ba2265470c1be76121d6b25dc3dacb899d26e5d9a417ddc616d23909f1411495aa995ef8d8d6df8511cd5cefbabcb1c5
+SHA512 (openblas-0.3.24.tar.gz) = fe66e3a258ca1720764ed243f6d61017d6ef14bd33b76f20b19b34754096ec2be9fbeb1a78743f38ee71381746d6af9a1c16a8f3982e423afec422fcb50852d0