[UP]

Manual Reference Pages  - tree_print (3)

NAME
tree_print(3f) - [M_sort] print a sorted integer tree generated by tree_insert(3f)

CONTENTS

Synopsis
Description
Author
Example

SYNOPSIS
subroutine tree_print(t) 

   type(tree_node), pointer :: t

DESCRIPTION
Print a tree of sorted integers created by insert_tree(3f).

AUTHOR
Copyright (c) 1990 by Walter S. Brainerd, Charles H. Goldberg, and Jeanne C. Adams. This code may be copied and used without restriction as long as this notice is retained.

EXAMPLE
sample program 

   program tree_sort
   use M_sort, only : tree_node, tree_insert, tree_print
   implicit none
   type(tree_node), pointer :: t     ! A tree
   integer             :: number
   integer             :: ios
   nullify(t)                        ! Start with empty tree
   infinite: do
      read (*,*,iostat=ios) number
      if(ios.ne.0)exit infinite
      call tree_insert(t,number)     ! Put next number in tree
   enddo infinite
   call tree_print(t)                ! Print nodes of tree in infix order
   end program tree_sort

tree_print (3) October 17, 2020
Generated by manServer 1.08 from df115fab-7f6f-47fc-a25a-2966cf56a260 using man macros.