Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(string_t), | intent(in) | :: | project_name | |||
type(string_t), | intent(in) | :: | custom_prefix |
type(string_t) function module_prefix_type(project_name,custom_prefix) result(ptype)
type(string_t), intent(in) :: project_name
type(string_t), intent(in) :: custom_prefix
if (is_valid_module_prefix(custom_prefix)) then
ptype = string_t("custom")
else
ptype = string_t("default")
end if
end function module_prefix_type