Mercurial > octave-nkf
view libcruft/odepack/vnorm.f @ 13741:b0e70a71647b stable release-3-4-3
Version 3.4.3 released.
* configure.ac (AC_INIT): Version number is now 3.4.3.
(OCTAVE_RELEASE_DATE): Update to 2011-10-10.
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Mon, 10 Oct 2011 10:23:45 -0400 |
parents | 30c606bec7a8 |
children |
line wrap: on
line source
DOUBLE PRECISION FUNCTION VNORM (N, V, W) CLLL. OPTIMIZE C----------------------------------------------------------------------- C THIS FUNCTION ROUTINE COMPUTES THE WEIGHTED ROOT-MEAN-SQUARE NORM C OF THE VECTOR OF LENGTH N CONTAINED IN THE ARRAY V, WITH WEIGHTS C CONTAINED IN THE ARRAY W OF LENGTH N.. C VNORM = SQRT( (1/N) * SUM( V(I)*W(I) )**2 ) C----------------------------------------------------------------------- INTEGER N, I DOUBLE PRECISION V, W, SUM DIMENSION V(N), W(N) SUM = 0.0D0 DO 10 I = 1,N 10 SUM = SUM + (V(I)*W(I))**2 VNORM = DSQRT(SUM/DBLE(N)) RETURN C----------------------- END OF FUNCTION VNORM ------------------------- END