subroutine init_nazdir	(	integer	naz,
		real, dimension(naz)	xaz,
		real, dimension(naz)	yaz
	)