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 )

Check if arg is present and not 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 not equals val beyond DP_EPS, .false. otherwise

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 )

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

Parameters

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

Returns

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

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 )

Check if arg is present and not 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 not equals val beyond SP_EPS, .false. otherwise

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-parallel/src/dc_utils/dc_present.f90