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