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

include diagonalization info and avoid duplicates

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