logical_is_default Function

private function logical_is_default(this) result(yes)

Type Bound

nml_logical_key_t

Arguments

Type IntentOptional Attributes Name
class(nml_logical_key_t), intent(in) :: this

Return Value logical


Source Code

   function logical_is_default(this) result(yes)
      class(nml_logical_key_t), intent(in) :: this
      logical :: yes
      yes = (this%tgt .eqv. this%default)
   end function logical_is_default