[u/mrichter/AliRoot.git] / PHOS / utils / vzero.f

      SUBROUTINE VZERO (A,N)
      DIMENSION A(*)
      IF (N.LE.0)  RETURN
      DO 9 I= 1,N
    9 A(I)= 0.
      RETURN
      END
Commit	Line	Data
fe4da5cc	1	SUBROUTINE VZERO (A,N)
	2	DIMENSION A(*)
	3	IF (N.LE.0) RETURN
	4	DO 9 I= 1,N
	5	9 A(I)= 0.
	6	RETURN
	7	END