c
c  -------------------
c
	subroutine vecneg(a)
	real a(3)
	do 100, i=1,3
	a(i)=-1.*a(i)
100	continue
	return
	end
c
c  -------------------
c