Enabled xdp and qp for spmv kernels.

Author: loiseaujc

src/stdlib_specialmatrices.fypp

@@ -115,7 +115,6 @@ module stdlib_specialmatrices
         !! for the different matrix types defined by `stdlib_specialmatrices`.
         #:for k1, t1, s1 in (KINDS_TYPES)
         #:for rank in RANKS
-        #:if k1 != "qp" and k1 != "xdp"
         module subroutine spmv_tridiag_${rank}$d_${s1}$(A, x, y, alpha, beta, op)
          type(Tridiagonal_${s1}$_type), intent(in) :: A
             ${t1}$, intent(in), contiguous, target :: x${ranksuffix(rank)}$
@@ -124,7 +123,6 @@ module stdlib_specialmatrices
             real(${k1}$), intent(in), optional :: beta
             character(1), intent(in), optional :: op
         end subroutine
-        #:endif
         #:endfor
         #:endfor
     end interface

src/stdlib_specialmatrices_tridiagonal.fypp

@@ -66,7 +66,6 @@ submodule (stdlib_specialmatrices) tridiagonal_matrices
     !! spmv_tridiag
     #:for k1, t1, s1 in (KINDS_TYPES)
     #:for rank in RANKS
-    #:if k1 != "qp" and k1 != "xdp"
     module subroutine spmv_tridiag_${rank}$d_${s1}$(A, x, y, alpha, beta, op)
         type(Tridiagonal_${s1}$_type), intent(in) :: A
         ${t1}$, intent(in), contiguous, target :: x${ranksuffix(rank)}$
@@ -100,7 +99,6 @@ submodule (stdlib_specialmatrices) tridiagonal_matrices
         call lagtm(op_, n, nrhs, alpha_, A%dl, A%dv, A%du, x, ldx, beta_, y, ldy)
         #:endif
     end subroutine
-    #:endif
     #:endfor
     #:endfor
 

test/linalg/test_linalg_specialmatrices.fypp

@@ -27,7 +27,6 @@ contains
         !> Error handling
         type(error_type), allocatable, intent(out) :: error
         #:for k1, t1, s1 in (KINDS_TYPES)
-        #:if k1 != "qp" and k1 != "xdp"
         block
             integer, parameter :: wp = ${k1}$
             integer, parameter :: n = 5
@@ -64,7 +63,6 @@ contains
             if (allocated(error)) return
             #:endif
         end block
-        #:endif
         #:endfor
     end subroutine