more WITH_QP guards

Author: perazz

src/stdlib_linalg_lapack_d.fypp

@@ -478,7 +478,9 @@ module stdlib_linalg_lapack_d
      public :: stdlib_dtrttp
      public :: stdlib_dtzrzf
      public :: stdlib_dzsum1
+#:if WITH_QP
      public :: stdlib_dlag2q
+#:endif
 
      ! 64-bit real constants 
      real(dp),    parameter, private ::     negone = -1.00_dp
@@ -24148,6 +24150,7 @@ module stdlib_linalg_lapack_d
            return
      end function stdlib_dzsum1
 
+#:if WITH_QP
      !> DLAG2Q: converts a SINGLE PRECISION matrix, SA, to a DOUBLE
      !> PRECISION matrix, A.
      !> Note that while it is possible to overflow while converting
@@ -24177,6 +24180,7 @@ module stdlib_linalg_lapack_d
            end do
            return
      end subroutine stdlib_dlag2q
+#:endif
 
      !> DBBCSD: computes the CS decomposition of an orthogonal matrix in
      !> bidiagonal-block form,

src/stdlib_linalg_lapack_z.fypp

@@ -11,7 +11,9 @@ module stdlib_linalg_lapack_z
 
 
      public :: sp,dp,qp,lk,ilp
+#:if WITH_QP
      public :: stdlib_zlag2w
+#:endif
      public :: stdlib_zbbcsd
      public :: stdlib_zbdsqr
      public :: stdlib_zcgesv
@@ -503,6 +505,7 @@ module stdlib_linalg_lapack_z
 
      contains
 
+#:if WITH_QP
      !> ZLAG2W: converts a COMPLEX matrix, SA, to a COMPLEX*16 matrix, A.
      !> Note that while it is possible to overflow while converting
      !> from double to single, it is not possible to overflow when
@@ -531,6 +534,7 @@ module stdlib_linalg_lapack_z
            end do
            return
      end subroutine stdlib_zlag2w
+#:endif
 
      !> ZDRSCL: multiplies an n-element complex vector x by the real scalar
      !> 1/a.  This is done without overflow or underflow as long as