dc_clock::tochar Interface Reference

Private Member Functions
character(string) function	dcclocktochar0 (clk)

Detailed Description

Definition at line 199 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclocktochar0()

character(string) function dc_clock::tochar::dcclocktochar0 ( type(clock), intent(in)  clk )

private

Definition at line 443 of file dc_clock.f90.

    !
    !=== CPU 時間を適当に整形して文字型変数に変換
    !
    ! CPU 時間に関して適当に整形を行い, 文字型変数に変換して返します.
    !
    ! 第一引数 *clk* に対して DCClockCreate
    ! による初期化が行われていない場合, 空文字が返ります.
    !
    use dc_string, only: cprintf
    use dc_date, only: evalsec
    implicit none
    type(clock), intent(in):: clk
    character(STRING):: result
    character(20):: clk_name
  continue
    clk_name = clk % name
    if (clk % initialized) then
      result = cprintf(' %c%c  %c', c1 = clk_name, &
        & c2=trim(result_value_form(clk % elapsed_time)), &
        & c3=trim(fit_unit_value(clk % elapsed_time)))
    else
      result = ''
    end if

---

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

• dc_utils/dc_clock.f90