From 47f426cf2e55fd6ae466601cb3537abe499d4ca1 Mon Sep 17 00:00:00 2001 From: Cyril Gandon Date: Fri, 4 Oct 2024 08:07:36 +0200 Subject: [PATCH 1/2] Fix missing argument to stdlib_linalg_invert_inplace_ call in stdlib_linalg_invert_split --- src/stdlib_linalg_inverse.fypp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/stdlib_linalg_inverse.fypp b/src/stdlib_linalg_inverse.fypp index 38ad3dda7..b16aa17c3 100644 --- a/src/stdlib_linalg_inverse.fypp +++ b/src/stdlib_linalg_inverse.fypp @@ -121,7 +121,7 @@ submodule (stdlib_linalg) stdlib_linalg_inverse inva = a !> Compute matrix inverse - call stdlib_linalg_invert_inplace_${ri}$(inva,err=err0) + call stdlib_linalg_invert_inplace_${ri}$(inva,pivot=pivot,err=err0) end if From aa513111c147b88d0ae44d87eb2d520a65685b5d Mon Sep 17 00:00:00 2001 From: Federico Perini Date: Fri, 4 Oct 2024 01:39:11 -0500 Subject: [PATCH 2/2] Update stdlib_linalg_inverse.fypp There is also a typo in line 167: probably not previously catched due to the implicit real<->complex conversion --- src/stdlib_linalg_inverse.fypp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/stdlib_linalg_inverse.fypp b/src/stdlib_linalg_inverse.fypp index b16aa17c3..20567b2fa 100644 --- a/src/stdlib_linalg_inverse.fypp +++ b/src/stdlib_linalg_inverse.fypp @@ -164,7 +164,7 @@ submodule (stdlib_linalg) stdlib_linalg_inverse if (allocated(inva)) deallocate(inva) allocate(inva(size(a,1,kind=ilp),size(a,2,kind=ilp))) - #:if rt.startswith('complex') + #:if rt.startswith('real') inva = ieee_value(1.0_${rk}$,ieee_quiet_nan) #:else inva = cmplx(ieee_value(1.0_${rk}$,ieee_quiet_nan), &