← Back to branch summary

~ubuntu-branches/debian/sid/octave3.0/sid

« back to all changes in this revision

Viewing changes to libcruft/odepack/vnorm.f

  • Committer: Bazaar Package Importer
  • Author(s): Rafael Laboissiere
  • Date: 2007-12-23 16:04:15 UTC
  • Revision ID: james.westby@ubuntu.com-20071223160415-n4gk468dihy22e9v
Tags: upstream-3.0.0
Import upstream version 3.0.0

Show diffs side-by-side

added added

removed removed

Lines of Context:
libcruft/odepack/vnorm.f
 
1
      DOUBLE PRECISION FUNCTION VNORM (N, V, W)
 
2
CLLL. OPTIMIZE
 
3
C-----------------------------------------------------------------------
 
4
C THIS FUNCTION ROUTINE COMPUTES THE WEIGHTED ROOT-MEAN-SQUARE NORM
 
5
C OF THE VECTOR OF LENGTH N CONTAINED IN THE ARRAY V, WITH WEIGHTS
 
6
C CONTAINED IN THE ARRAY W OF LENGTH N..
 
7
C   VNORM = SQRT( (1/N) * SUM( V(I)*W(I) )**2 )
 
8
C-----------------------------------------------------------------------
 
9
      INTEGER N,   I
 
10
      DOUBLE PRECISION V, W,   SUM
 
11
      DIMENSION V(N), W(N)
 
12
      SUM = 0.0D0
 
13
      DO 10 I = 1,N 
 
14
 10     SUM = SUM + (V(I)*W(I))**2
 
15
      VNORM = DSQRT(SUM/DBLE(N))      
 
16
      RETURN
 
17
C----------------------- END OF FUNCTION VNORM -------------------------
 
18
      END