dnrm2.f (interfaces/blas/F77/dnrm2.f)

      1
      2
      3
      4
      5
      6
      7
      8
      9
     10
     11
     12

      DOUBLE PRECISION FUNCTION DNRM2( N, X, INCX )

      INTEGER             INCX, N

      DOUBLE PRECISION    X(*)

      DOUBLE PRECISION    TEMP

      CALL DNRM2_SUB( N, X, INCX, TEMP )

      DNRM2 = TEMP

      RETURN

      END