dc_clock::stop Interface Reference

Public Member Functions
subroutine	dcclockstop0 (clk, err)

Detailed Description

Definition at line 179 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclockstop0()

subroutine dc_clock::stop::dcclockstop0	(	type(clock), intent(inout)	clk,
		logical, intent(out), optional	err
	)

Pause measurement

Pauses measurement at the point this subroutine is called.

If clk has not been initialized by DCClockCreate, an error is raised. If err is provided, .true. is returned in err and the program continues.

Parameters

[in,out]	clk	CLOCK type variable
[out]	err	Error flag (optional). .true. if error occurred.

Definition at line 355 of file dc_clock.f90.

    use dc_message, only: messagenotify
    use dc_string, only: tochar
    use dc_error, only: storeerror, dc_enotinit, dc_noerr
    use dc_date, only: evalsec, operator(+), operator(-)
    use dc_date_types, only: dc_difftime
    use dc_types, only: dp
    !$ use omp_lib
    implicit none
    type(CLOCK), intent(inout):: clk
    logical, intent(out), optional:: err
    character(STRING):: cause_c
    real(DP):: stop_time
    integer:: stat
    character(*), parameter:: subname = 'DCClockStop'
  continue
    call beginsub(subname)
    stat = dc_noerr
    cause_c = 'CLOCK'
    if (.not. clk % initialized) then
      call messagenotify('W', subname, 'Call Create before Stop in dc_clock.')
      call dbgmessage('Ignored because input argument was not initialized.')
      stat = dc_enotinit
      goto 999
    elseif (clk % start_time < 0.0_dp) then
      call messagenotify('W', subname, 'Call Start before Stop in dc_clock.')
      call dbgmessage('Ignored because input argument was not started.')
      goto 999
    end if
    call cpu_time(stop_time)
    !$ stop_time = omp_get_wtime()
    clk % elapsed_time = clk % elapsed_time + stop_time - clk % start_time
    clk % start_time = - 1.0
    call dbgmessage('name=%c, cpu_time=%f, elapsed_time=%f', &
      & c1=trim(clk % name), d=(/stop_time, clk % elapsed_time/))
999 continue
    call storeerror(stat, subname, err, cause_c)
    call endsub(subname)

---

The documentation for this interface was generated from the following file:

• /build/gtool5-1.0.0~rc5/debian/build-parallel/src/dc_utils/dc_clock.f90