json_get_name_settings Subroutine

private subroutine json_get_name_settings(json, case_sensitive_keys, trailing_spaces_significant)

Get the settings for case sensitivity and trailing spaces for name strings.

Type Bound

json_core

Arguments

Type IntentOptional Attributes Name
class(json_core), intent(in) :: json
logical(kind=LK), intent(out), optional :: case_sensitive_keys
logical(kind=LK), intent(out), optional :: trailing_spaces_significant

Called by

proc~~json_get_name_settings~~CalledByGraph proc~json_get_name_settings json_core%json_get_name_settings proc~hash_table_create_from_value json_hash_table%hash_table_create_from_value proc~hash_table_create_from_value->proc~json_get_name_settings proc~initialize_hash json_file%initialize_hash proc~initialize_hash->proc~hash_table_create_from_value

Source Code

    subroutine json_get_name_settings(json,case_sensitive_keys,trailing_spaces_significant)

    implicit none

    class(json_core),intent(in) :: json
    logical(LK),intent(out),optional :: case_sensitive_keys
    logical(LK),intent(out),optional :: trailing_spaces_significant

    if (present(case_sensitive_keys)) case_sensitive_keys = json%case_sensitive_keys
    if (present(trailing_spaces_significant)) trailing_spaces_significant = json%trailing_spaces_significant

    end subroutine json_get_name_settings