dc_scaledsec::operator(+) Interface Reference

Public Member Functions
type(dc_scaled_sec) function	dcscaledsec_add_ss (sclsec1, sclsec2)
type(dc_scaled_sec) function	dcscaledsec_add_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_add_is (factor, sclsec)
type(dc_scaled_sec) function	dcscaledsec_add_sr (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_add_rs (factor, sclsec)
type(dc_scaled_sec) function	dcscaledsec_add_sd (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_add_ds (factor, sclsec)

Detailed Description

Definition at line 120 of file dc_scaledsec.f90.

Member Function/Subroutine Documentation

dcscaledsec_add_ds()

type(dc_scaled_sec) function dc_scaledsec::operator(+)::dcscaledsec_add_ds	(	real(dp), intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 1083 of file dc_scaledsec.f90.

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

dcscaledsec_add_is()

type(dc_scaled_sec) function dc_scaledsec::operator(+)::dcscaledsec_add_is	(	integer, intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 1015 of file dc_scaledsec.f90.

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

dcscaledsec_add_rs()

type(dc_scaled_sec) function dc_scaledsec::operator(+)::dcscaledsec_add_rs	(	real, intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Definition at line 1049 of file dc_scaledsec.f90.

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

dcscaledsec_add_sd()

type(dc_scaled_sec) function dc_scaledsec::operator(+)::dcscaledsec_add_sd	(	type(dc_scaled_sec), intent(in)	sclsec,
		real(dp), intent(in)	factor
	)

Definition at line 1066 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
    real(DP), intent(in):: factor
    type(DC_SCALED_SEC):: factor_scl
  continue
    factor_scl = factor
    result = sclsec + factor_scl

dcscaledsec_add_si()

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

Definition at line 998 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_add_sr()

type(dc_scaled_sec) function dc_scaledsec::operator(+)::dcscaledsec_add_sr	(	type(dc_scaled_sec), intent(in)	sclsec,
		real, intent(in)	factor
	)

Definition at line 1032 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
    real, intent(in):: factor
    type(DC_SCALED_SEC):: factor_scl
  continue
    factor_scl = factor
    result = sclsec + factor_scl

dcscaledsec_add_ss()

type(dc_scaled_sec) function dc_scaledsec::operator(+)::dcscaledsec_add_ss	(	type(dc_scaled_sec), intent(in)	sclsec1,
		type(dc_scaled_sec), intent(in)	sclsec2
	)

Definition at line 934 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の加算. 
    ! 
    ! Addition of two "DC_SCALED_SEC" variables
    !
    use dc_message, only: messagenotify
    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec1, sclsec2
 
    integer:: i, move_up
    logical:: both_negative, sclsec2_flag_negative
    type(DC_SCALED_SEC):: sclsec1_opsign, sclsec2_opsign
  continue
    move_up = 0
    both_negative = .false.
 
    ! 負の値の処理
    ! Handle negative value
    !
    sclsec2_flag_negative = sclsec2 % flag_negative
    if ( sclsec1 % flag_negative ) then
      both_negative = .true.
      sclsec2_flag_negative = .not. sclsec2_flag_negative
    end if
    if ( sclsec2_flag_negative ) then
      sclsec1_opsign = sclsec1
      sclsec1_opsign % flag_negative = .false.
      sclsec2_opsign = sclsec2
      sclsec2_opsign % flag_negative = .false.
      result = sclsec1_opsign - sclsec2_opsign
      if ( both_negative ) then
        result % flag_negative = .not. result % flag_negative
      end if
      return
    end if
 
    ! 加算
    ! Addition
    !
    do i = imin, imax
      result % sec_ary(i) = sclsec1 % sec_ary(i) + sclsec2 % sec_ary(i) + move_up
      if ( .not. result % sec_ary(i) < scale_factor_int ) then
        if ( i == imax ) then
          call messagenotify( 'E', 'dc_scaledsec#operator(*)', &
            & 'DC_SCALED_SEC must be smaller than 10^24' )
        end if
        move_up = result % sec_ary(i) / scale_factor_int
        result % sec_ary(i) = mod( result % sec_ary(i), scale_factor_int )
      else
        move_up = 0
      end if
    end do
 
    if ( both_negative ) then
      result % flag_negative = .true.
    else
      result % flag_negative = .false.
    end if
 

---

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

• dc_utils/dc_scaledsec.f90