Skip to content

Testing: initialize ISPEC=9 before running DMD tests #1228

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
langou merged 1 commit into from
Apr 15, 2026
Merged

Testing: initialize ISPEC=9 before running DMD tests #1228

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
8 changes: 4 additions & 4 deletions TESTING/EIG/CMakeLists.txt
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -111,22 +111,22 @@ endmacro()

if(BUILD_SINGLE)
add_eig_executable(xeigtsts ${SEIGTST} ${SCIGTST} ${AEIGTST})
add_eig_executable(xdmdeigtsts ${SDMDEIGTST})
add_eig_executable(xdmdeigtsts ${SDMDEIGTST} ${AEIGTST})
endif()

if(BUILD_COMPLEX)
add_eig_executable(xeigtstc ${CEIGTST} ${SCIGTST} ${AEIGTST})
add_eig_executable(xdmdeigtstc ${CDMDEIGTST})
add_eig_executable(xdmdeigtstc ${CDMDEIGTST} ${AEIGTST})
endif()


if(BUILD_DOUBLE)
add_eig_executable(xeigtstd ${DEIGTST} ${DZIGTST} ${AEIGTST})
add_eig_executable(xdmdeigtstd ${DDMDEIGTST})
add_eig_executable(xdmdeigtstd ${DDMDEIGTST} ${AEIGTST})
endif()

if(BUILD_COMPLEX16)
add_eig_executable(xeigtstz ${ZEIGTST} ${DZIGTST} ${AEIGTST})
add_eig_executable(xdmdeigtstz ${ZDMDEIGTST})
add_eig_executable(xdmdeigtstz ${ZDMDEIGTST} ${AEIGTST})
add_eig_executable(test_wq_zrwork test_wq_rwork.f)
endif()
8 changes: 4 additions & 4 deletions TESTING/EIG/Makefile
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -135,16 +135,16 @@ complex: xeigtstc xdmdeigtstc
double: xeigtstd xdmdeigtstd
complex16: xeigtstz xdmdeigtstz

xdmdeigtsts: $(SDMDEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
xdmdeigtsts: $(SDMDEIGTST) $(AEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^

xdmdeigtstc: $(CDMDEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
xdmdeigtstc: $(CDMDEIGTST) $(AEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^

xdmdeigtstd: $(DDMDEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
xdmdeigtstd: $(DDMDEIGTST) $(AEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^

xdmdeigtstz: $(ZDMDEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
xdmdeigtstz: $(ZDMDEIGTST) $(AEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
$(FC) $(FFLAGS) $(LDFLAGS) -o $@ $^

xeigtsts: $(SEIGTST) $(SCIGTST) $(AEIGTST) $(TMGLIB) $(LAPACKLIB) $(BLASLIB)
Expand Down
4 changes: 3 additions & 1 deletion TESTING/EIG/cchkdmd.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -82,7 +82,7 @@ PROGRAM DMD_TEST
LOGICAL :: TEST_QRDMD

!..... external subroutines (BLAS and LAPACK)
EXTERNAL CAXPY, CGEEV, CGEMM, CGEMV, CLASCL
EXTERNAL CAXPY, CGEEV, CGEMM, CGEMV, CLASCL, XLAENV
!.....external subroutines DMD package
! subroutines under test
EXTERNAL CGEDMD, CGEDMDQ
Expand Down Expand Up @@ -112,6 +112,8 @@ PROGRAM DMD_TEST

WANTQ = 'Q'
WANTR = 'R'
! Initialize the divide-and-conquer cutoff used by xGESDD/xBDSDC.
CALL XLAENV( 9, 25 )
!.................................................................................

EPS = SLAMCH( 'P' ) ! machine precision WP
Expand Down
4 changes: 3 additions & 1 deletion TESTING/EIG/dchkdmd.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -95,7 +95,7 @@ PROGRAM DMD_TEST
LOGICAL TEST_QRDMD
!..... external subroutines (BLAS and LAPACK)
EXTERNAL DAXPY, DGEEV, DGEMM, DGEMV, DLACPY, DLASCL
EXTERNAL DLARNV, DLATMR
EXTERNAL DLARNV, DLATMR, XLAENV
!.....external subroutines DMD package, part 1
! subroutines under test
EXTERNAL DGEDMD, DGEDMDQ
Expand All @@ -118,6 +118,8 @@ PROGRAM DMD_TEST
! be performed with xGEDMDQ.
WANTQ = 'Q'
WANTR = 'R'
! Initialize the divide-and-conquer cutoff used by xGESDD/xBDSDC.
CALL XLAENV( 9, 25 )
!.................................................................................

EPS = DLAMCH( 'P' ) ! machine precision DP
Expand Down
4 changes: 3 additions & 1 deletion TESTING/EIG/schkdmd.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -95,7 +95,7 @@ PROGRAM DMD_TEST
LOGICAL TEST_QRDMD
!..... external subroutines (BLAS and LAPACK)
EXTERNAL SAXPY, SGEEV, SGEMM, SGEMV, SLACPY, SLASCL
EXTERNAL SLARNV, SLATMR
EXTERNAL SLARNV, SLATMR, XLAENV
!.....external subroutines DMD package, part 1
! subroutines under test
EXTERNAL SGEDMD, SGEDMDQ
Expand All @@ -118,6 +118,8 @@ PROGRAM DMD_TEST
! be performed with xGEDMDQ.
WANTQ = 'Q'
WANTR = 'R'
! Initialize the divide-and-conquer cutoff used by xGESDD/xBDSDC.
CALL XLAENV( 9, 25 )
!.................................................................................

EPS = SLAMCH( 'P' ) ! machine precision SP
Expand Down
4 changes: 3 additions & 1 deletion TESTING/EIG/zchkdmd.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -86,7 +86,7 @@ PROGRAM DMD_TEST
!.....external subroutines (BLAS and LAPACK)
EXTERNAL DAXPY, DGEEV, DGEMM, DGEMV, DLACPY, DLASCL
EXTERNAL ZGEEV, ZGEMV, ZLASCL
EXTERNAL ZLARNV, ZLATMR
EXTERNAL ZLARNV, ZLATMR, XLAENV
EXTERNAL ZAXPY, ZGEMM
!.....external subroutines DMD package, part 1
! subroutines under test
Expand All @@ -112,6 +112,8 @@ PROGRAM DMD_TEST
! be performed with xGEDMDQ.
WANTQ = 'Q'
WANTR = 'R'
! Initialize the divide-and-conquer cutoff used by xGESDD/xBDSDC.
CALL XLAENV( 9, 25 )
!.................................................................................

EPS = DLAMCH( 'P' ) ! machine precision DP
Expand Down
Loading