functionstem_lengthpureprivate
pure integer function stem_length(name)
The length of the part of name that names its page.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| name | character(len=*) | in | the name of a Markdown file |
Result
| Name | Type | Attributes | Description |
|---|---|---|---|
| stem_length | integer |
Source
Show the code
pure integer function stem_length(name)
character(len=*), intent(in) :: name !! the name of a Markdown file
integer :: at
stem_length = len(name) - 3
at = index(name(:stem_length), '.', back=.true.)
if (at > 1) stem_length = at - 1
end function stem_length