Move handle_getri_info

Author: loiseaujc

src/lapack/stdlib_linalg_lapack_aux.fypp

@@ -41,6 +41,7 @@ module stdlib_linalg_lapack_aux
      public :: stdlib_selctg_${ri}$     
      #:endfor   
      public :: handle_potrf_info
+     public :: handle_getri_info
 
      ! SELCTG is a LOGICAL FUNCTION of three DOUBLE PRECISION arguments 
      ! used to select eigenvalues to sort to the top left of the Schur form. 
@@ -1311,5 +1312,23 @@ module stdlib_linalg_lapack_aux
 
    end subroutine handle_potrf_info
 
+   elemental subroutine handle_getri_info(this,info,lda,n,err)
+      character(len=*), intent(in) :: this
+      integer(ilp), intent(in) :: info,lda,n
+      type(linalg_state_type), intent(out) :: err
+
+      ! Process output
+      select case (info)
+         case (0)
+             ! Success
+         case (:-1)
+             err = linalg_state_type(this,LINALG_ERROR,'invalid matrix size a=',[lda,n])
+         case (1:)
+             ! Matrix is singular
+             err = linalg_state_type(this,LINALG_ERROR,'singular matrix')
+         case default
+             err = linalg_state_type(this,LINALG_INTERNAL_ERROR,'catastrophic error')
+      end select
+   end subroutine handle_getri_info
 
 end module stdlib_linalg_lapack_aux

src/stdlib_linalg_inverse.fypp

@@ -4,6 +4,7 @@ submodule (stdlib_linalg) stdlib_linalg_inverse
 !! Compute inverse of a square matrix    
      use stdlib_linalg_constants
      use stdlib_linalg_lapack, only: getri,getrf,stdlib_ilaenv
+     use stdlib_linalg_lapack_aux, only: handle_getri_info
      use stdlib_linalg_state, only: linalg_state_type, linalg_error_handling, LINALG_ERROR, &
          LINALG_INTERNAL_ERROR, LINALG_VALUE_ERROR
      use ieee_arithmetic, only: ieee_value, ieee_quiet_nan
@@ -13,25 +14,6 @@ submodule (stdlib_linalg) stdlib_linalg_inverse
 
      contains
 
-     elemental subroutine handle_getri_info(info,lda,n,err)
-         integer(ilp), intent(in) :: info,lda,n
-         type(linalg_state_type), intent(out) :: err
-
-         ! Process output
-         select case (info)
-            case (0)
-                ! Success
-            case (:-1)
-                err = linalg_state_type(this,LINALG_ERROR,'invalid matrix size a=',[lda,n])
-            case (1:)
-                ! Matrix is singular
-                err = linalg_state_type(this,LINALG_ERROR,'singular matrix')
-            case default
-                err = linalg_state_type(this,LINALG_INTERNAL_ERROR,'catastrophic error')
-         end select
-         
-     end subroutine handle_getri_info
-
      #:for rk,rt,ri in RC_KINDS_TYPES
      ! Compute the in-place square matrix inverse of a
      module subroutine stdlib_linalg_invert_inplace_${ri}$(a,pivot,err)
@@ -86,7 +68,7 @@ submodule (stdlib_linalg) stdlib_linalg_inverse
          endif
 
          ! Process output
-         call handle_getri_info(info,lda,n,err0)
+         call handle_getri_info(this,info,lda,n,err0)
 
          ! Process output and return
          if (.not.present(pivot)) deallocate(ipiv)