diff --git a/TESTING/EIG/CMakeLists.txt b/TESTING/EIG/CMakeLists.txt index 66ead8798..90937a796 100644 --- a/TESTING/EIG/CMakeLists.txt +++ b/TESTING/EIG/CMakeLists.txt @@ -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() diff --git a/TESTING/EIG/Makefile b/TESTING/EIG/Makefile index 5de315b6e..8eb33c9de 100644 --- a/TESTING/EIG/Makefile +++ b/TESTING/EIG/Makefile @@ -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) diff --git a/TESTING/EIG/cchkdmd.f90 b/TESTING/EIG/cchkdmd.f90 index 878b672d5..f8aa19a30 100644 --- a/TESTING/EIG/cchkdmd.f90 +++ b/TESTING/EIG/cchkdmd.f90 @@ -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 diff --git a/TESTING/EIG/dchkdmd.f90 b/TESTING/EIG/dchkdmd.f90 index a02010671..a2b996628 100644 --- a/TESTING/EIG/dchkdmd.f90 +++ b/TESTING/EIG/dchkdmd.f90 @@ -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 diff --git a/TESTING/EIG/schkdmd.f90 b/TESTING/EIG/schkdmd.f90 index 6f170d6c9..ce0166763 100644 --- a/TESTING/EIG/schkdmd.f90 +++ b/TESTING/EIG/schkdmd.f90 @@ -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 diff --git a/TESTING/EIG/zchkdmd.f90 b/TESTING/EIG/zchkdmd.f90 index 99fdb66c1..09c34f868 100644 --- a/TESTING/EIG/zchkdmd.f90 +++ b/TESTING/EIG/zchkdmd.f90 @@ -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