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