Skip to content

Commit d929077

Browse files
committed
exclude xdp
1 parent a2afe6b commit d929077

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

src/stdlib_linalg_solve.fypp

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -22,7 +22,9 @@ module stdlib_linalg_solve
2222
interface solve
2323
#:for nd,ndsuf,nde in ALL_RHS
2424
#:for rk,rt,ri in RC_KINDS_TYPES
25+
#:if rk!="xdp"
2526
module procedure stdlib_linalg_${ri}$solve${ndsuf}$
27+
#:endif
2628
#:endfor
2729
#:endfor
2830
end interface solve
@@ -32,6 +34,7 @@ module stdlib_linalg_solve
3234

3335
#:for nd,ndsuf,nde in ALL_RHS
3436
#:for rk,rt,ri in RC_KINDS_TYPES
37+
#:if rk!="xdp"
3538
! Compute the solution to a real system of linear equations A * X = B
3639
function stdlib_linalg_${ri}$solve${ndsuf}$(a,b,overwrite_a,err) result(x)
3740
!> Input matrix a[n,n]
@@ -115,7 +118,7 @@ module stdlib_linalg_solve
115118

116119
end function stdlib_linalg_${ri}$solve${ndsuf}$
117120

118-
121+
#:endif
119122
#:endfor
120123
#:endfor
121124

0 commit comments

Comments
 (0)