dc_present::present_and_ne Interface Reference

Private 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 57 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  )

private

Definition at line 256 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しくない場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    real(DP),intent(in),optional :: arg
    real(DP),intent(in) :: val
  continue
    if(present(arg)) then
      if(arg/=val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

present_and_ne_integer()

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

private

Definition at line 216 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しくない場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    integer,intent(in),optional :: arg
    integer,intent(in) :: val
  continue
    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, intent(in), optional  arg, real, intent(in)  val  )

private

Definition at line 236 of file dc_present.f90.

    !
    ! arg が省略されておらず、且つ val と等しくない場合、
    ! <tt>.true.</tt> が返ります。
    !
    logical :: result
    real,intent(in),optional :: arg
    real,intent(in) :: val
  continue
    if(present(arg)) then
      if(arg/=val) then
        result=.true.
      else
        result=.false.
      endif
    else
      result=.false.
    endif

---

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

• dc_utils/dc_present.f90