dc_scaledsec::operator(/) Interface Reference

Public Member Functions
type(dc_scaled_sec) function	dcscaledsec_div_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_div_sr (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_div_sd (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_div_ss (sclsec, factor)

Detailed Description

Definition at line 214 of file dc_scaledsec.f90.

Member Function/Subroutine Documentation

dcscaledsec_div_sd()

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

Divide DC_SCALED_SEC by double precision

Parameters

[in]	sclsec	DC_SCALED_SEC variable (dividend)
[in]	factor	Double precision divisor

Returns

Quotient of division

Definition at line 1929 of file dc_scaledsec.f90.

    use dc_message, only: messagenotify
    use dc_types, only: dp_eps
    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, imax + imin + 1, -1
      sec_ary_mod(i) = sclsec % sec_ary(i)
      if ( abs(sec_ary_mod(i)) > dp_eps ) then
        move_down = sec_ary_mod(i) * scale_factor
      else
        move_down = 0.0_dp
      end if
    end do
 
    do i = imax + imin, imin, -1
      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 )
      if ( abs(sec_ary_mod(i)) > dp_eps ) 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
 
    do i = imin - 1, imin + imin, -1
      result % sec_ary(i-imin) = int( move_down / factor_abs )
      sec_ary_mod(i) = mod( move_down, factor_abs )
      if ( abs(sec_ary_mod(i)) > dp_eps ) 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
 

References dc_types::dp_eps.

dcscaledsec_div_si()

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

Divide DC_SCALED_SEC by integer

Parameters

[in]	sclsec	DC_SCALED_SEC variable (dividend)
[in]	factor	Integer divisor

Returns

Quotient of division

Definition at line 1905 of file dc_scaledsec.f90.

    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::operator(/)::dcscaledsec_div_sr	(	type(dc_scaled_sec), intent(in)	sclsec,
		real, intent(in)	factor
	)

Divide DC_SCALED_SEC by single precision real

Parameters

[in]	sclsec	DC_SCALED_SEC variable (dividend)
[in]	factor	Single precision divisor

Returns

Quotient of division

Definition at line 2002 of file dc_scaledsec.f90.

    use dc_message, only: messagenotify
    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec
    real, intent(in):: factor
  continue
    result = sclsec / real( factor, dp )

References dc_types::dp.

dcscaledsec_div_ss()

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

Divide DC_SCALED_SEC by DC_SCALED_SEC

Note: Due to precision limitations in Fortran compilers, factor must be smaller than 10^12.

Parameters

[in]	sclsec	DC_SCALED_SEC variable (dividend)
[in]	factor	DC_SCALED_SEC variable (divisor)

Returns

Quotient of division

Definition at line 1869 of file dc_scaledsec.f90.

    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 までとする.
    !
    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
 

---

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

• dc_utils/dc_scaledsec.f90