From 94c8c998dd6ce57eb1c8020981409939922ef227 Mon Sep 17 00:00:00 2001
From: Antoine Cyril David Hoffmann <ahoffman@spcpc606.epfl.ch>
Date: Mon, 14 Dec 2020 11:28:56 +0100
Subject: [PATCH] display run time in second as well at the end
---
src/basic_mod.F90 | 4 ++++
1 file changed, 4 insertions(+)
diff --git a/src/basic_mod.F90 b/src/basic_mod.F90
index 788a3aa8..494679bd 100644
--- a/src/basic_mod.F90
+++ b/src/basic_mod.F90
@@ -92,18 +92,22 @@ CONTAINS
mins = (time/3600. - days*24. - hours) * 60
secs = (time/60. - days*24.*60 - hours*60 - mins) * 60
WRITE(*,*) 'CPU Time = ', days, '[day]', hours, '[h]', mins, '[min]', secs, '[s]'
+ WRITE(*,*) '(',time,'[s])'
ELSEIF ( hours .GT. 0 ) THEN !display h min s
mins = (time/3600. - hours) * 60
secs = (time/60. - hours*60 - mins) * 60
WRITE(*,*) 'CPU Time = ', hours, '[h]', mins, '[min]', secs, '[s]'
+ WRITE(*,*) '(',time,'[s])'
ELSEIF ( mins .GT. 0 ) THEN !display min s
secs = (time/60. - mins) * 60
WRITE(*,*) 'CPU Time = ', mins, '[min]', secs, '[s]'
+ WRITE(*,*) '(',time,'[s])'
ELSE ! display s
WRITE(*,*) 'CPU Time = ', FLOOR(time), '[s]'
+
ENDIF
END SUBROUTINE display_h_min_s
!================================================================================
--
GitLab