Mercurial > hg > octave-nkf

view liboctave/cruft/odepack/vnorm.f @ 16609:6f7940e36322

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
improve handling of cursor blinking for unix GUI terminal window * QUnixTerminalImpl.h, QUnixTerminalImpl.cpp (QUnixTerminalImpl::focusInEvent): Delete. * TerminalView.h, TerminalView.cpp (TerminalView::drawCursor): Don't check focus. (TerminalView::setBlinkingCursorState): New function. (TerminalView::setBlinkingCursor): Use it. (TerminalView::focusInEvent, TerminalView::focusOutEvent): New functions. (TerminalView::blinkCursorEvent): Only toggle state if _hasBlinkingCursor is true.
author John W. Eaton <jwe@octave.org>
date Sat, 04 May 2013 01:01:44 -0400
parents 648dabbb4c6b
children 446c46af4b42
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