run_test18 Subroutine

subroutine run_test18(ut)

Arguments

Type IntentOptional Attributes Name
type(unit_test), intent(inout) :: ut

Calls

proc~~run_test18~~CallsGraph proc~run_test18 run_test18 check check proc~run_test18->check proc~ctimer_start timer%ctimer_start proc~run_test18->proc~ctimer_start proc~ctimer_stop timer%ctimer_stop proc~run_test18->proc~ctimer_stop proc~ctimer_write timer%ctimer_write proc~run_test18->proc~ctimer_write proc~finalize_timing finalize_timing proc~ctimer_stop->proc~finalize_timing proc~write_to_file write_to_file proc~ctimer_write->proc~write_to_file proc~print_time print_time proc~finalize_timing->proc~print_time colorize colorize proc~print_time->colorize

Called by

proc~~run_test18~~CalledByGraph proc~run_test18 run_test18 program~check check program~check->proc~run_test18

Source Code

   subroutine run_test18(ut)
      type(unit_test), intent(inout) :: ut
      type(timer) :: t
      integer :: nl
      integer, parameter :: nloops = 3

      call t%ctimer_start()
      do nl = 1, nloops
         call sleep(1)
      end do
      call t%ctimer_stop(message = 'CPU time:', print=.false.)
      call t%ctimer_write('test/test18_ctimes.txt')

      call ut%check(res=t%cpu_time >= 0.0_rk, expected=.true., msg='test18')
   end subroutine run_test18