dc_clock::putline Interface Reference

Public Member Functions
subroutine	dcclockputline0 (clk, unit, indent, err)

Detailed Description

Definition at line 178 of file dc_clock.f90.

Member Function/Subroutine Documentation

dcclockputline0()

subroutine dc_clock::putline::dcclockputline0	(	type(clock), intent(in)	clk,
		integer, intent(in), optional	unit,
		character(*), intent(in), optional	indent,
		logical, intent(out), optional	err )

構造型 CLOCK 変数の情報を表示

構造型 CLOCK 変数に関する情報を表示します。unit には出力先の装置番号を 与えてください。unit を与えない場合、標準出力へ表示されます。

clk に対して DCClockCreate による初期化が行われていない場合、 エラーを発生させます。err を与える場合には err に .true. が返り、 プログラムは続行されます。

Parameters

[in]	clk	CLOCK 型変数
[in]	unit	出力先装置番号 (省略可)。デフォルト: 標準出力。
[in]	indent	表示されるメッセージの字下げ (省略可)
[out]	err	エラーフラグ (省略可)。エラー時に .true.。

Definition at line 604 of file dc_clock.f90.

    use dc_types, only: stdout
    use dc_message, only: messagenotify
    use dc_string, only: printf, tochar, cprintf
    use dc_date, only: evalsec, evalday, tochar
    use dc_error, only: storeerror, dc_enotinit, dc_noerr
    use dc_types, only: dp
    implicit none
    type(CLOCK), intent(in):: clk
    integer, intent(in), optional:: unit
    character(*), intent(in), optional:: indent
    logical, intent(out), optional:: err
    integer:: out_unit
    character(STRING):: cause_c
    integer:: stat
    integer:: indent_len
    character(STRING):: indent_str
    character(*), parameter:: subname = 'DCClockPutLine'
  continue
    call beginsub(subname)
    stat = dc_noerr
    cause_c = 'CLOCK'
    if (.not. clk % initialized) then
      call messagenotify('W', subname, 'Call Create before PutLine in dc_clock.')
      call dbgmessage('Ignored because input argument was not initialized.')
      stat = dc_enotinit
      goto 999
    end if
    if (present(unit)) then
      out_unit = unit
    else
      out_unit = stdout
    end if
    indent_len = 0
    indent_str = ''
    if (present(indent)) then
      if (len(indent) /= 0) then
        indent_len = len(indent)
        indent_str(1:indent_len) = indent
      end if
    end if
    call printf(out_unit, &
      & indent_str(1:indent_len) // &
      & '#<CLOCK:: @name=%c @clocking=%y @elapsed_time=%f sec. %c @start_date=%c>', &
      & c1=trim(clk % name), l=(/clk % start_time > 0.0_dp/), &
      & d=(/clk % elapsed_time/), &
      & c2=trim(fit_unit_value(clk % elapsed_time)), &
      & c3=trim(tochar(clk % start_date)))
    call dbgmessage('name=%c, output to device number %d', &
      & c1=trim(clk % name), i=(/out_unit/))
999 continue
    call storeerror(stat, subname, err, cause_c)
    call endsub(subname)

---

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