dc_present::present_and_eq Interface Reference

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

private

Definition at line 196 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_eq_integer()

logical function dc_present::present_and_eq::present_and_eq_integer ( integer, intent(in), optional  arg, integer, intent(in)  val  )

private

Definition at line 156 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_eq_real()

logical function dc_present::present_and_eq::present_and_eq_real ( real, intent(in), optional  arg, real, intent(in)  val  )

private

Definition at line 176 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