c
c  -------------------
c
	subroutine donorm(a)
	real a(3),b(3),rsum,rnorm
	rsum=0.
	do 100, i=1,3
	rsum=rsum+a(i)**2
100	continue
	rnorm=sqrt(rsum)
	do 200, i=1,3
	b(i)=a(i)/rnorm
	a(i)=b(i)
200	continue
	return
	end
c
c  -------------------
c