dc_clock::dcclockstart Interface Reference

Public Member Functions
subroutine	dcclockstart0 (clk, err)

Detailed Description

Definition at line 133 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclockstart0()

subroutine dc_clock::dcclockstart::dcclockstart0	(	type(clock), intent(inout)	clk,
		logical, intent(out), optional	err )

Start measurement

Starts 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 301 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
    !$ use omp_lib
    implicit none
    type(CLOCK), intent(inout):: clk
    logical, intent(out), optional:: err
    character(STRING):: cause_c
    integer:: stat
    character(*), parameter:: subname = 'DCClockStart'
  continue
    call beginsub(subname)
    stat = dc_noerr
    cause_c = 'CLOCK'
    if (.not. clk % initialized) then
      call messagenotify('W', subname, 'Call Create before Start in dc_clock.')
      call dbgmessage('Ignored because input argument was not initialized.')
      stat = dc_enotinit
      goto 999
    end if
    call cpu_time(clk % start_time) ! (out)
    !$ clk % start_time = omp_get_wtime()
    call dbgmessage('name=%c, cpu_time=%f', &
      & c1=trim(clk % name), d=(/clk % start_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_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-parallel/src/dc_utils/dc_clock.f90