Commit 37da163c authored by Victor Yu's avatar Victor Yu

Add GENERIC_COO to solver conversions

parent cf975b82
......@@ -125,6 +125,9 @@ module ELSI_DATATYPE
logical :: first_blacs_to_ntpoly
logical :: first_blacs_to_pexsi
logical :: first_blacs_to_sips
logical :: first_generic_to_blacs
logical :: first_generic_to_ntpoly
logical :: first_generic_to_pexsi
logical :: first_siesta_to_blacs
logical :: first_siesta_to_pexsi
logical :: first_sips_to_blacs
......
......@@ -724,7 +724,6 @@ subroutine elsi_init_random_seed()
real(kind=r8) :: wtime
integer(kind=i4) :: i
integer(kind=i4) :: n
integer(kind=i4) :: dt(8)
integer(kind=i8) :: t
integer(kind=i4), allocatable :: seed(:)
......
......@@ -169,7 +169,6 @@ subroutine elsi_solve_pexsi_real(ph,bh,row_ind,col_ptr,ne_vec,ham,ovlp,dm)
real(kind=r8), intent(in) :: ovlp(bh%nnz_l_sp1)
real(kind=r8), intent(out) :: dm(bh%nnz_l_sp1)
real(kind=r8) :: ne_drv
real(kind=r8) :: mu_range
real(kind=r8) :: shift_width
real(kind=r8) :: local_energy
......
This diff is collapsed.
......@@ -391,6 +391,9 @@ subroutine elsi_reinit(eh)
eh%ph%first_blacs_to_ntpoly = .true.
eh%ph%first_blacs_to_pexsi = .true.
eh%ph%first_blacs_to_sips = .true.
eh%ph%first_generic_to_blacs = .true.
eh%ph%first_generic_to_ntpoly = .true.
eh%ph%first_generic_to_pexsi = .true.
eh%ph%first_siesta_to_blacs = .true.
eh%ph%first_siesta_to_pexsi = .true.
eh%ph%first_sips_to_blacs = .true.
......
......@@ -122,6 +122,9 @@ subroutine elsi_reset_param(ph)
ph%first_blacs_to_ntpoly = .true.
ph%first_blacs_to_pexsi = .true.
ph%first_blacs_to_sips = .true.
ph%first_generic_to_blacs = .true.
ph%first_generic_to_ntpoly = .true.
ph%first_generic_to_pexsi = .true.
ph%first_siesta_to_blacs = .true.
ph%first_siesta_to_pexsi = .true.
ph%first_sips_to_blacs = .true.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment