Merge pull request #880 from cyrilgandon/fix_pivot_missing

Fix missing argument to linalg_invert_inplace_ call in linalg_invert_split
fortran-lang · Oct 6, 2024 · 2db51d1 · 2db51d1
2 parents c663dc1 + aa51311
commit 2db51d1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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         
 
@@ -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), &