File: /nfs/home/0/users/jenkins/mfix.git/model/write_out3.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
2     !                                                                      !
3     !  Module name: WRITE_OUT3                                             !
4     !  Author: M. Syamlal                                 Date: 10-JAN-92  !
5     !                                                                      !
6     !  Purpose: To write cpu and wall time used by the code                !
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     !   L o c a l   P a r a m e t e r s
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