include diagonalization info and avoid duplicates

diagonalization/eigen_diag.F90

@@ -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)

juDFT/usage_data.F90

@@ -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