forked from spack/spack
-
Notifications
You must be signed in to change notification settings - Fork 0
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
espresso: fixed compilation for 6.1 (elpa) and added support for hdf5 (…
…spack#4483) * espresso: fixed compilation for 6.1 (elpa) and added support for hdf5 * espresso: addressed items in @davydden review * espresso: fixed behavior for espresso@:5.4.0
- Loading branch information
1 parent
df6d8d9
commit 9defe2c
Showing
3 changed files
with
113 additions
and
43 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
42 changes: 42 additions & 0 deletions
42
var/spack/repos/builtin/packages/espresso/dspev_drv_elpa.patch
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,42 @@ | ||
diff -ruN LAXlib-orig/dspev_drv.f90 LAXlib/dspev_drv.f90 | ||
--- a/LAXlib/dspev_drv.f90 2017-06-12 15:00:46.157372185 +0200 | ||
+++ b/LAXlib/dspev_drv.f90 2017-06-12 15:01:19.937371580 +0200 | ||
@@ -708,11 +708,11 @@ | ||
|
||
#if defined(__ELPA_2016) | ||
! -> ELPA 2016.11.001_pre | ||
- ierr = elpa_get_communicators(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
- success = solve_evp_real_1stage(n, n, s, lds, w, vv, lds,SIZE(s,2),nb ,mpi_comm_rows, mpi_comm_cols, ortho_comm) | ||
+ !ierr = elpa_get_communicators(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
+ !success = solve_evp_real_1stage(n, n, s, lds, w, vv, lds,SIZE(s,2),nb ,mpi_comm_rows, mpi_comm_cols, ortho_comm) | ||
! -> ELPA 2016.05.003 | ||
- !ierr = get_elpa_row_col_comms(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
- !success = solve_evp_real_1stage(n, n, s, lds, w, vv, lds,SIZE(s,2),nb ,mpi_comm_rows, mpi_comm_cols) | ||
+ ierr = get_elpa_row_col_comms(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
+ success = solve_evp_real_1stage(n, n, s, lds, w, vv, lds,SIZE(s,2),nb ,mpi_comm_rows, mpi_comm_cols) | ||
#elif defined(__ELPA_2015) | ||
ierr = get_elpa_row_col_comms(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
ierr = solve_evp_real(n, n, s, lds, w, vv, lds,SIZE(s,2),nb ,mpi_comm_rows, mpi_comm_cols) | ||
diff -ruN LAXlib-orig/zhpev_drv.f90 LAXlib/zhpev_drv.f90 | ||
--- a/LAXlib/zhpev_drv.f90 2017-06-12 15:00:46.157372185 +0200 | ||
+++ b/LAXlib/zhpev_drv.f90 2017-06-12 15:02:09.309370696 +0200 | ||
@@ -1519,13 +1519,13 @@ | ||
|
||
#if defined(__ELPA_2016) | ||
! -> ELPA 2016.11.001_pre | ||
- ierr = elpa_get_communicators(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
- success = solve_evp_complex_1stage_double(n, n, h, size(h,1), w, v, size(h,1), size(h,2), nb, & | ||
- mpi_comm_rows, mpi_comm_cols, ortho_comm) | ||
+ !ierr = elpa_get_communicators(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
+ !success = solve_evp_complex_1stage_double(n, n, h, size(h,1), w, v, size(h,1), size(h,2), nb, & | ||
+ ! mpi_comm_rows, mpi_comm_cols, ortho_comm) | ||
! -> ELPA 2016.05.003 | ||
- !ierr = get_elpa_row_col_comms(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
- !success = solve_evp_complex(n, n, h, size(h,1), w, v, size(h,1), size(h,2), nb, & | ||
- ! mpi_comm_rows, mpi_comm_cols) | ||
+ ierr = get_elpa_row_col_comms(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
+ success = solve_evp_complex(n, n, h, size(h,1), w, v, size(h,1), size(h,2), nb, & | ||
+ mpi_comm_rows, mpi_comm_cols) | ||
#elif defined(__ELPA_2015) | ||
ierr = get_elpa_row_col_comms(ortho_comm, my_prow, my_pcol,mpi_comm_rows, mpi_comm_cols) | ||
ierr = solve_evp_complex(n, n, h, size(h,1), w, v, size(h,1), size(h,2), nb, & |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters