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)