dc_clock::operator(+) Interface Reference

Public Member Functions
type(clock) function	dcclockadd (clk1, clk2)

Detailed Description

Definition at line 151 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclockadd()

type(clock) function dc_clock::operator(+)::dcclockadd	(	type(clock), intent(in)	clk1,
		type(clock), intent(in)	clk2
	)

Add CLOCK variables

Adds CLOCK variables clk1 and clk2. Sums the CPU times of the two given CLOCK variables and returns as CLOCK. The name of the result is a combination of clk1 and clk2 names joined by '+'.

Parameters

[in]	clk1	First CLOCK variable
[in]	clk2	Second CLOCK variable

Returns

Sum of the two CLOCK variables

Definition at line 927 of file dc_clock.f90.

    use dc_string, only: cprintf
    use dc_date, only: operator(+), operator(<)
    implicit none
    type(CLOCK), intent(in):: clk1
    type(CLOCK), intent(in):: clk2
    type(CLOCK):: clk_total
  continue
    if (.not. clk1 % initialized .or. .not. clk2 % initialized) then
      clk_total % initialized = .false.
      return
    end if
    clk_total % name = cprintf('%c+%c', &
      & c1=trim(clk1 % name), c2=trim(clk2 % name))
    clk_total % start_time = - 1.0
    clk_total % initialized = .true.
    clk_total % elapsed_time = 0.0
    if (clk1 % start_date < clk2 % start_date) then
      clk_total % start_date = clk1 % start_date
    else
      clk_total % start_date = clk2 % start_date
    end if
    clk_total % elapsed_time = &
      & clk1 % elapsed_time + clk2 % elapsed_time

---

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