get_left_child Function

private elemental function get_left_child(n) result(child)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	n

Return Value integer

Source Code

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

      child = 2*n
   END FUNCTION get_left_child