phynexis-deps/lapack
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #1228 from ndingle-arm/dmd-patch

Browse Source 
Testing: initialize ISPEC=9 before running DMD tests
This commit is contained in:
langou
2026-04-15 06:48:15 -06:00
committed by GitHub
parent f6fb1114ab 88e91a5f23
commit eb4f2b1d7f
6 changed files with 20 additions and 12 deletions
Download Patch File Download Diff File Expand all files Collapse all files
TESTING/EIG/CMakeLists.txt
+4 -4
View File
@@ -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()
TESTING/EIG/Makefile
+4 -4
View File
@@ -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)
TESTING/EIG/cchkdmd.f90
+3 -1
View File
@@ -82,7 +82,7 @@
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
@@ -112,6 +112,8 @@
WANTQ = 'Q'
WANTR = 'R'
! Initialize the divide-and-conquer cutoff used by xGESDD/xBDSDC.
CALL XLAENV( 9, 25 )
!.................................................................................
EPS = SLAMCH( 'P' ) ! machine precision WP
TESTING/EIG/dchkdmd.f90
+3 -1
View File
@@ -95,7 +95,7 @@
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
@@ -118,6 +118,8 @@
! 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
TESTING/EIG/schkdmd.f90
+3 -1
View File
@@ -95,7 +95,7 @@
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
@@ -118,6 +118,8 @@
! 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
TESTING/EIG/zchkdmd.f90
+3 -1
View File
@@ -86,7 +86,7 @@
!.....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
@@ -112,6 +112,8 @@
! 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