integer*4 number_directives
	parameter (number_directives=33)

	character*10 directive_list(number_directives)
	integer*4 directive_size(number_directives)
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
	integer*4 dir_comment,dir_endcomment,dir_macro,dir_endmacro
	integer*4 dir_if,dir_elseif,dir_else,dir_endif,dir_set,dir_delete
	integer*4 dir_do,dir_enddo,dir_list,dir_endlist,dir_reset
	integer*4 dir_option,dir_end,dir_dump,dir_include,dir_page
	integer*4 dir_domacro,dir_error,dir_replace,dir_default,dir_remove
	integer*4 dir_mlist,dir_endmlist
	integer*4 dir_open,dir_append,dir_close,dir_redirect,dir_exit
	integer*4 dir_traceback
	parameter (dir_comment=1,dir_endcomment=2)
	parameter (dir_macro=3,  dir_endmacro=4,    dir_domacro=5)
	parameter (dir_if=6,     dir_elseif=7,      dir_else=8, dir_endif=9)
	parameter (dir_set=10,   dir_delete=11,    dir_replace=12)
	parameter (dir_default=13,dir_remove=14)
	parameter (dir_do=15,    dir_enddo=16)
	parameter (dir_list=17,  dir_endlist=18,    dir_reset=19)
	parameter (dir_mlist=20, dir_endmlist=21)
	parameter (dir_option=22,dir_end=23,        dir_dump=24)
	parameter (dir_include=25,dir_page=26,      dir_error=27)
	parameter (dir_open=28,  dir_append=29,     dir_close=30)
	parameter (dir_redirect=31,dir_exit=32)
	parameter (dir_traceback=33)
	common /directive_names/directive_list
	save /directive_names/
	common /directive_sizes/directive_size
	save /directive_sizes/

	logical l_end_found
	common/directive_flags/l_end_found
	save /directive_flags/