Skip to content

Commit 29eeec2

Browse files
committed
public qp interfaces
1 parent 3e8c5b6 commit 29eeec2

File tree

1 file changed

+4
-1
lines changed

1 file changed

+4
-1
lines changed

src/stdlib_linalg_lapack_aux.fypp

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -57,15 +57,18 @@ module stdlib_linalg_lapack_aux
5757
public :: stdlib_select_s
5858
public :: stdlib_selctg_d
5959
public :: stdlib_select_d
60+
#:if WITH_QP
6061
public :: stdlib_selctg_q
6162
public :: stdlib_select_q
63+
#:endif
6264
public :: stdlib_selctg_c
6365
public :: stdlib_select_c
6466
public :: stdlib_selctg_z
6567
public :: stdlib_select_z
68+
#:if WITH_QP
6669
public :: stdlib_selctg_w
6770
public :: stdlib_select_w
68-
71+
#:endif
6972
! SELCTG is a LOGICAL FUNCTION of three DOUBLE PRECISION arguments
7073
! used to select eigenvalues to sort to the top left of the Schur form.
7174
! An eigenvalue (ALPHAR(j)+ALPHAI(j))/BETA(j) is selected if SELCTG is true, i.e.,

0 commit comments

Comments
 (0)