subroutineargument_nameprivate
subroutine argument_name(list, id, name)
The name of argument id.
Arguments
| Name | Type | Intent | Attributes | Description |
|---|---|---|---|---|
| list | type(entity_list_t) | in | the entities | |
| id | integer | in | the argument, or 0 | |
| name | character(len=:) | out | allocatable | its name |
Source
Show the code
subroutine argument_name(list, id, name)
type(entity_list_t), intent(in) :: list !! the entities
integer, intent(in) :: id !! the argument, or 0
character(len=:), allocatable, intent(out) :: name !! its name
name = '*'
if (id > 0) name = list%box(id)%e%name
end subroutine argument_name