Commit f76c451c authored by Matthias Redies's avatar Matthias Redies

make runtime a real number

parent 55cc1f8e
......@@ -298,7 +298,7 @@ CONTAINS
globaltimer%starttime=-1
ENDIF
WRITE(fn,"('Total execution time: ',i0,'sec')") INT(globaltimer%time)
CALL add_usage_data("Runtime",INT(globaltimer%time))
CALL add_usage_data("Runtime",globaltimer%time)
CALL priv_writetimes_longest(globaltimer,fid=fn)
WRITE(fn,"('Total execution time: ',i0,'sec, minimal timing printed:',i0,'sec')") &
......
......@@ -13,7 +13,7 @@ MODULE m_judft_usage
INTEGER :: no_keys=0
INTERFACE add_usage_data
MODULE PROCEDURE add_usage_data_s,add_usage_data_i,add_usage_data_l
MODULE PROCEDURE add_usage_data_s,add_usage_data_i,add_usage_data_l,add_usage_data_r
END INTERFACE add_usage_data
PUBLIC :: add_usage_data,send_usage_data
......@@ -37,6 +37,16 @@ CONTAINS
WRITE(txt,*) VALUE
CALL add_usage_data_s(key,txt)
END SUBROUTINE add_usage_data_i
SUBROUTINE add_usage_data_r(key,VALUE)
IMPLICIT NONE
CHARACTER(len=*),INTENT(IN):: key
REAL,intent(in) :: value
CHARACTER(len=20)::txt
WRITE(txt,'(F18.2)') VALUE
CALL add_usage_data_s(key,txt)
END SUBROUTINE add_usage_data_r
SUBROUTINE add_usage_data_l(key,VALUE)
IMPLICIT NONE
......
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