dc_scaledsec::operator(==) Interface Reference

Public Member Functions
logical function	dcscaledsec_eq_ss (sclsec1, sclsec2)
logical function	dcscaledsec_eq_si (sclsec, sec)
logical function	dcscaledsec_eq_is (sec, sclsec)
logical function	dcscaledsec_eq_sr (sclsec, sec)
logical function	dcscaledsec_eq_rs (sec, sclsec)
logical function	dcscaledsec_eq_sd (sclsec, sec)
logical function	dcscaledsec_eq_ds (sec, sclsec)

Detailed Description

Definition at line 86 of file dc_scaledsec.f90.

Member Function/Subroutine Documentation

dcscaledsec_eq_ds()

logical function dc_scaledsec::operator(==)::dcscaledsec_eq_ds	(	real(dp), intent(in)	sec,
		type(dc_scaled_sec), intent(in)	sclsec )

Definition at line 535 of file dc_scaledsec.f90.

    implicit none
    real(DP), intent(in):: sec
    type(DC_SCALED_SEC), intent(in):: sclsec
    type(DC_SCALED_SEC):: sclsec2
  continue
    sclsec2 = sec
    result = sclsec == sclsec2

dcscaledsec_eq_is()

logical function dc_scaledsec::operator(==)::dcscaledsec_eq_is	(	integer, intent(in)	sec,
		type(dc_scaled_sec), intent(in)	sclsec )

Definition at line 489 of file dc_scaledsec.f90.

    implicit none
    integer, intent(in):: sec
    type(DC_SCALED_SEC), intent(in):: sclsec
  continue
    result = sclsec == sec

dcscaledsec_eq_rs()

logical function dc_scaledsec::operator(==)::dcscaledsec_eq_rs	(	real, intent(in)	sec,
		type(dc_scaled_sec), intent(in)	sclsec )

Definition at line 511 of file dc_scaledsec.f90.

    implicit none
    real, intent(in):: sec
    type(DC_SCALED_SEC), intent(in):: sclsec
    type(DC_SCALED_SEC):: sclsec2
  continue
    sclsec2 = sec
    result = sclsec == sclsec2

dcscaledsec_eq_sd()

logical function dc_scaledsec::operator(==)::dcscaledsec_eq_sd	(	type(dc_scaled_sec), intent(in)	sclsec,
		real(dp), intent(in)	sec )

Definition at line 523 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec
    real(DP), intent(in):: sec
    type(DC_SCALED_SEC):: sclsec2
  continue
    sclsec2 = sec
    result = sclsec == sclsec2

dcscaledsec_eq_si()

logical function dc_scaledsec::operator(==)::dcscaledsec_eq_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	sec )

Definition at line 455 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec
    integer, intent(in):: sec
    type(DC_SCALED_SEC):: sclsec2
    integer:: i, sec1
  continue
    if ( sclsec % flag_negative .and. .not. sec < 0 ) then
      result = .false.
      return
    elseif ( .not. sclsec % flag_negative .and. sec < 0 ) then
      result = .false.
      return
    end if
 
    if ( abs(sec) > scale_factor_int_xx(3) ) then
      sclsec2 = sec
      result = sclsec == sclsec2
    else
      if (      .not. all( sclsec % sec_ary(imin:-1) == (/0, 0/) ) &
        &  .or. .not. all( sclsec % sec_ary(3:imax) == (/0, 0, 0, 0, 0, 0/) ) ) then
        result = .false.
        return
      end if
      sec1 = sclsec % sec_ary(0)
      do i = 1, 2
        sec1 = sec1 + sclsec % sec_ary(i) * scale_factor_int_xx(i)
      end do
      result = sec1 == sec
    end if

dcscaledsec_eq_sr()

logical function dc_scaledsec::operator(==)::dcscaledsec_eq_sr	(	type(dc_scaled_sec), intent(in)	sclsec,
		real, intent(in)	sec )

Definition at line 499 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec
    real, intent(in):: sec
    type(DC_SCALED_SEC):: sclsec2
  continue
    sclsec2 = sec
    result = sclsec == sclsec2

dcscaledsec_eq_ss()

logical function dc_scaledsec::operator(==)::dcscaledsec_eq_ss	(	type(dc_scaled_sec), intent(in)	sclsec1,
		type(dc_scaled_sec), intent(in)	sclsec2 )

Definition at line 423 of file dc_scaledsec.f90.

    !
    ! 2 つの DC_SCALED_SEC 型変数の比較
    ! 
    ! Comparison of two "DC_SCALED_SEC" variables
    !
    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec1, sclsec2
 
    integer:: i
  continue
    if ( sclsec1 % flag_negative .and. .not. sclsec2 % flag_negative ) then
      result = .false.
 
      return
    elseif ( .not. sclsec1 % flag_negative .and. sclsec2 % flag_negative ) then
      result = .false.
      return
    end if
 
    do i = imax, imin, -1
      if ( .not. sclsec1 % sec_ary(i) == sclsec2 % sec_ary(i) ) then
        result = .false.
        return
      end if
    end do
 
    result = .true.

---

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

• dc_utils/dc_scaledsec.f90