integer*4 number_lang
	parameter (number_lang=10)
	character*32 language_name(number_lang)
	character*4  language_ext(number_lang)
	integer*4 language_name_length(number_lang)
	common /lang_name_common/language_name,language_ext
	save /lang_name_common/
	common /lang_name_size_common/language_name_length
	save /lang_name_size_common/
	integer*4 language_ada,language_basic,language_cobol
	integer*4 language_fortran,language_macro,language_pascal
	integer*4 language_pli,language_pl1,language_com,language_cc
	parameter (language_ada=1,language_basic=2,language_cobol=3)
	parameter (language_fortran=4,language_macro=5,language_pascal=6)
	parameter (language_pli=7,language_pl1=8,language_com=9)
	parameter (language_cc=10)

	logical l_fortran
	common/language_common/l_fortran
	save /language_common/

	logical*1 tab(max_line_length),l_detab
	common/tab_common/l_detab,tab
	save /tab_common/