diff --git a/code/post.f90 b/code/post.f90
index 607f63f..3ea3b19 100644
--- a/code/post.f90
+++ b/code/post.f90
@@ -279,6 +279,9 @@
       REAL :: dt,dummyu
       INTEGER :: ncyc
 
+      integer(8) :: ctime_i
+      character(len=30) :: date
+
       REAL*4 :: e, t(2)
       REAL*4 :: e0, t0(2)
       REAL*4 :: e1, t1(2)
@@ -316,10 +319,12 @@
 
       e = etime(t)
 
-      WRITE(*,'(a,i2,a,i1,a,i4,a,i4,a,i4,a,f8.2,a,f8.2,a,f8.2)')    &
-      "PID", myid, "|PASS", ipass, "|fort.", num,                   &
-      "|", nprogress, "/", endnum-startnum+1,                       &
-      "|E:", e, "|U:", t(1), "|S:", t(2)
+      ctime_i = time8()
+      call ctime(ctime_i,date)
+
+      WRITE(*,'(a,a,i2,a,i1,a,i4,a,i4,a,i4)')    &
+      date, "PID", myid, "|PASS", ipass, "|fort.", num,                   &
+      "|", nprogress, "/", endnum-startnum+1