Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
integer, | intent(in) | :: | n |
ELEMENTAL FUNCTION get_left_child(n) RESULT(child)
INTEGER, INTENT(IN) :: n
INTEGER :: child
child = 2*n
END FUNCTION get_left_child