remove xdp

Author: perazz

src/stdlib_linalg.fypp

@@ -225,6 +225,7 @@ module stdlib_linalg
   interface lstsq
     #:for nd,ndsuf,nde in ALL_RHS
     #:for rk,rt,ri in RC_KINDS_TYPES
+    #:if rk!="xdp"
       module function stdlib_linalg_${ri}$_lstsq_${ndsuf}$(a,b,cond,overwrite_a,rank,err) result(x)
          !> Input matrix a[n,n]
          ${rt}$, intent(inout), target :: a(:,:)
@@ -241,6 +242,7 @@ module stdlib_linalg
          !> Result array/matrix x[n] or x[n,nrhs]
          ${rt}$, allocatable, target :: x${nd}$
       end function stdlib_linalg_${ri}$_lstsq_${ndsuf}$
+    #:endif
     #:endfor
     #:endfor
   end interface lstsq

src/stdlib_linalg_least_squares.fypp

@@ -17,6 +17,7 @@ submodule (stdlib_linalg) stdlib_linalg_least_squares
      contains
 
      #:for rk,rt,ri in RC_KINDS_TYPES
+     #:if rk!="xdp"
      ! Workspace needed by gesv
      elemental subroutine ${ri}$gesv_space(m,n,nrhs,lrwork,liwork,lcwork)
          integer(ilp), intent(in) :: m,n,nrhs
@@ -53,10 +54,12 @@ submodule (stdlib_linalg) stdlib_linalg_least_squares
 
      end subroutine ${ri}$gesv_space
 
+     #:endif
      #:endfor
 
      #:for nd,ndsuf,nde in ALL_RHS
      #:for rk,rt,ri in RC_KINDS_TYPES
+     #:if rk!="xdp"
 
      ! Compute the least-squares solution to a real system of linear equations Ax = B
      module function stdlib_linalg_${ri}$_lstsq_${ndsuf}$(a,b,cond,overwrite_a,rank,err) result(x)
@@ -171,6 +174,7 @@ submodule (stdlib_linalg) stdlib_linalg_least_squares
 
      end function stdlib_linalg_${ri}$_lstsq_${ndsuf}$
 
+     #:endif
      #:endfor
      #:endfor