dc_scaledsec::operator(<) Interface Reference

Public Member Functions
logical function	dcscaledsec_lt_ss (sclsec1, sclsec2)
logical function	dcscaledsec_lt_si (sclsec, factor)
logical function	dcscaledsec_lt_is (factor, sclsec)

Detailed Description

Definition at line 165 of file dc_scaledsec.f90.

Member Function/Subroutine Documentation

dcscaledsec_lt_is()

logical function dc_scaledsec::operator(<)::dcscaledsec_lt_is	(	integer, intent(in)	factor,
		type(dc_scaled_sec), intent(in)	sclsec )

Compare integer with DC_SCALED_SEC (less than)

Parameters

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

Returns

.true. if factor < sclsec, .false. otherwise

Definition at line 921 of file dc_scaledsec.f90.

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

dcscaledsec_lt_si()

logical function dc_scaledsec::operator(<)::dcscaledsec_lt_si	(	type(dc_scaled_sec), intent(in)	sclsec,
		integer, intent(in)	factor )

Compare DC_SCALED_SEC with integer (less than)

Parameters

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

Returns

.true. if sclsec < factor, .false. otherwise

Definition at line 861 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec
    integer, intent(in):: factor
    type(DC_SCALED_SEC):: factor_scl
    integer:: i, sec1, factor_abs
    logical:: both_negative
  continue
    if ( sclsec % flag_negative .and. .not. factor < 0 ) then
      result = .true.
      return
    elseif ( .not. sclsec % flag_negative .and. factor < 0 ) then
      result = .false.
      return
    elseif ( sclsec % flag_negative .and. factor < 0 ) then
      both_negative = .true.
    else
      both_negative = .false.
    end if
 
    factor_abs = abs(factor)
 
    if ( factor_abs > scale_factor_int_xx(3) ) then
      factor_scl = factor
      result =  sclsec < factor_scl
      return
    else
      if ( .not. all( sclsec % sec_ary(3:imax) == (/0, 0, 0, 0, 0, 0/) ) ) then
        result = .false.
      else
        sec1 = sclsec % sec_ary(0)
        do i = 1, 2
          sec1 = sec1 + sclsec % sec_ary(i) * scale_factor_int_xx(i)
        end do
        if ( sec1 == factor_abs ) then
          result = .false.
        else
          result = sec1 < factor_abs
        end if
      end if
 
      if ( both_negative ) result = .not. result
    end if

dcscaledsec_lt_ss()

logical function dc_scaledsec::operator(<)::dcscaledsec_lt_ss	(	type(dc_scaled_sec), intent(in)	sclsec1,
		type(dc_scaled_sec), intent(in)	sclsec2 )

Compare two DC_SCALED_SEC variables (less than)

Parameters

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

Returns

.true. if sclsec1 < sclsec2, .false. otherwise

Definition at line 809 of file dc_scaledsec.f90.

    implicit none
    type(DC_SCALED_SEC), intent(in):: sclsec1, sclsec2
    integer:: i
    logical:: both_negative, flag_equal
  continue
    result = .false.
    flag_equal = .true.
 
    if ( sclsec1 % flag_negative .and. .not. sclsec2 % flag_negative ) then
      result = .true.
      return
    elseif ( .not. sclsec1 % flag_negative .and. sclsec2 % flag_negative ) then
      result = .false.
      return
    elseif ( sclsec1 % flag_negative .and. sclsec2 % flag_negative ) then
      both_negative = .true.
    else
      both_negative = .false.
    end if
 
    do i = imax, imin, -1
      if ( sclsec1 % sec_ary(i) > sclsec2 % sec_ary(i) ) then
        result = .false.
        flag_equal = .false.
        exit
      elseif ( sclsec1 % sec_ary(i) < sclsec2 % sec_ary(i) ) then
        result = .true.
        flag_equal = .false.
        exit
      end if
    end do
 
    if ( .not. flag_equal .and. both_negative ) result = .not. result
 

---

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

• dc_utils/dc_scaledsec.f90