ddanrm.f

Go to the documentation of this file.

      DOUBLE PRECISION FUNCTION ddanrm (NEQ, V, WT, RPAR, IPAR)
C***BEGIN PROLOGUE  DDANRM
C***SUBSIDIARY
C***PURPOSE  Compute vector norm for DDASSL.
C***LIBRARY   SLATEC (DASSL)
C***TYPE      DOUBLE PRECISION (SDANRM-S, DDANRM-D)
C***AUTHOR  PETZOLD, LINDA R., (LLNL)
C***DESCRIPTION
C-----------------------------------------------------------------------
C     THIS FUNCTION ROUTINE COMPUTES THE WEIGHTED
C     ROOT-MEAN-SQUARE NORM OF THE VECTOR OF LENGTH
C     NEQ CONTAINED IN THE ARRAY V,WITH WEIGHTS
C     CONTAINED IN THE ARRAY WT OF LENGTH NEQ.
C        DDANRM=SQRT((1/NEQ)*SUM(V(I)/WT(I))**2)
C-----------------------------------------------------------------------
C***ROUTINES CALLED  (NONE)
C***REVISION HISTORY  (YYMMDD)
C   830315  DATE WRITTEN
C   901009  Finished conversion to SLATEC 4.0 format (F.N.Fritsch)
C   901019  Merged changes made by C. Ulrich with SLATEC 4.0 format.
C   901026  Added explicit declarations for all variables and minor
C           cosmetic changes to prologue.  (FNF)
C***END PROLOGUE  DDANRM
C
      INTEGER  neq, ipar(*)
      DOUBLE PRECISION  v(neq), wt(neq), rpar(*)
C
      INTEGER  i
      DOUBLE PRECISION  sum, vmax
C
C***FIRST EXECUTABLE STATEMENT  DDANRM
      ddanrm = 0.0d0
      vmax = 0.0d0
      DO 10 i = 1,neq
        IF(abs(v(i)/wt(i)) .GT. vmax) vmax = abs(v(i)/wt(i))
10      CONTINUE
      IF(vmax .LE. 0.0d0) go to 30
      sum = 0.0d0
      DO 20 i = 1,neq
20      sum = sum + ((v(i)/wt(i))/vmax)**2
      ddanrm = vmax*sqrt(sum/neq)
30    CONTINUE
      RETURN
C------END OF FUNCTION DDANRM------
      END