get_mctc_feature Function

public pure function get_mctc_feature(feature) result(has_feature)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: feature

Feature name

Return Value logical

Whether the feature is enabled


Source Code

pure function get_mctc_feature(feature) result(has_feature)

   !> Feature name
   character(len=*), intent(in) :: feature

   !> Whether the feature is enabled
   logical :: has_feature

   select case(feature)
   case("json")
      has_feature = mctc_with_json
   case default
      has_feature = .false.
   end select

end function get_mctc_feature