Commit 93b3a79a authored by Victor Yu's avatar Victor Yu

Output info when ELPA in GPU or float mode

Default is CPU and double precision.
parent 5d01d42b
......@@ -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)
......
......@@ -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
......
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