real_is_default Function

private function real_is_default(this) result(yes)

Type Bound

Arguments

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

Return Value logical

Source Code

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