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 )

Check if arg is present and equals val (double precision version)

Parameters

[in]	arg	Optional double precision real argument
[in]	val	Value to compare

Returns

.true. if arg is present and equals val within DP_EPS, .false. otherwise

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 )

Check if arg is present and equals val (integer version)

Parameters

[in]	arg	Optional integer argument
[in]	val	Value to compare

Returns

.true. if arg is present and equals val, .false. otherwise

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 )

Check if arg is present and equals val (single precision version)

Parameters

[in]	arg	Optional single precision real argument
[in]	val	Value to compare

Returns

.true. if arg is present and equals val within SP_EPS, .false. otherwise

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