	subroutine get_compiler(f77id)
	character	f77id*(*)
	f77id = '_x86_64_Linux_pgi_10.6'
	return
	end
