# Common areas for Ratfor preprocessor

  # Lexical Analyzer:
   character Symtext (MAXTOK), Sym_long_text (MAXTOK), Last_var (MAXTOK)
   integer Symlen, Symbol
   pointer Id_table, Uname_table

   common /lexcom/ Symtext, Symlen, Symbol, Id_table, Uname_table,
      Sym_long_text, Last_var


  # Input/Pushback Buffer and File Control:
   character Inbuf (INBUFSIZE)
   integer Ibp, Line_number (MAXLEVEL), Level
   file_des Infile (MAXLEVEL)

   common /incom/ Inbuf, Ibp, Line_number, Infile, Level


  # Loop Control:
   integer Loop_sp, Next_lab (MAXLOOPS), Break_lab (MAXLOOPS)

   common /loopcom/ Loop_sp, Next_lab, Break_lab


  # Output Buffers:
   character Outbuf (MAXLINE, MAXSTREAM)
   integer  Outp (MAXSTREAM)

   common /obufcom/ Outbuf, Outp


  # Dynamic Storage Area:
   untyped Mem (MEMSIZE)

   common /ds$mem/ Mem


  # Output Files (work files and output file):
   file_des Outfile (MAXSTREAM), Fortfile

   common /outfil/ Outfile, Fortfile


   # Expression Generation
   integer Expr_stack (MAXEXPR), Expr_stack_ptr, False_branch

   common /codegen/ Expr_stack, Expr_stack_ptr, False_branch


  # Select Statement Generation
   integer Scvalue (MAXSEL), Sclabel (MAXSEL), Slt, Result (10)

   common /selgen/ Scvalue, Sclabel, Slt, Result


  # Internal Procedures:
   integer Scope_sp
   pointer Scope_table (MAXSCOPE), Proc_head, Proc_table

   common /prccom/ Scope_sp, Scope_table, Proc_head, Proc_table


  # Goto Management:
   integer Dispatch_flag, Last_dispatch_flag, Xgo_from (MAXGOHASH),
      Xgo_to (MAXGOHASH), Lgo_line (MAXGOLIST), Lgo_pos (MAXGOLIST),
      Lgo_stmt (MAXGOLIST), Lgo_lp

   common /gocom/ Dispatch_flag, Last_dispatch_flag, Xgo_from,
      Xgo_to, Lgo_line, Lgo_pos, Lgo_stmt, Lgo_lp


  # Miscellaneous Junk:
   character Module_name (MAXTOK), Module_long_name (MAXTOK),
      Error_sym (MAXTOK), Tlit_char (MAXCHARVAL), Tlit_eos
   integer Curlab, Brace_count, Indent, First_stmt, Spnum,
      Last_num_out, Code_line_num
   file_des Prof_dict_file
   ARG_DECL

   common /miscom/ Module_name, Curlab, Brace_count, Indent,
      Module_long_name, First_stmt, Prof_dict_file, Spnum,
      Error_sym, ARG_BUF, Last_num_out, Code_line_num,
      Tlit_char, Tlit_eos