Ctvmft/src/vzero.F

c $Id:$

* Inital version of CMS port of CTVMFT (CDF vertex fitter).

      SUBROUTINE VZERO (A,N)
C
C CERN PROGLIB# F121    VZERO           .VERSION KERNFOR  4.40  940929
C ORIG. 01/07/71, modif. 24/05/87 to set integer zero
C                 modif. 25/05/94 to depend on QINTZERO
C
      INTEGER   A(*)
C
      IF (N.LE.0)  RETURN
      DO 9 I= 1,N
    9 A(I)= 0
C
      RETURN
      END
Revision:	1.1
Committed:	Wed Sep 17 04:01:50 2008 UTC (16 years, 7 months ago) by loizides
Branch:	MAIN
CVS Tags:	Mit_032, Mit_031, Mit_025c_branch2, Mit_025c_branch1, Mit_030, Mit_029c, Mit_030_pre1, Mit_029a, Mit_029, Mit_029_pre1, Mit_028a, Mit_025c_branch0, Mit_028, Mit_027a, Mit_027, Mit_026, Mit_025e, Mit_025d, Mit_025c, Mit_025b, Mit_025a, Mit_025, Mit_025pre2, Mit_024b, Mit_025pre1, Mit_024a, Mit_024, Mit_023, Mit_022a, Mit_022, Mit_020d, TMit_020d, Mit_020c, Mit_021, Mit_021pre2, Mit_021pre1, Mit_020b, Mit_020a, Mit_020, Mit_020pre1, Mit_018, Mit_017, Mit_017pre3, Mit_017pre2, Mit_017pre1, V07-05-00, Mit_016, Mit_015b, Mit_015a, Mit_015, Mit_014e, Mit_014d, Mit_014c, Mit_014b, ConvRejection-10-06-09, Mit_014a, Mit_014, Mit_014pre3, Mit_014pre2, Mit_014pre1, Mit_013d, Mit_013c, Mit_013b, Mit_013a, Mit_013, Mit_013pre1, Mit_012i, Mit_012g, Mit_012f, Mit_012e, Mit_012d, Mit_012c, Mit_012b, Mit_012a, Mit_012, Mit_011a, Mit_011, Mit_010a, Mit_010, Mit_009c, Mit_009b, Mit_009a, Mit_009, Mit_008, Mit_008pre2, Mit_008pre1, Mit_006b, Mit_006a, Mit_006, Mit_005, Mit_004, HEAD
Branch point for:	Mit_025c_branch
Log Message:	Moved MitVertex contents to MitCommon. MitVertex therefore is obsolute and should not be touched anymore.
#	Content
1	c $Id:$
2
3	* Inital version of CMS port of CTVMFT (CDF vertex fitter).
4
5	SUBROUTINE VZERO (A,N)
6	C
7	C CERN PROGLIB# F121 VZERO .VERSION KERNFOR 4.40 940929
8	C ORIG. 01/07/71, modif. 24/05/87 to set integer zero
9	C modif. 25/05/94 to depend on QINTZERO
10	C
11	INTEGER A(*)
12	C
13	IF (N.LE.0) RETURN
14	DO 9 I= 1,N
15	9 A(I)= 0
16	C
17	RETURN
18	END