]> git.uio.no Git - u/mrichter/AliRoot.git/blob - PHOS/utils/vzero.f
git://git.uio.no / u / mrichter / AliRoot.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
blame | history | raw | HEAD
This commit was generated by cvs2svn to compensate for changes in r2,
[u/mrichter/AliRoot.git] / PHOS / utils / vzero.f
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