dc_clock::operator(-) Interface Reference

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

Detailed Description

Definition at line 154 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclocksubtract()

type(clock) function dc_clock::operator(-)::dcclocksubtract	(	type(clock), intent(in)	clk1,
		type(clock), intent(in)	clk2 )

Subtract CLOCK variables

Subtracts clk2 from CLOCK variable clk1. Returns the difference between the CPU times of the two CLOCK variables. The name of the result is a combination of clk1 and clk2 names joined by '-'.

Parameters

[in]	clk1	First CLOCK variable (minuend)
[in]	clk2	Second CLOCK variable (subtrahend)

Returns

Difference of the two CLOCK variables

Definition at line 976 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