subroutine init_tables
 
	implicit none
 
	include 'parameters.inc'
	data quote_char/''''/,directive_char/'*'/
	data sub_char/'$'/,esc_char/'`'/
	data next_label/10000,1000,100,10,1,50000,5000,500,50,5/
	data l_case_sensitive/.false./
 
	include 'tables.inc'
	include 'language.inc'
	data language_name/	'FORTRAN',	'CC',	'SH',	'CSH'/
	data language_name_length/
	1			7,		2,	2,	3/
	data language_ext/	'.f',		'.c',	'.sh',	'.csh'/
 
	include 'io_control.inc'
	data l_debug/.false./,l_eof/.false./,l_sub/.true./,l_show/.false./
	data page_size/60/,lines_left/0/,page_number/0/,line_count/0/
	data current_unit/input_unit/,output_channel/0/
 
	include 'status.inc'
	include 'directive.inc'
c	for each directive-4 entries
c
c	one in Directive_list with the name of the direcitve blank padded
c
c	one declareing the parameter DIRECTIVE_name=VALUE where value is 
c	the position of the directive in the array directive_list
c
c	one declaring DIRECTIVE_name to be an integer*4
c
c	one entry in DIRECTIVE_SIZE in the same posiiton as the name
c	in directive_list giveing the number of chars in the name
c
c				NOTE
c		The *END directive must appear after all other directives
c		starting with *END such as *ENDDO,*ENDIF etc
c
	data directive_list/
	1 'COMMENT   ','ENDCOMMENT',
	1 'MACRO     ','ENDMACRO  ','DOMACRO   ',
	1 'IF        ','ELSEIF    ','ELSE      ','ENDIF     ',
	1 'SET       ','DELETE    ','REPLACE   ','DEFAULT   ','REMOVE    ',
	1 'DO        ','ENDDO     ',
	1 'LIST      ','ENDLIST   ','RESET     ','MLIST     ','ENDMLIST  ',
	1 'OPTION    ',
	1 'END       ','DUMP      ',
	1 'INCLUDE   ','PAGE      ','ERROR     ',
	1 'OPEN      ','APPEND    ','CLOSE     ','REDIRECT  ',
	1 'EXIT      ','TRACEBACK '/
	DATA directive_size/7,10,5,8,7,2,6,4,5,3,6,7,7,6,2,
	1	5,4,7,5,5,8,6,3,4,7,4,5,4,6,5,8,4,9/
	data l_end_found/.false./
 
	record/name_table_entry/temp_name
	integer*4 i
 
 
	exit_status=1
 
	temp_name.inuse=.false.
	temp_name.deleted=.false.
	temp_name.type=0
 
	do i=1,name_table_size
		name_table(i)=temp_name
	enddo
 
	do i=1,string_table_size
		string_table(i).in_use=.false.
	enddo
 
	l_fortran=.false.
	l_detab=.false.
 
	do i=1,max_line_length
		tab(i)=.false.
	enddo
	do i=1,max_line_length,8
		tab(i)=.true.
	enddo
 
	input_stream(0).file_io=.true.
	input_stream(0).first_string=0
	input_stream(0).current_string=0
	input_stream(0).line_count=0
 
	do i=0,max_output
		output_stream(i).open=.false.
		output_stream(i).line_count=0
	enddo
 
	return
	end