dc_scaledsec::operator(-) Interface Reference

Public Member Functions
type(dc_scaled_sec) function	dcscaledsec_sub_s (sclsec)
type(dc_scaled_sec) function	dcscaledsec_sub_ss (sclsec1, sclsec2)
type(dc_scaled_sec) function	dcscaledsec_sub_si (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_sub_is (factor, sclsec)
type(dc_scaled_sec) function	dcscaledsec_sub_sr (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_sub_rs (factor, sclsec)
type(dc_scaled_sec) function	dcscaledsec_sub_sd (sclsec, factor)
type(dc_scaled_sec) function	dcscaledsec_sub_ds (factor, sclsec)

Detailed Description

Definition at line 193 of file dc_scaledsec.f90.

Member Function/Subroutine Documentation

dcscaledsec_sub_ds()

type(dc_scaled_sec) function dc_scaledsec::operator(-)::dcscaledsec_sub_ds	(	real(dp), intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Subtract DC_SCALED_SEC from double

Parameters

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

Returns

Difference of double and DC_SCALED_SEC

Definition at line 1573 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 = factor_scl - sclsec

dcscaledsec_sub_is()

type(dc_scaled_sec) function dc_scaledsec::operator(-)::dcscaledsec_sub_is	(	integer, intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Subtract DC_SCALED_SEC from integer

Parameters

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

Returns

Difference of integer and DC_SCALED_SEC

Definition at line 1473 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_sub_rs()

type(dc_scaled_sec) function dc_scaledsec::operator(-)::dcscaledsec_sub_rs	(	real, intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec
	)

Subtract DC_SCALED_SEC from real

Parameters

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

Returns

Difference of real and DC_SCALED_SEC

Definition at line 1523 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 = factor_scl - sclsec

dcscaledsec_sub_s()

type(dc_scaled_sec) function dc_scaledsec::operator(-)::dcscaledsec_sub_s

(

type(dc_scaled_sec), intent(in)

sclsec

)

Negate DC_SCALED_SEC (unary minus)

Parameters

[in]

sclsec

DC_SCALED_SEC variable

Returns

Negated DC_SCALED_SEC variable

Definition at line 1338 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec
  continue
    result % flag_negative = .not. sclsec % flag_negative
    result % sec_ary = sclsec % sec_ary

dcscaledsec_sub_sd()

type(dc_scaled_sec) function dc_scaledsec::operator(-)::dcscaledsec_sub_sd	(	type(dc_scaled_sec), intent(in)	sclsec,
		real(dp), intent(in)	factor
	)

Subtract double from DC_SCALED_SEC

Parameters

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

Returns

Difference of DC_SCALED_SEC and double

Definition at line 1548 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_sub_si()

type(dc_scaled_sec) function dc_scaledsec::operator(-)::dcscaledsec_sub_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	factor
	)

Subtract integer from DC_SCALED_SEC

Parameters

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

Returns

Difference of DC_SCALED_SEC and integer

Definition at line 1448 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_sub_sr()

type(dc_scaled_sec) function dc_scaledsec::operator(-)::dcscaledsec_sub_sr	(	type(dc_scaled_sec), intent(in)	sclsec,
		real, intent(in)	factor
	)

Subtract real from DC_SCALED_SEC

Parameters

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

Returns

Difference of DC_SCALED_SEC and real

Definition at line 1498 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_sub_ss()

type(dc_scaled_sec) function dc_scaledsec::operator(-)::dcscaledsec_sub_ss	(	type(dc_scaled_sec), intent(in)	sclsec1,
		type(dc_scaled_sec), intent(in)	sclsec2
	)

Subtract two DC_SCALED_SEC variables

Parameters

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

Returns

Difference of two DC_SCALED_SEC variables

Definition at line 1361 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec1, sclsec2
 
    integer:: i, move_down
    logical:: both_negative, sclsec2_flag_negative
    type(DC_SCALED_SEC):: sclsec1_opsign, sclsec2_opsign
    type(DC_SCALED_SEC):: sclsec1_nosign, sclsec2_nosign
    type(DC_SCALED_SEC):: large, small
  continue
    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
 
    ! 絶対値の比較
    ! Compare absolute values
    !
    sclsec1_nosign = sclsec1
    sclsec1_nosign % flag_negative = .false.
    sclsec2_nosign = sclsec2
    sclsec2_nosign % flag_negative = .false.
 
    if ( sclsec1_nosign > sclsec2_nosign ) then
      result % flag_negative = .false.
      large = sclsec1_nosign
      small = sclsec2_nosign
    elseif ( sclsec1_nosign < sclsec2_nosign ) then
      result % flag_negative = .true.
      large = sclsec2_nosign
      small = sclsec1_nosign
    else
      result = 0
      return
    end if
 
    move_down = 0
    do i = imin, imax
      result % sec_ary(i) = large % sec_ary(i) - small % sec_ary(i) + move_down
      if ( result % sec_ary(i) < 0 ) then
        move_down = ( result % sec_ary(i) / scale_factor_int ) - 1
        result % sec_ary(i) = &
          & mod( result % sec_ary(i), scale_factor_int ) + scale_factor_int
      else
        move_down = 0
      end if
    end do
 
    if ( both_negative ) then
      result % flag_negative = .not. result % flag_negative
    end if
 

---

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

• dc_utils/dc_scaledsec.f90