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

Add double precision real and DC_SCALED_SEC

Parameters

[in]	factor	Double precision value to add
[in]	sclsec	DC_SCALED_SEC variable

Returns

Sum of double and DC_SCALED_SEC

Definition at line 1315 of file dc_scaledsec.f90.

    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 )

Add integer and DC_SCALED_SEC

Parameters

[in]	factor	Integer value to add
[in]	sclsec	DC_SCALED_SEC variable

Returns

Sum of integer and DC_SCALED_SEC

Definition at line 1215 of file dc_scaledsec.f90.

    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 )

Add single precision real and DC_SCALED_SEC

Parameters

[in]	factor	Real value to add
[in]	sclsec	DC_SCALED_SEC variable

Returns

Sum of real and DC_SCALED_SEC

Definition at line 1265 of file dc_scaledsec.f90.

    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 )

Add DC_SCALED_SEC and double precision real

Parameters

[in]	sclsec	DC_SCALED_SEC variable
[in]	factor	Double precision value to add

Returns

Sum of DC_SCALED_SEC and double

Definition at line 1290 of file dc_scaledsec.f90.

    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 )

Add DC_SCALED_SEC and integer

Parameters

[in]	sclsec	DC_SCALED_SEC variable
[in]	factor	Integer value to add

Returns

Sum of DC_SCALED_SEC and integer

Definition at line 1190 of file dc_scaledsec.f90.

    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 )

Add DC_SCALED_SEC and single precision real

Parameters

[in]	sclsec	DC_SCALED_SEC variable
[in]	factor	Real value to add

Returns

Sum of DC_SCALED_SEC and real

Definition at line 1240 of file dc_scaledsec.f90.

    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 )

Add two DC_SCALED_SEC variables

Parameters

[in]	sclsec1	First DC_SCALED_SEC variable
[in]	sclsec2	Second DC_SCALED_SEC variable

Returns

Sum of two DC_SCALED_SEC variables

Definition at line 1118 of file dc_scaledsec.f90.

    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