MINICERN/packlib/kernlib/kerngen/tcgens/vzero.F

   1 *
   2 * $Id$
   3 *
   4 * $Log$
   5 * Revision 1.1.1.1  1996/02/15 17:50:18  mclareni
   6 * Kernlib
   7 *
   8 *
   9 #include "kerngen/pilot.h"
  10       SUBROUTINE VZERO (A,N)
  11 C
  12 C CERN PROGLIB# F121    VZERO           .VERSION KERNFOR  4.40  940929
  13 C ORIG. 01/07/71, modif. 24/05/87 to set integer zero
  14 C                 modif. 25/05/94 to depend on QINTZERO
  15 C
  16 #if defined(CERNLIB_QINTZERO)
  17       INTEGER   A(*)
  18 #endif
  19 #if !defined(CERNLIB_QINTZERO)
  20       DIMENSION A(*)
  21 #endif
  22 C
  23       IF (N.LE.0)  RETURN
  24       DO 9 I= 1,N
  25 #if defined(CERNLIB_QINTZERO)
  26     9 A(I)= 0
  27 #endif
  28 #if !defined(CERNLIB_QINTZERO)
  29     9 A(I)= 0.
  30 #endif
  31 C
  32       RETURN
  33       END