dc_scaledsec Module Reference

精密な時間演算のための秒スケールモジュール More...

Data Types
interface	abs
interface	assignment(=)
interface	ceiling
type	dc_scaled_sec
interface	floor
interface	int
interface	mod
interface	modulo
interface	operator(*)
interface	operator(+)
interface	operator(-)
interface	operator(/)
interface	operator(<)
interface	operator(<=)
interface	operator(==)
interface	operator(>)
interface	operator(>=)
interface	sign

Functions/Subroutines
subroutine, public	dcscaledsecputline (sclsec, unit, indent)

Detailed Description

精密な時間演算のための秒スケールモジュール

Author

Youhei SASAKI, Yasuhiro MORIKAWA

Copyright

Copyright (C) GFD Dennou Club, 2008-2026. All rights reserved.
License is BSD-2-Clause. see COPYRIGHT in detail

Function/Subroutine Documentation

dcscaledsecputline()

subroutine, public dc_scaledsec::dcscaledsecputline	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in), optional	unit,
		character(*), intent(in), optional	indent
	)

DC_SCALED_SEC の情報を印字

引数 sclsec に設定されている情報を印字します. デフォルトではメッセージは標準出力に出力されます. unit に装置番号を指定することで, 出力先を変更することが可能です.

Parameters

[in]	sclsec	印字する DC_SCALED_SEC 型変数
[in]	unit	出力先の装置番号. デフォルトは標準出力.
[in]	indent	表示されるメッセージの字下げ

Definition at line 428 of file dc_scaledsec.f90.

    use dc_string, only: printf, tochar
    use dc_trace, only: beginsub, endsub
    use dc_types, only: stdout, string
    implicit none
    type(DC_SCALED_SEC), intent(in) :: sclsec
    integer, intent(in), optional :: unit
    character(*), intent(in), optional:: indent 
 
    integer :: out_unit, sec_ary_rev(imin:imax)
    integer:: indent_len
    character(STRING):: indent_str
    character(1):: sign
  continue
    !call BeginSub(subname)
 
    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
 
    sec_ary_rev(imin:imax) = sclsec % sec_ary(imax:imin:-1)
    if ( sclsec % flag_negative ) then
      sign = '-'
    else
      sign = '+'
    end if
    if ( imax - imin + 1 == 6 ) then
      call printf(out_unit, &
        & indent_str(1:indent_len) // &
        & '#<DC_SCALED_SEC:: @sign=%c @yotta=%d @exa=%d @tera=%d @mega=%d @base=%d @micro=%d>', &
        & i = sec_ary_rev, c1 = sign )
    elseif ( imax - imin + 1 == 11 ) then
      call printf(out_unit, &
        & indent_str(1:indent_len) // &
        & '#<DC_SCALED_SEC:: @sign=%c @yotta=%d @zetta=%d @exa=%d @peta=%d @tera=%d', &
        & i = sec_ary_rev(imin:imin+4), c1 = sign )
      call printf(out_unit, &
        & indent_str(1:indent_len) // &
        & '                          @giga=%d @mega=%d @kilo=%d @base=%d @milli=%d @micro=%d>', &
        & i = sec_ary_rev(imax-5:imax) )
    else
      call printf(out_unit, &
        & indent_str(1:indent_len) // &
        & '#<DC_SCALED_SEC:: @sign=%c @sec_ary=%*d>', &
        & i = sec_ary_rev, n = (/ imax - imin + 1 /), c1 = sign )
    end if
    !call EndSub(subname)

References dc_trace::beginsub(), dc_trace::endsub(), dc_types::stdout, and dc_types::string.

Here is the call graph for this function: