real_array_is_default Function

   function real_array_is_default(this) result(yes)
      class(nml_real_array_key_t), intent(in) :: this
      logical :: yes
      yes = .false.
      if (size(this%tgt) /= size(this%default)) return
      yes = all(this%tgt == this%default)
   end function real_array_is_default