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 149 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 610 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 564 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 586 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 598 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 530 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 574 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
	)

Compare two DC_SCALED_SEC variables for equality

Parameters

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

Returns

.true. if equal, .false. otherwise

Definition at line 503 of file dc_scaledsec.f90.

    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