File: /nfs/home/0/users/jenkins/mfix.git/model/write_out3.f
1
2
3
4
5
6
7
8
9 SUBROUTINE WRITE_OUT3(CPU, WALL, IO)
10
11 use error_manager
12
13 IMPLICIT NONE
14
15 DOUBLE PRECISION, INTENT(INOUT) :: CPU
16 DOUBLE PRECISION, INTENT(INOUT) :: WALL
17 DOUBLE PRECISION, INTENT(INOUT) :: IO
18
19
20
21
22
23
24 CHARACTER(len=4) :: UNIT_CPU
25 CHARACTER(len=4) :: UNIT_WALL
26 CHARACTER(len=4) :: UNIT_IO
27
28
29 WRITE(ERR_MSG, "(2/1x,70('*'))")
30 CALL FLUSH_ERR_MSG(HEADER=.FALSE., FOOTER=.FALSE.)
31
32 CALL GET_TUNIT(CPU, UNIT_CPU)
33 WRITE(ERR_MSG, 1000) 'CPU', trim(iVal(CPU)), UNIT_CPU
34 CALL FLUSH_ERR_MSG(HEADER=.FALSE., FOOTER=.FALSE.)
35
36 CALL GET_TUNIT(IO, UNIT_IO)
37 WRITE(ERR_MSG, 1000) 'CPU IO', trim(iVal(IO)), UNIT_IO
38 CALL FLUSH_ERR_MSG(HEADER=.FALSE., FOOTER=.FALSE.)
39
40 CALL GET_TUNIT(WALL, UNIT_WALL)
41 WRITE(ERR_MSG, 1000) 'wall time', trim(iVal(WALL)), UNIT_WALL
42 CALL FLUSH_ERR_MSG(HEADER=.FALSE., FOOTER=.FALSE.)
43
44 WRITE(ERR_MSG, "(1x,70('*'))")
45 CALL FLUSH_ERR_MSG(HEADER=.FALSE., FOOTER=.FALSE.)
46
47 1000 FORMAT(' Total ',A,' used = ',A,1x,A)
48
49 RETURN
50 END SUBROUTINE WRITE_OUT3
51