Fix imports and handle_potrf_info signature.

Author: loiseaujc

src/lapack/stdlib_linalg_lapack_aux.fypp

@@ -3,6 +3,8 @@
 module stdlib_linalg_lapack_aux
      use stdlib_linalg_constants
      use stdlib_linalg_blas
+     use stdlib_linalg_state, only: linalg_state_type, linalg_error_handling, LINALG_ERROR, &
+         LINALG_INTERNAL_ERROR, LINALG_VALUE_ERROR
      use ieee_arithmetic, only: ieee_support_inf, ieee_support_nan
      implicit none
      private
@@ -38,6 +40,7 @@ module stdlib_linalg_lapack_aux
      public :: stdlib_select_${ri}$
      public :: stdlib_selctg_${ri}$     
      #:endfor   
+     public :: handle_potrf_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. 
@@ -1280,8 +1283,10 @@ module stdlib_linalg_lapack_aux
    !-----     AUXILIARY INFO HANDLING FUNCTIONS FOR LAPACK SUBROUTINES     -----
    !-----                                                                  -----
    !----------------------------------------------------------------------------
-
-   elemental subroutine handle_potrf_info(info,triangle,lda,n,err)
+   
+   ! Cholesky factorization
+   elemental subroutine handle_potrf_info(this,info,triangle,lda,n,err)
+      character(len=*), intent(in) :: this
       character, intent(in) :: triangle
       integer(ilp), intent(in) :: info,lda,n
       type(linalg_state_type), intent(out) :: err

src/stdlib_linalg_cholesky.fypp

@@ -60,7 +60,7 @@ submodule (stdlib_linalg) stdlib_linalg_cholesky
 
              ! Compute factorization
              call potrf(triangle,n,a,lda,info)
-             call handle_potrf_info(info,triangle,lda,n,err0)
+             call handle_potrf_info(this, info,triangle,lda,n,err0)
 
              ! Zero-out the unused part of matrix A
              clean_unused: if (other_zeroed_ .and. err0%ok()) then