dc_scaledsec Module Reference

Functions/Subroutines
subroutine	dcscaledsectonumi (sec, sclsec)
subroutine	dcscaledsectonumr (sec, sclsec)
subroutine	dcscaledsectonumd (sec, sclsec)
subroutine, public	dcscaledsecputline (sclsec, unit, indent)
logical function	dcscaledsec_eq_ss (sclsec1, sclsec2)
type(dc_scaled_sec) function	dcscaledsec_add_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_mul_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_mul_is (factor, sclsec)
type(dc_scaled_sec) function	dcscaledsec_mul_ds (factor, sclsec)
type(dc_scaled_sec) function	dcscaledsec_mul_sr (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_mul_rs (factor, sclsec)
type(dc_scaled_sec) function	dcscaledsec_div_ss (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_div_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_div_sd (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_div_sr (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_mod_ss (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_mod_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_mod_sr (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_mod_sd (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_modulo_ss (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_modulo_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_modulo_sr (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_modulo_sd (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_abs_s (sclsec)

Function/Subroutine Documentation

dcscaledsec_abs_s()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_abs_s

(

type(dc_scaled_sec), intent(in)

sclsec

)

Definition at line 1891 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の絶対値を返す. 
    ! 
    ! Return an absolute value of a "DC_SCALED_SEC" variable
    !
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec

  continue
    result = sclsec
    if ( result % flag_negative ) result % flag_negative = .false.

dcscaledsec_add_si()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_add_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	factor
	)

Definition at line 999 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の加算. 
    ! 
    ! Addition of two "DC_SCALED_SEC" variables
    !
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    integer, intent(in):: factor
    type(dc_scaled_sec):: factor_scl
  continue
    factor_scl = factor
    result = sclsec + factor_scl

dcscaledsec_div_sd()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_div_sd	(	type(dc_scaled_sec), intent(in)	sclsec,
		real(dp), intent(in)	factor
	)

Definition at line 1550 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の除算. 
    ! 
    ! Division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real(DP), intent(in):: factor
    integer:: i
    real(DP):: factor_abs, move_down, sec_ary_mod(imin+imin:imax)
    !logical:: flag_approximate
  continue
    if ( sclsec % flag_negative ) then
      result % flag_negative = .not. factor < 0.0_dp
    else
      result % flag_negative = factor < 0.0_dp
    end if
    factor_abs = abs(factor) * scale_factor_xx(2)

!    flag_approximate = .false.
    move_down = 0.0_dp
    do i = imax, imin + imin, -1
      if ( i > imax + imin ) then
        sec_ary_mod(i) = sclsec % sec_ary(i)
      elseif ( i > imin - 1 ) then
        result % sec_ary(i-imin) = int( ( sclsec % sec_ary(i) + move_down ) / factor_abs )
        sec_ary_mod(i) = &
          & mod( ( sclsec % sec_ary(i) + move_down ), factor_abs )
      else
        result % sec_ary(i-imin) = int( move_down / factor_abs )
        sec_ary_mod(i) = mod( move_down, factor_abs )
      end if

      if ( sec_ary_mod(i) /= 0.0_dp ) then
        !if ( i < imin ) flag_approximate = .true.
        move_down = sec_ary_mod(i) * scale_factor
      else
        move_down = 0.0_dp
      end if
    end do

!!$    if ( flag_approximate ) then
!!$      call MessageNotify( 'W', 'dc_scaledsec#operator(/)', &
!!$        & 'result may be calculated approximately' )
!!$    end if

dcscaledsec_div_si()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_div_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	factor
	)

Definition at line 1534 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の除算. 
    ! 
    ! Division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    integer, intent(in):: factor
  continue
    result = sclsec / real( factor, dp )

dcscaledsec_div_sr()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_div_sr	(	type(dc_scaled_sec), intent(in)	sclsec,
		real, intent(in)	factor
	)

Definition at line 1602 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の除算. 
    ! 
    ! Division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real, intent(in):: factor
  continue
    result = sclsec / real( factor, dp )

dcscaledsec_div_ss()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_div_ss	(	type(dc_scaled_sec), intent(in)	sclsec,
		type(dc_scaled_sec), intent(in)	factor
	)

Definition at line 1505 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の除算. 
    ! 
    ! Division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec, factor
    real(DP):: factor_abs
  continue

    ! frt, ifort などでは, 1.0e+23 などの実数とすると, 
    ! 9.9999e+22 などとなってしまうため, 
    ! factor として指定するものは 10e+12 までとする. (うーむ, 汚い対応だな....)
    ! (morikawa 2008/09/01) 
    !
    if ( .not. all( factor % sec_ary (imax-4:imax) == (/ 0, 0, 0, 0, 0 /) ) ) then
      call messagenotify( 'E', 'dc_scaledsec#mod', &
        & 'factor must be smaller than 10^12' )
    end if

    factor_abs = factor
    result = sclsec / factor_abs

dcscaledsec_eq_ss()

logical function dc_scaledsec::dcscaledsec_eq_ss	(	type(dc_scaled_sec), intent(in)	sclsec1,
		type(dc_scaled_sec), intent(in)	sclsec2
	)

Definition at line 424 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の比較
    ! 
    ! Comparison of two "DC_SCALED_SEC" variables
    !
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec1, sclsec2

    integer:: i
  continue
    if ( sclsec1 % flag_negative .and. .not. sclsec2 % flag_negative ) then
      result = .false.

      return
    elseif ( .not. sclsec1 % flag_negative .and. sclsec2 % flag_negative ) then
      result = .false.
      return
    end if

    do i = imax, imin, -1
      if ( .not. sclsec1 % sec_ary(i) == sclsec2 % sec_ary(i) ) then
        result = .false.
        return
      end if
    end do

    result = .true.

dcscaledsec_mod_sd()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mod_sd	(	type(dc_scaled_sec), intent(in)	sclsec,
		real(dp), intent(in)	factor
	)

Definition at line 1728 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数を割った際の余りを計算. 
    ! 
    ! Calculate of remainder by division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real(DP), intent(in):: factor
    type(dc_scaled_sec):: factor_scl

  continue
    factor_scl = factor
    result = mod( sclsec, factor_scl )

dcscaledsec_mod_si()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mod_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	factor
	)

Definition at line 1690 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数を割った際の余りを計算. 
    ! 
    ! Calculate of remainder by division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    integer, intent(in):: factor
    type(dc_scaled_sec):: factor_scl

  continue
    factor_scl = factor
    result = mod( sclsec, factor_scl )

dcscaledsec_mod_sr()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mod_sr	(	type(dc_scaled_sec), intent(in)	sclsec,
		real, intent(in)	factor
	)

Definition at line 1709 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数を割った際の余りを計算. 
    ! 
    ! Calculate of remainder by division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real, intent(in):: factor
    type(dc_scaled_sec):: factor_scl

  continue
    factor_scl = factor
    result = mod( sclsec, factor_scl )

dcscaledsec_mod_ss()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mod_ss	(	type(dc_scaled_sec), intent(in)	sclsec,
		type(dc_scaled_sec), intent(in)	factor
	)

Definition at line 1618 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数を割った際の余りを計算. 
    ! 
    ! Calculate of remainder by division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec, factor

    type(dc_scaled_sec):: factor_scl
    real(DP):: sec_ary_mod(imin+imin:imax)
    integer:: i, move_down_index
    real(DP):: move_down
    real(DP):: factor_dp
    type(dc_scaled_sec):: zero_sec
  continue

    ! frt, ifort などでは, 1.0e+23 などの実数とすると, 
    ! 9.9999e+22 などとなってしまうため, 
    ! factor として指定するものは 10e+12 までとする. (うーむ, 汚い対応だな....)
    ! (morikawa 2008/09/01) 
    !
    if ( .not. all( factor % sec_ary (imax-4:imax) == (/ 0, 0, 0, 0, 0 /) ) ) then
      call messagenotify( 'E', 'dc_scaledsec#mod', &
        & 'factor must be smaller than 10^12' )
    end if

    if ( sclsec == factor ) then
      result = zero_sec
      return
    end if

    factor_scl % sec_ary(imin:-1) = 0
    factor_scl % sec_ary(imin-imin:imax) = factor % sec_ary(imin:imax+imin)
    factor_scl % flag_negative = factor % flag_negative

    factor_dp = factor_scl

    move_down = 0.0_dp
    do i = imax, imin + imin, -1
      move_down_index = i
      if ( move_down /= 0.0_dp ) then
        if ( abs(factor_dp) > ( move_down + scale_factor ) * scale_factor_xx( i - imin ) ) exit
      end if

      if ( i > imin - 1 ) then
        sec_ary_mod(i) = &
          & mod( ( sclsec % sec_ary(i) + move_down ), factor_dp )
      else
        sec_ary_mod(i) = mod( move_down, factor_dp )
      end if

      if ( sec_ary_mod(i) /= 0.0_dp ) then
        move_down = sec_ary_mod(i) * scale_factor
      else
        move_down = 0.0_dp
      end if

    end do

    result = move_down * scale_factor_xx(move_down_index)
    if ( move_down_index > imin - 1 ) then
      result % sec_ary(imin:move_down_index) = sclsec % sec_ary(imin:move_down_index)
    end if

    result % flag_negative = sclsec % flag_negative

dcscaledsec_modulo_sd()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_modulo_sd	(	type(dc_scaled_sec), intent(in)	sclsec,
		real(dp), intent(in)	factor
	)

Definition at line 1872 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数を割った際の剰余を計算. 
    ! 
    ! Calculate of remainder by division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real(DP), intent(in):: factor
    type(dc_scaled_sec):: factor_scl

  continue
    factor_scl = factor
    result = modulo( sclsec, factor_scl )

dcscaledsec_modulo_si()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_modulo_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	factor
	)

Definition at line 1834 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数を割った際の剰余を計算. 
    ! 
    ! Calculate of remainder by division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    integer, intent(in):: factor
    type(dc_scaled_sec):: factor_scl

  continue
    factor_scl = factor
    result = modulo( sclsec, factor_scl )

dcscaledsec_modulo_sr()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_modulo_sr	(	type(dc_scaled_sec), intent(in)	sclsec,
		real, intent(in)	factor
	)

Definition at line 1853 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数を割った際の剰余を計算. 
    ! 
    ! Calculate of remainder by division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real, intent(in):: factor
    type(dc_scaled_sec):: factor_scl

  continue
    factor_scl = factor
    result = modulo( sclsec, factor_scl )

dcscaledsec_modulo_ss()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_modulo_ss	(	type(dc_scaled_sec), intent(in)	sclsec,
		type(dc_scaled_sec), intent(in)	factor
	)

Definition at line 1747 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数を割った際の剰余を計算. 
    ! 
    ! Calculate of remainder by division of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec, factor

    type(dc_scaled_sec):: factor_scl
    real(DP):: sec_ary_mod(imin+imin:imax)
    integer:: i, move_down_index
    real(DP):: move_down
    real(DP):: factor_dp
    type(dc_scaled_sec):: zero_sec
  continue
  
    ! frt, ifort などでは, 1.0e+23 などの実数とすると, 
    ! 9.9999e+22 などとなってしまうため, 
    ! factor として指定するものは 10e+12 までとする. (うーむ, 汚い対応だな....)
    ! (morikawa 2008/09/01) 
    !
    if ( .not. all( factor % sec_ary (imax-4:imax) == (/ 0, 0, 0, 0, 0 /) ) ) then
      call messagenotify( 'E', 'dc_scaledsec#modulo', &
        & 'factor must be smaller than 10^12' )
    end if

    if ( sclsec == factor ) then
      result = zero_sec
      return
    end if

    factor_scl % sec_ary(imin:-1) = 0
    factor_scl % sec_ary(imin-imin:imax) = factor % sec_ary(imin:imax+imin)
    factor_scl % flag_negative = factor % flag_negative

    factor_dp = factor_scl

    move_down = 0.0_dp
    do i = imax, imin + imin, -1
      move_down_index = i
      if ( move_down /= 0.0_dp ) then
        if ( abs(factor_dp) > ( move_down + scale_factor ) * scale_factor_xx( i - imin ) ) exit
      end if

      if ( i > imin - 1 ) then
        sec_ary_mod(i) = &
          & mod( ( sclsec % sec_ary(i) + move_down ), factor_dp )
      else
        sec_ary_mod(i) = mod( move_down, factor_dp )
      end if

      if ( sec_ary_mod(i) /= 0.0_dp ) then
        move_down = sec_ary_mod(i) * scale_factor
      else
        move_down = 0.0_dp
      end if

    end do

    result = move_down * scale_factor_xx(move_down_index)
    if ( move_down_index > imin - 1 ) then
      result % sec_ary(imin:move_down_index) = sclsec % sec_ary(imin:move_down_index)
    end if
    
    result % flag_negative = .false.

    if ( .not. result == zero_sec ) then
      if ( .not. sclsec % flag_negative .and. factor % flag_negative ) then
        result = - factor - result
        result % flag_negative = .not. sclsec % flag_negative
        
      elseif ( sclsec % flag_negative .and. .not. factor % flag_negative ) then
        result = factor - result
        result % flag_negative = .not. sclsec % flag_negative

      else
        result % flag_negative = sclsec % flag_negative
        
      end if
    end if

dcscaledsec_mul_ds()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_ds	(	real(dp), intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 1455 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の乗算. 
    ! 
    ! Multiplication of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    real(DP), intent(in):: factor
    type(dc_scaled_sec), intent(in):: sclsec
  continue
    result = sclsec * factor

dcscaledsec_mul_is()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_is	(	integer, intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 1422 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の乗算. 
    ! 
    ! Multiplication of a "DC_SCALED_SEC" variable
    !
    implicit none
    integer, intent(in):: factor
    type(dc_scaled_sec), intent(in):: sclsec
  continue
    result = sclsec * factor

dcscaledsec_mul_rs()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_rs	(	real, intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 1489 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の乗算. 
    ! 
    ! Multiplication of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    real, intent(in):: factor
    type(dc_scaled_sec), intent(in):: sclsec
  continue
    result = sclsec * factor

dcscaledsec_mul_si()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	factor
	)

Definition at line 1368 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の乗算. 
    ! 
    ! Multiplication of a "DC_SCALED_SEC" variable
    !
    !--
    ! 高速化のため, mul_ss を使用しない. 
    !++
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    integer, intent(in):: factor
    integer:: factor_abs
    type(dc_scaled_sec):: zero_sec
    real(DP):: sec_ary_dp(imin:imax)
    integer:: i, move_up
  continue
    if ( sclsec == zero_sec .or. factor == 0 ) then
      result = zero_sec
      return
    end if

    if ( sclsec % flag_negative ) then
      result % flag_negative = .not. factor < 0
    else
      result % flag_negative = factor < 0
    end if
    factor_abs = abs(factor)

    move_up = 0
    sec_ary_dp(:) = 0.0_dp
    do i = imin, imax
      sec_ary_dp(i) = sclsec % sec_ary(i) * factor_abs + move_up

      if ( .not. sec_ary_dp(i) < scale_factor ) then
        move_up = int( sec_ary_dp(i) / scale_factor )
        sec_ary_dp(i) = sec_ary_dp(i) - move_up * scale_factor
      else
        move_up = 0
      end if
    end do

    if ( move_up /= 0 ) then
      call messagenotify( 'E', operator'dc_scaledsec#(*)', &
        & 'DC_SCALED_SEC must be smaller than 10^24' )
    end if

    result % sec_ary(imin:imax) = sec_ary_dp(imin:imax)

dcscaledsec_mul_sr()

type(dc_scaled_sec) function dc_scaledsec::dcscaledsec_mul_sr	(	type(dc_scaled_sec), intent(in)	sclsec,
		real, intent(in)	factor
	)

Definition at line 1471 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の乗算. 
    ! 
    ! Multiplication of a "DC_SCALED_SEC" variable
    !
    use dc_message, only: messagenotify
    implicit none
    type(dc_scaled_sec), intent(in):: sclsec
    real, intent(in):: factor
    type(dc_scaled_sec):: factor_scl
  continue
    factor_scl = factor
    result = sclsec * factor_scl

dcscaledsecputline()

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

Definition at line 343 of file dc_scaledsec.f90.

References dc_types::stdout, and dc_types::string.

    !
    ! 引数 *sclsec* に設定されている情報を印字します. 
    ! デフォルトではメッセージは標準出力に出力されます. 
    ! *unit* に装置番号を指定することで, 出力先を変更することが可能です. 
    !
    ! Print information of *sclsec*. 
    ! By default messages are output to standard output. 
    ! Unit number for output can be changed by *unit* argument. 
    !
    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
                              ! 出力先の装置番号. 
                              ! デフォルトの出力先は標準出力. 
                              !
                              ! Unit number for output. 
                              ! Default value is standard output. 
    character(*), intent(in), optional:: indent
                              ! 表示されるメッセージの字下げ. 
                              !
                              ! Indent of displayed messages. 

    integer :: out_unit, sec_ary_rev(imin:imax)
    integer:: indent_len
    character(STRING):: indent_str
    character(1):: sign
    character(*), parameter:: subname = 'DCScaledSecPutLine'
  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
  999 continue
    !call EndSub(subname)

dcscaledsectonumd()

subroutine dc_scaledsec::dcscaledsectonumd	(	real(dp), intent(out)	sec,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 326 of file dc_scaledsec.f90.

References dc_types::dp.

    use dc_types, only: dp
    implicit none
    real(DP), intent(out):: sec
    type(dc_scaled_sec), intent(in):: sclsec

    integer:: i
  continue
    sec = 0.0_dp
    do i = imax, imin, -1
      sec = sec + ( sclsec % sec_ary(i) * scale_factor_xx(i) )
    end do
    if ( sclsec % flag_negative ) sec = - sec

dcscaledsectonumi()

subroutine dc_scaledsec::dcscaledsectonumi	(	integer, intent(out)	sec,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 300 of file dc_scaledsec.f90.

References dcscaledsectonumd(), and dc_types::dp.

    use dc_types, only: dp
    implicit none
    integer, intent(out):: sec
    type(dc_scaled_sec), intent(in):: sclsec
    real(DP):: secd
  continue
    call dcscaledsectonumd(secd, sclsec)
    sec = nint( secd )

Here is the call graph for this function:

dcscaledsectonumr()

subroutine dc_scaledsec::dcscaledsectonumr	(	real, intent(out)	sec,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 313 of file dc_scaledsec.f90.

References dcscaledsectonumd(), and dc_types::dp.

    use dc_types, only: dp
    implicit none
    real, intent(out):: sec
    type(dc_scaled_sec), intent(in):: sclsec
    real(DP):: secd
  continue
    call dcscaledsectonumd(secd, sclsec)
    sec = real( secd )

Here is the call graph for this function: