dc_scaledsec Module Reference

Scaled seconds module for precise time operations. 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

Scaled seconds module for precise time operations.

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

A module for correct operations of "seconds" after the decimal point, and large number more than integer type.

This module provides the derived type DC_SCALED_SEC and operators for precise operations of time values that cannot be represented accurately by standard integer or real types.

Operators and Procedures

Operator/Procedure	Description
assignment(=)	Assignment
operator(+)	Addition
operator(-)	Subtraction
operator(*)	Multiplication
operator(/)	Division
mod	Remainder
modulo	Modulo
operator(==)	Equal comparison
operator(>)	Greater than comparison
operator(<)	Less than comparison
operator(>=)	Greater than or equal comparison
operator(<=)	Less than or equal comparison
abs	Absolute value
int	Integer value (truncate fractional parts)
sign	Set sign
floor	Maximum integer not greater than given value
ceiling	Minimum integer not less than given value

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 )

Print information of DC_SCALED_SEC

Print information of sclsec. By default messages are output to standard output. Unit number for output can be changed by unit argument.

Parameters

[in]	sclsec	DC_SCALED_SEC variable to print
[in]	unit	Unit number for output. Default is standard output.
[in]	indent	Indent string for displayed messages

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: