Mercurial > octave-nkf

view libcruft/blas-xtra/xscnrm2.f @ 12121:87237a866c71 release-3-2-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
this branch is no longer maintained and is closed for further development
author John W. Eaton <jwe@octave.org>
date Sat, 22 Jan 2011 01:00:54 -0500
parents 82be108cc558
children
line wrap: on
line source

      subroutine xscnrm2 (n, x, incx, retval)
      real scnrm2, retval
      complex x(*)
      integer n, incx
      retval = scnrm2 (n, x, incx)
      return
      end