subroutinenormal_idprivate
subroutine normal_id(id, out)
id in lowercase, with runs of whitespace as single blanks.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| id | character(len=*) | in | the reference name | |
| out | character(len=:) | out | allocatable | its normal form |
Calls
Source
Show the code
subroutine normal_id(id, out)
character(len=*), intent(in) :: id !! the reference name
character(len=:), allocatable, intent(out) :: out !! its normal form
type(string_t), allocatable :: words(:)
words = split_words(lowercase(id))
out = join(words, ' ')
end subroutine normal_id