fdoc_model.f90 › fdoc_model

functionis_procedureelemental

elemental logical function is_procedure(kind)

True if kind is a subroutine or function.

Arguments

Name	Type	Intent	Attributes	Description
kind	integer	in		one of the `E_*` constants

Result

Name	Type	Attributes	Description
is_procedure	logical

Source

Show the code

elemental logical function is_procedure(kind)
    integer, intent(in) :: kind     !! one of the `E_*` constants

    is_procedure = kind == E_SUBROUTINE .or. kind == E_FUNCTION
end function is_procedure

Graphs

Called by