remove xdp

Author: perazz

src/stdlib_linalg_determinant.fypp

@@ -21,23 +21,28 @@ module stdlib_linalg_determinant
 
      interface det
         #:for rk,rt in RC_KINDS_TYPES
+        #:if rk!="xdp"
         ! Interface with error control
         module procedure stdlib_linalg_${rt[0]}$${rk}$determinant
         ! Pure interface
         module procedure stdlib_linalg_pure_${rt[0]}$${rk}$determinant
+        #:endif
         #:endfor
      end interface det
 
      ! Pure Operator interface 
      interface operator(.det.)
         #:for rk,rt in RC_KINDS_TYPES
+        #:if rk!="xdp"
         module procedure stdlib_linalg_pure_${rt[0]}$${rk}$determinant
+        #:endif
         #:endfor        
      end interface operator(.det.)
 
      contains
 
      #:for rk,rt in RC_KINDS_TYPES
+     #:if rk!="xdp"
      ! Compute determinant of a square matrix A: pure interface
      pure function stdlib_linalg_pure_${rt[0]}$${rk}$determinant(a) result(det)
          !> Input matrix a[m,n]
@@ -210,6 +215,7 @@ module stdlib_linalg_determinant
 
      end function stdlib_linalg_${rt[0]}$${rk}$determinant
 
+     #:endif
      #:endfor
 
 end module stdlib_linalg_determinant

test/linalg/test_linalg_determinant.fypp

@@ -22,17 +22,22 @@ module test_linalg_determinant
         allocate(tests(0))
 
         #:for rk,rt in RC_KINDS_TYPES
+        #:if rk!="xdp"
         tests = [tests,new_unittest("$eye_det_${rt[0]}$${rk}$",test_${rt[0]}$${rk}$_eye_determinant)]
         tests = [tests,new_unittest("$eye_det_multiple_${rt[0]}$${rk}$",test_${rt[0]}$${rk}$_eye_multiple)]
+        #:endif
         #:endfor
         #:for ck,ct in CMPLX_KINDS_TYPES
+        #:if ck!="xdp"
         tests = [tests,new_unittest("$complex_det_${rt[0]}$${rk}$",test_${ct[0]}$${ck}$_complex_determinant)]
+        #:endif
         #: endfor
 
     end subroutine test_matrix_determinant
 
     !> Determinant of identity matrix
     #:for rk,rt in RC_KINDS_TYPES
+    #:if rk!="xdp"
     subroutine test_${rt[0]}$${rk}$_eye_determinant(error)
         type(error_type), allocatable, intent(out) :: error
 
@@ -61,8 +66,8 @@ module test_linalg_determinant
 
         type(linalg_state_type) :: state
 
-        integer(ilp), parameter :: n = 10_ilp
-        real(${rk}$), parameter :: coef = 0.0001_${rk}$
+        integer(ilp), parameter :: n = 4_ilp
+        real(${rk}$), parameter :: coef = 0.01_${rk}$
         integer(ilp) :: i,j
         ${rt}$ :: a(n,n),deta
 
@@ -78,14 +83,15 @@ module test_linalg_determinant
         if (allocated(error)) return
 
         call check(error, abs(deta-coef**n)<max(tiny(0.0_${rk}$),epsilon(0.0_${rk}$)*coef**n), &
-                         'det(0.0001*eye(n))==0.0001^n')
+                         'det(0.01*eye(n))==0.01^n')
 
     end subroutine test_${rt[0]}$${rk}$_eye_multiple
-
+    #:endif
     #:endfor
 
     !> Determinant of complex identity matrix
     #:for ck,ct in CMPLX_KINDS_TYPES
+    #:if ck!="xdp"
     subroutine test_${ct[0]}$${ck}$_complex_determinant(error)
         type(error_type), allocatable, intent(out) :: error
 
@@ -125,6 +131,7 @@ module test_linalg_determinant
 
     end subroutine test_${ct[0]}$${ck}$_complex_determinant
 
+    #:endif
     #:endfor
 
 end module test_linalg_determinant