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

Definition at line 1279 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の減算. 
    ! 
    ! Subtraction 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 = 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
	)

Definition at line 1211 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の減算. 
    ! 
    ! Subtraction 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_sub_rs()

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

Definition at line 1245 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の減算. 
    ! 
    ! Subtraction 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 = factor_scl - sclsec

dcscaledsec_sub_s()

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

(

type(dc_scaled_sec), intent(in)

sclsec

)

Definition at line 1100 of file dc_scaledsec.f90.

    !
    ! DC_SCALED_SEC 型変数の符号を逆にする. 
    ! 
    ! Inverse sign of a "DC_SCALED_SEC" variable
    !
    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
	)

Definition at line 1262 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の減算. 
    ! 
    ! Subtraction 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_sub_si()

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

Definition at line 1194 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の減算. 
    ! 
    ! Subtraction 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_sub_sr()

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

Definition at line 1228 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の減算. 
    ! 
    ! Subtraction 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_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
	)

Definition at line 1115 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の減算. 
    ! 
    ! Subtraction of two "DC_SCALED_SEC" variables
    !
    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