From d532b5bcec74393eea97f64a4f712aad80b8957e Mon Sep 17 00:00:00 2001
From: martin-frbg <martin@ruby.chemie.uni-freiburg.de>
Date: Thu, 14 Apr 2022 08:25:32 +0200
Subject: [PATCH] fix cpow_ii

---
 lapack-netlib/SRC/clahqr.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lapack-netlib/SRC/clahqr.c b/lapack-netlib/SRC/clahqr.c
index 076c3eaee..3ebf092aa 100644
--- a/lapack-netlib/SRC/clahqr.c
+++ b/lapack-netlib/SRC/clahqr.c
@@ -295,7 +295,7 @@ static double dpow_ui(double x, integer n) {
 static _Fcomplex cpow_ui(_Fcomplex x, integer n) {
 	_Fcomplex pow={1.0,0.0}; unsigned long int u;
 		if(n != 0) {
-		if(n < 0) n = -n, x.r = 1/x.r, x.i=1/x.i;
+		if(n < 0) n = -n, x._Val[0] = 1./x._Val[0], x._Val[1]=1./x._Val[1];
 		for(u = n; ; ) {
 			if(u & 01) pow = _FCmulcc (pow,x);
 			if(u >>= 1) x = _FCmulcc (x,x);