Commit 1b02f728 authored by Victor Yu's avatar Victor Yu

Clean up

parent bfac082c
......@@ -679,22 +679,6 @@ subroutine elsi_set_elpa_solver_c_wrapper(h_c,solver)&
end subroutine
subroutine elsi_set_elpa_cholesky_c_wrapper(h_c,cholesky)&
bind(C,name="c_elsi_set_elpa_cholesky")
implicit none
type(c_ptr), value, intent(in) :: h_c
integer(kind=c_int), value, intent(in) :: cholesky
type(elsi_handle), pointer :: h_f
call c_f_pointer(h_c,h_f)
call elsi_set_elpa_cholesky(h_f,cholesky)
end subroutine
subroutine elsi_set_elpa_n_single_c_wrapper(h_c,n_single)&
bind(C,name="c_elsi_set_elpa_n_single")
......
......@@ -50,7 +50,6 @@ module ELSI
public :: elsi_set_illcond_abort
public :: elsi_set_csc_blk
public :: elsi_set_elpa_solver
public :: elsi_set_elpa_cholesky
public :: elsi_set_elpa_n_single
public :: elsi_set_elpa_gpu
public :: elsi_set_elpa_gpu_kernels
......
......@@ -40,7 +40,6 @@ module ELSI_MUTATOR
public :: elsi_set_illcond_abort
public :: elsi_set_csc_blk
public :: elsi_set_elpa_solver
public :: elsi_set_elpa_cholesky
public :: elsi_set_elpa_n_single
public :: elsi_set_elpa_gpu
public :: elsi_set_elpa_gpu_kernels
......@@ -374,29 +373,6 @@ subroutine elsi_set_elpa_solver(eh,solver)
end subroutine
!>
!! This routine sets whether the Cholesky factorization step in ELPA has been
!! performed externally or should be performed internally.
!!
subroutine elsi_set_elpa_cholesky(eh,cholesky)
implicit none
type(elsi_handle), intent(inout) :: eh !< Handle
integer(kind=i4), intent(in) :: cholesky !< Cholesky factorized?
character(len=*), parameter :: caller = "elsi_set_elpa_cholesky"
call elsi_check_init(eh%bh,eh%handle_init,caller)
if(cholesky == 0) then
eh%ph%elpa_first = .true.
else
eh%ph%elpa_first = .false.
end if
end subroutine
!>
!! This routine sets the number of single precision steps with ELPA.
!!
......
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