Output info when ELPA in GPU or float mode

Default is CPU and double precision.

CMakeLists.txt

@@ -7,7 +7,7 @@ SET(elsi_URL "http://elsi-interchange.org")
 SET(elsi_EMAIL "elsi-team@duke.edu")
 SET(elsi_LICENSE "BSD 3")
 SET(elsi_DESCRIPTION "Electronic Structure Infrastructure")
-SET(elsi_DATESTAMP "20200612")
+SET(elsi_DATESTAMP "20200615")
 
 ### CMake modules ###
 LIST(APPEND CMAKE_MODULE_PATH ${PROJECT_SOURCE_DIR}/cmake)

src/elsi_elpa.f90

@@ -358,7 +358,19 @@ subroutine elsi_solve_elpa_real(ph,bh,ham,ovlp,eval,evec)
       call elsi_check_ovlp_elpa(ph,bh,ovlp,eval,evec)
    end if
 
-   write(msg,"(A)") "Starting ELPA eigensolver"
+   if(ph%elpa_gpu == 1) then
+      if(ph%n_calls <= ph%elpa_n_single) then
+         write(msg,"(A)") "Starting ELPA eigensolver (GPU single precision)"
+      else
+         write(msg,"(A)") "Starting ELPA eigensolver (GPU)"
+      end if
+   else
+      if(ph%n_calls <= ph%elpa_n_single) then
+         write(msg,"(A)") "Starting ELPA eigensolver (single precision)"
+      else
+         write(msg,"(A)") "Starting ELPA eigensolver"
+      end if
+   end if
    call elsi_say(bh,msg)
 
    ! Transform to standard form
@@ -729,7 +741,19 @@ subroutine elsi_solve_elpa_cmplx(ph,bh,ham,ovlp,eval,evec)
       call elsi_check_ovlp_elpa(ph,bh,ovlp,eval,evec)
    end if
 
-   write(msg,"(A)") "Starting ELPA eigensolver"
+   if(ph%elpa_gpu == 1) then
+      if(ph%n_calls <= ph%elpa_n_single) then
+         write(msg,"(A)") "Starting ELPA eigensolver (GPU single precision)"
+      else
+         write(msg,"(A)") "Starting ELPA eigensolver (GPU)"
+      end if
+   else
+      if(ph%n_calls <= ph%elpa_n_single) then
+         write(msg,"(A)") "Starting ELPA eigensolver (single precision)"
+      else
+         write(msg,"(A)") "Starting ELPA eigensolver"
+      end if
+   end if
    call elsi_say(bh,msg)
 
    ! Transform to standard form