write_out3.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv!
!                                                                      !
!  Module name: WRITE_OUT3                                             !
!  Author: M. Syamlal                                 Date: 10-JAN-92  !
!                                                                      !
!  Purpose: To write cpu and wall time used by the code                !
!                                                                      !
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^!
      SUBROUTINE write_out3(CPU, WALL, IO)

      use error_manager
      use run, only: get_tunit

      IMPLICIT NONE

      DOUBLE PRECISION, INTENT(INOUT) :: CPU
      DOUBLE PRECISION, INTENT(INOUT) :: WALL
      DOUBLE PRECISION, INTENT(INOUT) :: IO
!-----------------------------------------------
!   L o c a l   P a r a m e t e r s
!-----------------------------------------------
!-----------------------------------------------


      CHARACTER(len=4) :: UNIT_CPU
      CHARACTER(len=4) :: UNIT_WALL
      CHARACTER(len=4) :: UNIT_IO


      WRITE(err_msg, "(2/1x,70('*'))")
      CALL flush_err_msg(header=.false., footer=.false.)

      CALL get_tunit(cpu, unit_cpu)
      WRITE(err_msg, 1000) 'CPU', trim(ival(cpu)), unit_cpu
      CALL flush_err_msg(header=.false., footer=.false.)

      CALL get_tunit(io, unit_io)
      WRITE(err_msg, 1000) 'CPU IO', trim(ival(io)), unit_io
      CALL flush_err_msg(header=.false., footer=.false.)

      CALL get_tunit(wall, unit_wall)
      WRITE(err_msg, 1000) 'wall time', trim(ival(wall)), unit_wall
      CALL flush_err_msg(header=.false., footer=.false.)

      WRITE(err_msg, "(1x,70('*'))")
      CALL flush_err_msg(header=.false., footer=.false.)

 1000 FORMAT(' Total ',a,' used = ',a,1x,a)

      RETURN
      END SUBROUTINE write_out3