integer*4 number_lang
	parameter (number_lang=4)
	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_fortran,language_cc,language_sh,language_csh
	parameter (language_fortran=1,language_cc=2,language_sh=3)
	parameter (language_csh=4)
 
	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/