dc_scaledsec Module Reference

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

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

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

小数点以下の「秒」や整数型では表現できない大きい数を 正確に演算するためのモジュールです.

このモジュールは派生型 DC_SCALED_SEC と、標準の整数型や実数型では 正確に表現できない時間値を精密に演算するための演算子を提供します.

演算子・手続一覧

演算子/手続	説明
assignment(=)	代入
operator(+)	加算
operator(-)	減算
operator(*)	乗算
operator(/)	除算
mod	余り
modulo	剰余
operator(==)	等値比較
operator(>)	大なり比較
operator(<)	小なり比較
operator(>=)	以上比較
operator(<=)	以下比較
abs	絶対値の算出
int	整数の算出 (小数点以下切捨て)
sign	符号の設定
floor	整数の算出 (対象の数値以下で最大の整数)
ceiling	整数の算出 (対象の数値以上で最小の整数)

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: