subroutineargument_attributesprivate
subroutine argument_attributes(e, b)
Write the attributes of argument e.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| e | type(entity_t) | in | the argument | |
| b | type(buffer_t) | inout | the HTML |
Calls
Source
Show the code
subroutine argument_attributes(e, b)
type(entity_t), intent(in) :: e !! the argument
type(buffer_t), intent(inout) :: b !! the HTML
integer :: k
if (e%parameter) call badge('parameter', b)
if (e%optional) call badge('optional', b)
do k = 1, size(e%attribs)
call badge(e%attribs(k)%s, b)
end do
if (allocated(e%dimension)) then
if (index(e%dimension, '(') == 1) call badge('dimension'//e%dimension, b)
end if
end subroutine argument_attributes