get_left_child Function

private elemental function get_left_child(n) result(child)

Arguments

TypeIntentOptionalAttributesName
integer, intent(in) :: n

Return Value integer


Contents

Source Code


Source Code

   ELEMENTAL FUNCTION get_left_child(n) RESULT(child)
      INTEGER, INTENT(IN)                                :: n
      INTEGER                                            :: child

      child = 2*n
   END FUNCTION get_left_child