research/incomp-flame-post
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

one line log and added total file number

Browse source
This commit is contained in:
ignis 2021-02-04 16:01:25 +09:00
parent 150c2a5cfd
commit f366f6e708
1 changed files with 8 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
code/post.f90
View file

@ -279,9 +279,11 @@
REAL :: dt,dummyu
INTEGER :: ncyc
REAL*4 :: e, t(2), e0
REAL*4 :: e, t(2)
REAL*4 :: e0, t0(2)
REAL*4 :: e1, t1(2)
e0 = etime(t)
e0 = etime(t0)
OPEN(num,FORM='unformatted',STATUS='unknown')
@ -314,13 +316,11 @@
e = etime(t)
WRITE(*,'(i1,a,f8.3,a,i7,a,i5,a,f8.3,a,a,i3,a,i5,a)') &
ipass, &
' time/NCYC/savenum = ', tnow, ' /', ncyc, ' /', num, &
' took ', e-e0, " sec ", &
' || process ', myid, ' processed ', nprogress, ' files'
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)
WRITE(*,*) "Elapsed: ", e, ", User: ", t(1), ", System: ", t(2)