fdoc_generics.f90 › fdoc_generics

functionis_elementalpureprivate

pure logical function is_elemental(e)

True if procedure e is elemental.

Arguments

Name	Type	Intent	Attributes	Description
e	type(entity_t)	in		the procedure

Result

Name	Type	Attributes	Description
is_elemental	logical

Source

Show the code

pure logical function is_elemental(e)
    type(entity_t), intent(in) :: e !! the procedure
    integer :: k

    is_elemental = .false.
    if (.not. allocated(e%attribs)) return
    do k = 1, size(e%attribs)
        if (lowercase(e%attribs(k)%s) == 'elemental') is_elemental = .true.
    end do
end function is_elemental

Graphs

Called by