real function SNRM2( n, x, incx ) 
!
!  -- Level 1 BLAS --
!     E. Anderson, NESC
!     November 17, 1999
!
      integer n, incx
      real x(*)
      real scl, sumsq
      scl = 1.0
      sumsq = 0.0
      call SLASSQ( n, x, incx, scl, sumsq )
      SNRM2 = scl*sqrt( sumsq )
      return
      end