	subroutine add( a, b, c )
	real*8 a(*), b(*), c(*)
	do i=1,3
	  c(i) = a(i) + b(i)
	end do
	return
	end
