Commit 41c649b8 authored by Matthias Redies's avatar Matthias Redies

include diagonalization info and avoid duplicates

parent 5dcb2554
......@@ -66,6 +66,7 @@ CONTAINS
USE m_types_gpumat
USE m_matrix_copy
USE m_cusolver_diag
USE m_judft_usage
IMPLICIT NONE
#ifdef CPP_MPI
include 'mpif.h'
......@@ -108,6 +109,7 @@ CONTAINS
CALL timestart("Diagonalization")
!Select the solver
CALL add_usage_data("diag-solver", priv_select_solver(parallel))
SELECT CASE (priv_select_solver(parallel))
CASE (diag_elpa)
CALL elpa_diag(hmat,smat,ne,eig,ev)
......
......@@ -21,7 +21,14 @@ MODULE m_judft_usage
CONTAINS
SUBROUTINE add_usage_data_s(key,VALUE)
IMPLICIT NONE
CHARACTER(len=*),INTENT(IN)::key,VALUE
CHARACTER(len=*),INTENT(IN) :: key,VALUE
INTEGER :: i
! don't add a key twice
do i = 1,no_keys
if(keys(i) == key) return
enddo
no_keys=no_keys+1
IF (no_keys>MAX_NO_KEYS) STOP "BUG, too many keys in usage_data"
keys(no_keys) =key
......
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