dc_present::present_and_ne Interface Reference

Public Member Functions
logical function	present_and_ne_integer (arg, val)
logical function	present_and_ne_real (arg, val)
logical function	present_and_ne_double (arg, val)

Detailed Description

Definition at line 75 of file dc_present.f90.

Member Function/Subroutine Documentation

present_and_ne_double()

logical function dc_present::present_and_ne::present_and_ne_double	(	real(dp), intent(in), optional	arg,
		real(dp), intent(in)	val
	)

arg が省略されておらず val と等しくないかどうかを判定（倍精度版）

Parameters

[in]	arg	省略可能な倍精度実数型引数
[in]	val	比較する値

Returns

arg が省略されておらず DP_EPS を超えて val と異なる場合は .true.、それ以外は .false.

Definition at line 348 of file dc_present.f90.

    logical                        :: result
    real(DP), intent(in), optional :: arg
    real(DP), intent(in)           :: val
    continue
    result = .false.
    if(present(arg)) then
      if(abs(arg - val) .gt. dp_eps) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

References dc_types::dp_eps.

present_and_ne_integer()

logical function dc_present::present_and_ne::present_and_ne_integer	(	integer, intent(in), optional	arg,
		integer, intent(in)	val
	)

arg が省略されておらず val と等しくないかどうかを判定（整数版）

Parameters

[in]	arg	省略可能な整数型引数
[in]	val	比較する値

Returns

arg が省略されておらず val と等しくない場合は .true.、それ以外は .false.

Definition at line 290 of file dc_present.f90.

    logical                       :: result
    integer, intent(in), optional :: arg
    integer, intent(in)           :: val
    continue
    result = .false.
    if(present(arg)) then
      if(arg/=val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_ne_real()

logical function dc_present::present_and_ne::present_and_ne_real	(	real(sp), intent(in), optional	arg,
		real(sp), intent(in)	val
	)

arg が省略されておらず val と等しくないかどうかを判定（単精度版）

Parameters

[in]	arg	省略可能な単精度実数型引数
[in]	val	比較する値

Returns

arg が省略されておらず SP_EPS を超えて val と異なる場合は .true.、それ以外は .false.

Definition at line 319 of file dc_present.f90.

    logical                        :: result
    real(SP), intent(in), optional :: arg
    real(SP), intent(in)           :: val
    continue
    result = .false.
    if(present(arg)) then
      if( abs(arg - val) .gt. sp_eps ) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

References dc_types::sp_eps.

---

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

• /build/gtool5-1.0.0~rc5/debian/build-serial/src/dc_utils/dc_present.f90