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 151 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 )

Definition at line 1549 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::operator(/)::dcscaledsec_div_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	factor )

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

Definition at line 1601 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::operator(/)::dcscaledsec_div_ss	(	type(dc_scaled_sec), intent(in)	sclsec,
		type(dc_scaled_sec), intent(in)	factor )

Definition at line 1504 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
 

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