dc_scaledsec::ceiling Interface Reference

Private Member Functions
type(dc_scaled_sec) function	dcscaledsec_ceiling_s (sclsec)

Detailed Description

Definition at line 191 of file dc_scaledsec.f90.

Member Function/Subroutine Documentation

dcscaledsec_ceiling_s()

type(dc_scaled_sec) function dc_scaledsec::ceiling::dcscaledsec_ceiling_s ( type(dc_scaled_sec), intent(in)  sclsec )

private

Definition at line 2017 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の整数値 (対象の数値以上で最小の整数) を返す. 
    ! 
    ! Return an integer value (minimum integer over the given value) 
    ! of a "DC_SCALED_SEC" variable
    !
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    integer:: i
    logical:: flag_after_decimal
  continue
    result = sclsec
    flag_after_decimal = .false.
    do i = -1, imin, -1
      if ( result % sec_ary(i) /= 0 ) flag_after_decimal = .true.
      result % sec_ary(i) = 0
    end do
    if ( flag_after_decimal .and. .not. result % flag_negative ) then
      result = result + 1
    end if

---

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

• dc_utils/dc_scaledsec.f90