	character*40 function nom(s)
	
	character*40 s

	nom=s(4:6)

	return
	end
