*=======================================================================
*     COMMONS FOR SWING.FOR
*=======================================================================

      include 'pulldown.cmn'

      parameter MAX_LINES = 300
      parameter MAX_LEVELS = 7
      parameter MAX_NODES = 600

      integer   line, last_level, last_line(0:MAX_LEVELS)
      integer   last_node(0:MAX_LEVELS)
      integer   node_pointer( 0:MAX_LEVELS, MAX_LINES ), lowest_level
      integer   node_num, num_nodes, num_lines

      structure /node_type/
                character*255 spec
                character*12  name
                integer*4     length
                integer*4     level
                integer*4     line  
                integer*4     rend
                integer*4     child
                integer*4     sister
      end structure

      record /node_type/ node(MAX_NODES)

      common /node_info/ line,
     .                   last_level,
     .                   lowest_level,
     .                   last_line,
     .                   last_node,
     .                   num_lines,
     .                   node_pointer,
     .                   node,
     .                   node_num,
     .                   num_nodes

      integer   window1, window2, window3, board_id, set_term_buf(3)
      integer   width, cur_level, cur_line, bottom_line, top_line
      integer   old_rend, len_disk, len_main, keyboard
      logical   avo, using_screen, found, update, delete_problem
      logical   use_window1, do_save, swing_file_exists
      character this_terminal*31, disk*31, root*255, main*50

      record /pd_choice_type/ pull_choices

      common /smg_info/  board_id,
     .                   keyboard,
     .                   window1,
     .                   window2,
     .                   window3,
     .                   pull_choices,
     .                   this_terminal,
     .                   set_term_buf,
     .                   width,
     .                   avo,
     .                   old_rend,
     .                   disk,
     .                   len_disk,
     .                   root,
     .                   main,
     .                   len_main,
     .                   cur_level,
     .                   cur_line,
     .                   top_line,
     .                   bottom_line,
     .                   using_screen,
     .                   use_window1,
     .                   update,
     .                   found,
     .                   delete_problem,
     .                   do_save,
     .                   swing_file_exists