string_is_default Function

private function string_is_default(this) result(yes)

Type Bound

nml_string_key_t

Arguments

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

Return Value logical


Source Code

   function string_is_default(this) result(yes)
      class(nml_string_key_t), intent(in) :: this
      logical :: yes
      yes = (trim(this%tgt) == trim(this%default))
   end function string_is_default