dc_present::present_and_eq Interface Reference

Public Member Functions
logical function	present_and_eq_integer (arg, val)
logical function	present_and_eq_real (arg, val)
logical function	present_and_eq_double (arg, val)

Detailed Description

Definition at line 70 of file dc_present.f90.

Member Function/Subroutine Documentation

present_and_eq_double()

logical function dc_present::present_and_eq::present_and_eq_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 262 of file dc_present.f90.

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

References dc_types::dp_eps.

present_and_eq_integer()

logical function dc_present::present_and_eq::present_and_eq_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 204 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_eq_real()

logical function dc_present::present_and_eq::present_and_eq_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 233 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) .le. 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-parallel/src/dc_utils/dc_present.f90