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 )

CLOCK 変数を引き算する

CLOCK 変数 clk1 から clk2 を引きます。 1 つ目の CLOCK 変数の CPU 時間と 2 つ目の CLOCK 変数の CPU 時間との差を CLOCK 変数として返します。計測内容の名称は clk1 と clk2 の名称を '-' で組み合わせたものとなります。

Parameters

[in]	clk1	1つ目の CLOCK 変数 (被減数)
[in]	clk2	2つ目の CLOCK 変数 (減数)

Returns

2 つの CLOCK 変数の差

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