All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Macros Groups
pxzerv.f
Go to the documentation of this file.
1 CDECK ID>, PXZERV.
2  SUBROUTINE pxzerv (ISZE,VEC)
3 *.*********************************************************
4 *. ------
5 *. PXZERV
6 *. ------
7 *. SOURCE: J.W.Gary
8 *. Zero a vector of arbitrary length
9 *. Usage :
10 *.
11 *. INTEGER NDIM
12 *. PARAMETER (NDIM=1.or.more)
13 *. REAL VEC (NDIM)
14 *. INTEGER ISIZ
15 *.
16 *. ISIZ = 1.to.NDIM
17 *. CALL PXZERV (ISZE,VEC)
18 *.
19 *. INPUT : ISIZ The length of the vector to be zeroed
20 *. INPUT : VEC the vector to be zeroed
21 *.
22 *.*********************************************************
23  IMPLICIT NONE
24  INTEGER isze,ix
25  REAL vec (*)
26  DO 120 ix = 1,isze
27  vec(ix) = 0.
28  120 CONTINUE
29  RETURN
30  END
pxzerv
subroutine pxzerv(ISZE, VEC)
Definition: pxzerv.f:2