subroutine null(     xx, n)
integer i, n;	real xx( n)
do i= 1, n
	xx(i) = 0.
return; end