Remove warning -Wunused-variable from compilation

Author: Cyril Gandon

src/stdlib_linalg_cholesky.fypp

@@ -54,7 +54,7 @@ submodule (stdlib_linalg) stdlib_linalg_cholesky
 
          !> Local variables
          type(linalg_state_type) :: err0
-         integer(ilp) :: lda,n,info,i,j
+         integer(ilp) :: lda,n,info,j
          logical(lk) :: lower_,other_zeroed_
          character :: triangle
          ${rt}$, parameter :: zero = 0.0_${rk}$

src/stdlib_linalg_eigenvalues.fypp

@@ -162,14 +162,17 @@ submodule (stdlib_linalg) stdlib_linalg_eigenvalues
 
          !> Local variables
          type(linalg_state_type) :: err0
-         integer(ilp) :: m,n,lda,ldu,ldv,info,k,lwork,lrwork,neig
+         integer(ilp) :: m,n,lda,ldu,ldv,info,k,lwork,neig
          logical(lk) :: copy_a
          character :: task_u,task_v
          ${rt}$, target :: work_dummy(1),u_dummy(1,1),v_dummy(1,1)
          ${rt}$, allocatable :: work(:)
+         ${rt}$, pointer :: amat(:,:),umat(:,:),vmat(:,:)
+         #:if rt.startswith('complex')
          real(${rk}$), allocatable :: rwork(:)
-         ${rt}$, pointer :: amat(:,:),lreal(:),limag(:),umat(:,:),vmat(:,:)
-
+         #:else
+         ${rt}$, pointer :: lreal(:),limag(:)
+         #:endif
          !> Matrix size
          m    = size(a,1,kind=ilp)
          n    = size(a,2,kind=ilp)
@@ -388,7 +391,9 @@ submodule (stdlib_linalg) stdlib_linalg_eigenvalues
          character :: triangle,task
          ${rt}$, target :: work_dummy(1)
          ${rt}$, allocatable :: work(:)
+         #:if rt.startswith('complex')
          real(${rk}$), allocatable :: rwork(:)
+         #:endif
          ${rt}$, pointer :: amat(:,:)
 
          !> Matrix size

src/stdlib_linalg_lapack_c.fypp

@@ -38666,7 +38666,7 @@ module stdlib_linalg_lapack_c
            ! Local Scalars 
            integer(ilp) :: ncols, i, j, k, kp
            real(sp) :: amax, umax, rpvgrw, tmp
-           logical(lk) :: upper, lsame
+           logical(lk) :: upper
            complex(sp) :: zdum
            ! Intrinsic Functions 
            intrinsic :: abs,real,aimag,max,min

src/stdlib_linalg_lapack_d.fypp

@@ -6042,7 +6042,7 @@ module stdlib_linalg_lapack_d
 
 
            ! Local Scalars 
-           integer(ilp) :: i, i1, i2, i3, i4, it1, it2, it3, it4, j
+           integer(ilp) :: i, i1, i2, i3, i4, it1, it2, it3, it4
            ! Local Arrays 
            integer(ilp) :: mm(lv,4)
            ! Intrinsic Functions 

src/stdlib_linalg_lapack_w.fypp

@@ -35519,7 +35519,7 @@ module stdlib_linalg_lapack_${ci}$
            ! Local Scalars 
            integer(ilp) :: ncols, i, j, k, kp
            real(${ck}$) :: amax, umax, rpvgrw, tmp
-           logical(lk) :: upper, lsame
+           logical(lk) :: upper
            complex(${ck}$) :: zdum
            ! Intrinsic Functions 
            intrinsic :: abs,real,aimag,max,min

src/stdlib_linalg_lapack_z.fypp

@@ -39073,7 +39073,7 @@ module stdlib_linalg_lapack_z
            ! Local Scalars 
            integer(ilp) :: ncols, i, j, k, kp
            real(dp) :: amax, umax, rpvgrw, tmp
-           logical(lk) :: upper, lsame
+           logical(lk) :: upper
            complex(dp) :: zdum
            ! Intrinsic Functions 
            intrinsic :: abs,real,aimag,max,min

src/stdlib_linalg_least_squares.fypp

@@ -203,12 +203,18 @@ submodule (stdlib_linalg) stdlib_linalg_least_squares
          !! Local variables
          type(linalg_state_type) :: err0
          integer(ilp) :: m,n,lda,ldb,nrhs,ldx,nrhsx,info,mnmin,mnmax,arank,lrwork,liwork,lcwork
-         integer(ilp) :: nrs,nis,ncs,nsvd
+         integer(ilp) :: nrs,nis,nsvd
+         #:if rt.startswith('complex')         
+         integer(ilp) :: ncs
+         #:endif
          integer(ilp), pointer :: iwork(:)
          logical(lk) :: copy_a,large_enough_x
          real(${rk}$) :: acond,rcond
          real(${rk}$), pointer :: rwork(:),singular(:)
-         ${rt}$, pointer :: xmat(:,:),amat(:,:),cwork(:)
+         ${rt}$, pointer :: xmat(:,:),amat(:,:)
+         #:if rt.startswith('complex')         
+         ${rt}$, pointer :: cwork(:)
+         #:endif  
 
          ! Problem sizes
          m     = size(a,1,kind=ilp)

src/stdlib_linalg_svd.fypp

@@ -147,7 +147,9 @@ submodule(stdlib_linalg) stdlib_linalg_svd
          character :: task
          ${rt}$, target :: work_dummy(1),u_dummy(1,1),vt_dummy(1,1)
          ${rt}$, allocatable :: work(:)
+         #:if rt.startswith('complex')
          real(${rk}$), allocatable :: rwork(:)
+         #:endif
          ${rt}$, pointer :: amat(:,:),umat(:,:),vtmat(:,:)
 
          !> Matrix determinant size

src/stdlib_specialfunctions_gamma.fypp

@@ -714,7 +714,7 @@ contains
         ${t1}$, intent(in) :: p
         ${t2}$, intent(in) :: x
         ${t2}$ :: res, p_lim, a, b, g, c, d, y
-        integer :: n, m
+        integer :: n
         ${t2}$, parameter :: zero = 0.0_${k2}$, one = 1.0_${k2}$
         ${t2}$, parameter :: dm = tiny(1.0_${k2}$) * 10 ** 6
         ${t1}$, parameter :: zero_k1 = 0_${k1}$, two = 2_${k1}$