changed file names from extended_lapack to lapack_extended, updated docs, updated alpha and beta checks

Author: Mahmood-Sinan

src/lapack_extended/CMakeLists.txt

@@ -1,7 +1,7 @@
 set(lapack_extended_fppFiles
     ../stdlib_kinds.fypp
-    stdlib_extended_lapack_base.fypp
-    stdlib_extended_lapack.fypp
+    stdlib_lapack_extended_base.fypp
+    stdlib_lapack_extended.fypp
 )
 set(lapack_extended_cppFiles
     ../stdlib_linalg_constants.fypp

…ack_extended/stdlib_extended_lapack.fypp …ack_extended/stdlib_lapack_extended.fyppsrc/lapack_extended/stdlib_extended_lapack.fypp renamed to src/lapack_extended/stdlib_lapack_extended.fypp src/lapack_extended/stdlib_extended_lapack.fypp renamed to src/lapack_extended/stdlib_lapack_extended.fypp

@@ -3,7 +3,7 @@
 #:set C_KINDS_TYPES = list(zip(CMPLX_KINDS, CMPLX_TYPES, CMPLX_SUFFIX))
 #:set KINDS_TYPES = R_KINDS_TYPES+C_KINDS_TYPES
 
-submodule(stdlib_extended_lapack_base) stdlib_extended_lapack
+submodule(stdlib_lapack_extended_base) stdlib_lapack_extended
     implicit none
 contains
     #:for ik,it,ii in LINALG_INT_KINDS_TYPES
@@ -37,7 +37,7 @@ contains
                     b(1_${ik}$, j) = b(1_${ik}$, j) + alpha * temp
                     do i = 2, n - 1
                         temp = dl(i - 1) * x(i - 1, j) + d(i) * x(i, j) + du(i) * x(i + 1, j)
-                        b(i, j) = b (i, j) + alpha * temp
+                        b(i, j) = b(i, j) + alpha * temp
                     end do
                     temp = dl(n - 1) * x(n - 1, j) + d(n) * x(n, j)
                     b(n, j) = b(n, j) + alpha * temp

…xtended/stdlib_extended_lapack_base.fypp …xtended/stdlib_lapack_extended_base.fyppsrc/lapack_extended/stdlib_extended_lapack_base.fypp renamed to src/lapack_extended/stdlib_lapack_extended_base.fypp src/lapack_extended/stdlib_extended_lapack_base.fypp renamed to src/lapack_extended/stdlib_lapack_extended_base.fypp

@@ -2,7 +2,7 @@
 #:set R_KINDS_TYPES = list(zip(REAL_KINDS, REAL_TYPES, REAL_SUFFIX))
 #:set C_KINDS_TYPES = list(zip(CMPLX_KINDS, CMPLX_TYPES, CMPLX_SUFFIX))
 #:set KINDS_TYPES = R_KINDS_TYPES+C_KINDS_TYPES
-module stdlib_extended_lapack_base
+module stdlib_lapack_extended_base
     use stdlib_linalg_constants
     implicit none
 

src/stdlib_specialmatrices.fypp

@@ -12,7 +12,7 @@ module stdlib_specialmatrices
     use stdlib_constants
     use stdlib_linalg_state, only: linalg_state_type, linalg_error_handling, LINALG_ERROR, &
         LINALG_INTERNAL_ERROR, LINALG_VALUE_ERROR
-    use stdlib_extended_lapack_base
+    use stdlib_lapack_extended_base
     implicit none
     private
     public :: tridiagonal

src/stdlib_specialmatrices_tridiagonal.fypp

@@ -163,7 +163,9 @@ submodule (stdlib_specialmatrices) tridiagonal_matrices
         ${t1}$ :: alpha_, beta_
         integer(ilp) :: n, nrhs, ldx, ldy
         character(1) :: op_
+        #:if t1.startswith('real')
         logical :: is_alpha_special, is_beta_special
+        #:endif
 
         #:if rank == 1
         ${t1}$, pointer :: xmat(:, :), ymat(:, :)
@@ -173,9 +175,10 @@ submodule (stdlib_specialmatrices) tridiagonal_matrices
         alpha_ = 1.0_${k1}$ ; if (present(alpha)) alpha_ = alpha
         beta_  = 0.0_${k1}$ ; if (present(beta))  beta_  = beta
         op_    = "N"        ; if (present(op))    op_    = op
-
+        #:if t1.startswith('real')
         is_alpha_special = (alpha_ ==  1.0_${k1}$  .or. alpha_ ==  0.0_${k1}$  .or. alpha_ == -1.0_${k1}$)
         is_beta_special  = (beta_  ==  1.0_${k1}$  .or. beta_  ==  0.0_${k1}$  .or. beta_  == -1.0_${k1}$)
+        #:endif
 
         ! Prepare Lapack arguments.
         n = A%n ; ldx = n ; ldy = n ;