int_is_default Function

private function int_is_default(this) result(yes)

Type Bound

Arguments

Type	Intent	Optional	Attributes		Name
class(nml_int_key_t),	intent(in)			::	this

Return Value logical

Source Code

   function int_is_default(this) result(yes)
      class(nml_int_key_t), intent(in) :: this
      logical :: yes
      yes = (this%tgt == this%default)
   end function int_is_default