dc_clock::dcclockstop Interface Reference

Public Member Functions
subroutine	dcclockstop0 (clk, err)

Detailed Description

Definition at line 132 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclockstop0()

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

計測の一時停止

このサブルーチンを呼んだ時点で計測を一時停止します。

clk に対して DCClockCreate による初期化が行われていない場合、 エラーを発生させます。err を与える場合には err に .true. が返り、 プログラムは続行されます。

Parameters

[in,out]	clk	CLOCK 型変数
[out]	err	エラーフラグ (省略可)。エラー時に .true.。

Definition at line 351 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)

References dc_trace::beginsub(), dc_trace::dbgmessage(), dc_error::dc_enotinit, dc_error::dc_noerr, dc_types::dp, dc_trace::endsub(), and dc_error::storeerror().

Here is the call graph for this function:

---

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

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