generalize real LAPACK

Author: perazz

src/stdlib_linalg_lapack_d.fypp

@@ -478,9 +478,6 @@ 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
@@ -24146,38 +24143,6 @@ module stdlib_linalg_lapack_d
            return
      end function stdlib_dzsum1
 
-#:if WITH_QP
-
-     pure subroutine stdlib_dlag2q( m, n, sa, ldsa, a, lda, info )
-     !! DLAG2Q converts a SINGLE PRECISION matrix, SA, to a DOUBLE
-     !! PRECISION matrix, A.
-     !! Note that while it is possible to overflow while converting
-     !! from double to single, it is not possible to overflow when
-     !! converting from single to double.
-     !! This is an auxiliary routine so there is no argument checking.
-        ! -- lapack auxiliary routine --
-        ! -- lapack is a software package provided by univ. of tennessee,    --
-        ! -- univ. of california berkeley, univ. of colorado denver and nag ltd..--
-           ! Scalar Arguments 
-           integer(ilp), intent(out) :: info
-           integer(ilp), intent(in) :: lda, ldsa, m, n
-           ! Array Arguments 
-           real(dp), intent(in) :: sa(ldsa,*)
-           real(qp), intent(out) :: a(lda,*)
-        ! =====================================================================
-           ! Local Scalars 
-           integer(ilp) :: i, j
-           ! Executable Statements 
-           info = 0
-           do j = 1, n
-              do i = 1, m
-                 a( i, j ) = sa( i, j )
-              end do
-           end do
-           return
-     end subroutine stdlib_dlag2q
-#:endif
-
      pure subroutine stdlib_dbbcsd( jobu1, jobu2, jobv1t, jobv2t, trans, m, p, q,theta, phi, u1, &
      !! DBBCSD computes the CS decomposition of an orthogonal matrix in
      !! bidiagonal-block form,